Ver Mensaje Individual
  #1 (permalink)  
Antiguo 16/01/2006, 13:04
Avatar de aldo1982
aldo1982
 
Fecha de Ingreso: noviembre-2004
Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 20 años, 5 meses
Puntos: 6
(ayuda) No Me Muestra Datos De Una Consulta Con Db Mysql

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
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA