Visual Basic - Consulta base de datos con vb6

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

Consulta base de datos con vb6

Publicado por juan antonio (22 intervenciones) el 15/05/2016 11:39:20
Hola a todos soy un aficionado de vb6.
Queria saber si me podeis solucionar un problema.
estoy creando unas consultas con este codigo:
1
2
3
4
5
6
7
8
9
10
11
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dirClientes
 
rst.Open "SELECT * FROM clientes WHERE nombre ='" & nombreCliente & "'", cnn, adOpenDynamic, adLockOptimistic
 
rst.Update
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing

Lo que quisiera hacer es estender la consulta a varios campos a la vez y he puesto esto

1
'rst.Open "SELECT * FROM datos_tabla where nombre ='" & cogeNombre & "'" And modelo= '" & cogeModelo & "'" And cliente='" & cogeCliente , cnn, adOpenDynamic, adLockOptimistic

pero no me funciona.
Si alguo me puede ayudar estaria muy agradecido ya que he probado de varias maneras y no me funciona.
Gracias un Saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.117
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta base de datos con vb6

Publicado por Andres Leonardo (1775 intervenciones) el 15/05/2016 20:42:50
crea el select como un string....

y prueba ese string en access ... cuando ya te funcione. lo corriges en bv

mira que en esta parte

And cliente='" & cogeCliente

te falta cerrar la comilla

po
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Leonardo Daniel A.
Val: 52
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Consulta base de datos con vb6

Publicado por Leonardo Daniel A. (29 intervenciones) el 15/05/2016 20:56:04
mejor usa las sentencias SQL en un string

Dim sSQL as string

sSQL = "SELECT * FROM datos_tabla where nombre ='" & cogeNombre & "'" And modelo= '" & cogeModelo & "'" And cliente='" & cogeCliente

y manda un MsgBox con sSQL a ver como te la formo y asi revisas si te falto alguna coma o comillas ;)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar