Foros del web, para los que viven de bits

Avantasiano · 21-abr-2004, 02:22

llevo 1 semana buscando errores en el sigueinte codigo de visual basic:
Dim criterio As String
vari1 = Combo1.Text
Set rs = New Recordset
rs.ActiveConnection = cn
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.Source = "Select equipo.* from equipo where equipo.Nombre Empleado like '" & vari1 & "'"
rs.Open
'rs.Source = "select * from equipo where "Nombre Empleado" like '" & vari1 & "'"
Text12.Text = salario.Fields("Nombre Empleado").Value
Text1.Text = rs.Fields("Dias ejecucion").Value
Text13.Text = salario.Fields("CodProyecto").Value
Text2.Text = rs.Fields("Dias estimados").Value
salario.Close
rs.Close

el codigo es de un combo en el cual seleccionando el nombre del cliente los demas campos deberian actualizarse en funcion del registro elegido pero me da problemas con la consulta porque dice que le falta un operador.
Gracias por la ayuda y por vuestro tiempo

unholy · 21-abr-2004, 03:33

Asi a bote pronto, no se porque usas el REcordset y no el ADODB.Recordset, a no ser porque te hayas implementado un acceso a datos.

Lo de equipo.* te sobra, pon solo * ya que no estan en un join ni en una consulta cruzada.

Las comillas en el where estan mal puestas, en uno de los lados tienes 3 y en el otro 5.

De todas formas, para ver donde te falla concretamente y los valores que le estas pasando, depuralo...

21-abr-2004, 02:22	#1 (permalink)
Avantasiano Fecha de Ingreso: abril-2004 Ubicación: zgz Mensajes: 1	duda urgente necesito solucion por favor llevo 1 semana buscando errores en el sigueinte codigo de visual basic: Dim criterio As String vari1 = Combo1.Text Set rs = New Recordset rs.ActiveConnection = cn rs.CursorType = adOpenStatic rs.LockType = adLockOptimistic rs.CursorLocation = adUseClient rs.Source = "Select equipo.* from equipo where equipo.Nombre Empleado like '" & vari1 & "'" rs.Open 'rs.Source = "select * from equipo where "Nombre Empleado" like '" & vari1 & "'" Text12.Text = salario.Fields("Nombre Empleado").Value Text1.Text = rs.Fields("Dias ejecucion").Value Text13.Text = salario.Fields("CodProyecto").Value Text2.Text = rs.Fields("Dias estimados").Value salario.Close rs.Close el codigo es de un combo en el cual seleccionando el nombre del cliente los demas campos deberian actualizarse en funcion del registro elegido pero me da problemas con la consulta porque dice que le falta un operador. Gracias por la ayuda y por vuestro tiempo

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

21-abr-2004, 03:33	#2 (permalink)
unholy Fecha de Ingreso: enero-2004 Mensajes: 396	Asi a bote pronto, no se porque usas el REcordset y no el ADODB.Recordset, a no ser porque te hayas implementado un acceso a datos. Lo de equipo.* te sobra, pon solo * ya que no estan en un join ni en una consulta cruzada. Las comillas en el where estan mal puestas, en uno de los lados tienes 3 y en el otro 5. De todas formas, para ver donde te falla concretamente y los valores que le estas pasando, depuralo...