Error '13' en tiempo de ejecución: No coinciden los tipos VISUAL BASIC 6

[ñ_ñ@_@o_O]

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:

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

 

[jmvd70]

Saludos partner

Obviamente hay algo incorrecto.
checa esta página

http://support.microsoft.com/kb/287638/es

 

[infomar]

Es muy fácil, tu llave primaria es entero e intentas buscar un texto.
Solución: buscar en la base de datos por el nombre de la tienda O ponle a tu "seek" un entero ID de la tienda.
Además estas cambiando el valor de los textboxs just después del seek. Es una buena práctica revisar si el "seek" encontró un valor antes de asignarle datos.
Todos esos errores son de lógica.. te recomiendo checar antes la ayuda de todo y entender que estás tratando de hacer.
Saludos,
Omar

 

[incognitus4ever]

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:

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

Reemplaza la linea

Valor=List1.Text

por la siguiente

Valor=Val(List1.Text)

Saludos.