consulta de SQL desde Vb 6.0

[Mayra_Manrique]

Tengo tres tablas de las cuales escogo campos para realizar una consulta que me aparezca en un datagrid, la sentencia es la siguiente:

DB.Open
Set adoprimaryRs = New Recordset
adoprimaryRs.Open "SELECT t.cedula, t.nombres, t.apellidos, h.ciudad, h.hotel From turista t, hospedaje h Where t.cedula= '" & Text1.Text & "' and h.cedula= '" & Text1.Text & "' ", DB, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoprimaryRs

el problema que tengo es que solo me aparecen los campos de las tablas pero no me muestra los registros y tampoco me sale error.....

[Insomnia]

Hola

No se que BD utilizas, pero comprueba que realmente existen registros que cumplen tales condiciones, otra opción es realizar una consulta más sencilla (tipo select *) para comprobar que las conexiones están realizadas correctamente.

--Saludos--

[Mayra_Manrique]

Dim DB As Connection
Set DB = New Connection
DB.CursorLocation = adUseClient
DB.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=127.0.0.1;" _
& " DATABASE=agencia_viajes;" _
& "UID=root;PWD=q; OPTION=3"
DB.Open
Set adoprimaryrs = New Recordset
adoprimaryrs.Open "SELECT t.cedula, t.nombres, t.apellidos, h.ciudad, h.hotel From turista t, hospedaje h Where t.cedula= '" & Text1.Text & "' and h.cedula= '" & Text1.Text & "'", DB, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoprimaryrs
End Sub

hay esta todo para que se entienda mejor....... y si existen registros con esos datos si pueden ayundenme porfa!!!!!!!!!!!!

[Insomnia]

Hola

No tengo mucha experiencia con MySQL pero en la consulta creo que te falta unir las dos tablas con un INNER JOIN ... ON (por lo menos yo las suelo hacer así en access y en SQL Server)

Código:

SELECT campos FROM tb1 INNER JOIN tb2 ON
tb1.campo1=tb2.campo2

De todas formas trata de realizar una consulta más sencilla para ver donde puede estar el error, prueba con:

Código:

adoprimaryrs.Open "SELECT * From turista", DB, adOpenStatic, adLockOptimistic

Si de esta forma te carga los datos en el DataGrid ya sabes que el error es de la Select, si no, el error esta en otro lado. De esta forma, por lo menos, puedes ir definiendo donde se da el error.

--Saludos--