Visual Basic - manejo de dbgrid

Life is soft - evento anual de software empresarial
 
Vista:

manejo de dbgrid

Publicado por David (5 intervenciones) el 09/01/2001 00:00:00
Necesito mostrar a un grupo de personas con cierta característica (por ejemplo cuyo apellido comienzan con ´R´)
y visualizarlos en una dbgrid.

Como realizo esta operación si mi tabla esta en un servidor NT,
La rutina para conectarme a la tabla funciona, lo que no se, es como cargarla a una dbgrid (solo logro cargar datos a una lista y no es lo que necesito.


Rutina de conexión:
Set Base = OpenDatabase("", False, False, "ODBC;Database=bd100bien;UID=visita;PWD=xxx;DSN=Sql-Server")
pregunta = "select * from a400mafi"
Set datos_afi = Base.OpenRecordset(pregunta, dbOpenDynaset)

------------- 0 ---------------

Y por último como enlazo la dbgrid con los texbox y combox

De antemano gracias ...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:manejo de dbgrid

Publicado por Elmer Herrera (3 intervenciones) el 09/01/2001 00:00:00
select * from clientes where(nombres like´R*´)
donde clientes es la tabla y nombres un campo de la tabla y R* el valor a buscar
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:manejo de dbgrid

Publicado por BENJO (167 intervenciones) el 09/01/2001 00:00:00
El DBGrid se conecta a través de un control data, por lo cual podés transferrir el recordset al control data y así levantar el Dbgrid con las columnas que quieras mostrar.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:manejo de dbgrid

Publicado por Ptolomeo (4 intervenciones) el 09/01/2001 00:00:00
grdDatos.Row = 0

Do While Not Fila.EOF

´COLUMNA 0 : LINEA
grdDatos.Col = 0
If IsNull(Fila(1)) Then
grdDatos = "No Existe"
Else
grdDatos.Text = Fila(1)
End If
´COLUMNA 1 : TIPO DETALLE (RECLAMO)
grdDatos.Col = 1
If IsNull(Fila(26)) Then
grdDatos = ""
Else
If Fila(26) = 0 Then
grdDatos.Text = "cero"
Else
grdDatos.Text = "uno"
End If
End If

.
.
.
.
.

grdDatos.Row = grdDatos.Row + 1
Fila.MoveNext
Loop

este fue realizado llenando un dbgrid con datos de una base de datos sql server utilizando RDO, pero te puede servir para rellenar la grilla.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar