(ayuda) No Me Muestra Datos De Una Consulta Con Db Mysql

[aldo1982]

BUENAS GENTE, LES KERIA CONSULTAR PORKE ME SUSEDE LO SIGUIENTE, TENGO DOS TABLAS (CHARACTERS Y MERCHANT_BUYLISTS) CUANDO HAGO UN SELECT * FROM CHARACTERS NO HAY PROBLEMAS LUEGO MUESTRO EN UN LIST Y ME LO HACE PERFECTO, PERO EL TEMA ES KE HAGO LO MISMO Y NO ME MUESTRA ABSOLUTAMENTE NADA DE LA TABLA MERCHANT_BUYLISTS, BUE ACA LES DEJO EL CODIGO A VER SI ME PUEDEN DAR UNA MANITOP

ACLARACION: LA TABLA MERCHANT_BUYLIST TIENE UN CAMPO KE SE LLAMA PRICE Y TIENE UNOS 1000 REGISTROS (LA TABLA CAHRACTERS TIENE UNOS 100 REGISTROS)..BUE ACA DEJO EL CODIGO

`PARTE GENERAL
Public rs As ADODB.Recordset
Public cxnfac As ADODB.Connection


'EN UN BOTON PARA KE CARGUE LOS PRECIOS
Private Sub Command1_Click()
Set cxnfac = New ADODB.Connection
cxnfac.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Option=131072;S tmt=;Database=l2jdb;" & "uid=" & Form1.Text1 & ";" & "pwd=" & Form1.Text2 & ";"
cxnfac.Open

SQL = "select distinct merchant_buylists.price AS price from merchant_buylists"
'where name like '" & Text1.Text & "' "
Set rs = cxnfac.Execute(SQL, , adCmdText)

Do While Not rs.EOF
List1.AddItem rs!price
rs.MoveNext
Loop
rs.Close

BUE GENTE SALU2 Y GRACIAS

[GeoAvila]

veo que te faltan unos %% antes en la busqueda con el like

'where name like '%" & Text1.Text & "%' "

nos vemos..

[jc_moty]

Iniciado por aldo1982

SQL = "select distinct merchant_buylists.price AS price from merchant_buylists"
'where name like '" & Text1.Text & "' "

Proba así:

Código:

SQL = "select distinct merchant_buylists.price AS price from merchant_buylists where name like '" & Text1 & "%'"

Espero te sirva

[aldo1982]

wenas, gracias por la respuesta .. mi pregunta es .. porke me hace la consulta sin los % a otras tablas ? .. moty esa forma ke tu me dices ya la probe y es exactamente lo mismo gracias de todas formas

salu2

[aldo1982]

bueps no se ke mas hacer sigue sin mostrarme datos :S
ahora probe sin el where como para ke me muestre todos los datos pero ni medio de bola ke me da .. bue aca pongo el codigo pa ke vean


Private Sub Command1_Click()
Set cxnfac = New ADODB.Connection
cxnfac.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Port=3306;Option=131072;S tmt=;Database=l2jdb;" & "uid=" & Form1.Text1 & ";" & "pwd=" & Form1.Text2 & ";"
cxnfac.Open

SQL = "select price from merchant_buylists"

Set rs = cxnfac.Execute(SQL, , adCmdText)

Do While Not rs.EOF
List1.AddItem rs!price
rs.MoveNext
Loop
rs.Close

End Sub

[Mapachita2807]

A mi me pasaba eso cuando trataba de darle los valores por propiedades a las listas, y no de la forma "Artesanal"... prueba antes del Do While poniendo un rs.MoveFirst, y revisa si en realidad necesitas el rs.MoveNext
Esop, espero que sea de ayuda