Visual Basic - Llenar DataGrid Consulta SQL

Life is soft - evento anual de software empresarial
   
Vista:

Llenar DataGrid Consulta SQL

Publicado por Enrique Cruz (1 intervención) el 20/02/2008 23:20:26
Hola, tengo una duda en VB 6.0, tengo una base de datos en access y en un form tengo un datagrid al cual quiero filtrar los resultados de acuerdo a una consulta de SQL, inserte el siguiente codigo:

Conexion
Dim sBuscar As String
Dim tRs As Recordset
Dim Algo As String
Dim A As Integer
Conexion.CursorLocation = adUseClient
Algo = InputBox("Introduzca La Fecha")
sBuscar = "Select * from aspirante where fecha_entrevista = '" & Algo & "'"
Set tRs = Conexion.Execute(sBuscar)
With tRs
If (.BOF And .EOF) Then
A = MsgBox("No Existen Registros En Esa Fecha", vbOKOnly + vbInformation, "Registros")
Else
Me.datagrid.Refresh
Set Me.datagrid.DataSource = tRs
End If
End With

El codigo si realiza la consulta y si no encuentra ningun registro me envia el mensaje que no se encontraron registros, el problema es cuando encuentra registros no los representa en el datagrid... alguien me podria ayudar porfavor... me urge... de antemano muchas 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:Llenar DataGrid Consulta SQL

Publicado por fede (189 intervenciones) el 21/02/2008 17:38:29
mira access reconoce las fechas en el tipo americano osea mm-dd-yyyy
asi que en la consulta pone
fecha_entrevista = #" & Format(algo, "mm/dd/yyyy") & "#
y ademas algo definilo como date no como string
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:Llenar DataGrid Consulta SQL

Publicado por gustavo (218 intervenciones) el 03/03/2008 13:55:27
mira te puedo sugerir que utilices un objeto adodc utiliza tu rutina para actualizar el adodc y el datagrid lo enlazas al adodc y refrscas esto mostrar los registro en el grid
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