ñ_ñ@_@o_O dijo:

Hola que tal compañeros: el motivo de este tema es para solicitar su apoyo para poder corregir un error que tengo y no he podido lograr correrlo.

Tengo una base de datos en sql y la quiero adinistrar con un pequeño programita, el detalle es el siguiente:

1.- tengo en mi forma 1 tengo 4 campos de texto y un list.txt

http://www.imagebam.com/image/71b15d197121308
2.- En la forma hago la conexion a la base de datos y pongo los datos en la lista:

Código:

Private Sub Form_Load()
Set mc = New ADODB.Connection
mc.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=stores; User=root;Password=;Option=3;"
mc.Open


List1.Clear
Dim sql As String
Set rs = New ADODB.Recordset
sql = "select tienda from tiendas"
rs.Open sql, mc, adOpenDynamic, adLockBatchOptimistic
With rs
 rs.MoveFirst
 Do Until .EOF
List1.AddItem rs!tienda
rs.MoveNext
Loop
End With
End Sub

http://www.imagebam.com/image/ceca7f197121312


3.- en la lista1.text cuando ya estan cargados los datos, al seleccionar un dato de la lista quiero que se pasen los demas datos de la base de datos a los campos de texto correspondientes. pero al seleccionar me manda el siguiente mensaje

http://www.imagebam.com/image/cd9963197121315

4.- Le doy depurar y me selecciona la siguiente linea de codigo de ka list1_click()

http://www.imagebam.com/image/d8b7bf197121319


5.- Mi base de datos es la siguiente:

http://www.imagebam.com/image/b37d21197121323


6.- Me comentarion que me manda eso por que el valor que jalo de la lista es texto y no numerico, pero espero y me puedan apoyar para poder solucionar este pequeño detalle. Gracias, excelente dia compañeros

Click para expandir ...