Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

SQL Parametros sin valores

12/09/2008 - 03:56 por Fabian | Informe spam
Ayuda Hacer una pregunta
La semana pasada Hector me respondio una consulta con un codigo casi
calcado de Este que muestro aqui, solo cambia el metodo en el WHERE,
despues de cuatro horas de no poder con El, pido ayuda, el mensaje de
error es en la linea del recodset, con el siguiente mensaje:
""""No se han especificado valores para algunos de los parametros
requeridos.""""
Gracias.
Sub CargarAutoForm1()
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim strSQL As String
Dim Ruta As String
Dim Lista As String
Application.EnableEvents = False
Ruta = ThisWorkbook.Path
Lista = UserForm1.ListBox1.Text
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\Base.mdb"
.Open
End With
strSQL = "SELECT * FROM Compras WHERE Nombre= " & Lista & ""
Rst.Open Source:=strSQL, ActiveConnection:=Cnn,
CursorType:=adOpenKeyset, LockType:=adLockOptimistic '''LINEA DEL ERROR
With UserForm1
.TextBox1 = Rst!Nombre
.TextBox2 = Rst!Direccion
.TextBox3 = Rst![Codigo Postal]
'''''' ETC >>
End With
Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing
Application.EnableEvents = True
End Sub
email Siga el debateRespuesta 5 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Héctor Miguel
12/09/2008 - 04:39 | Informe spam
hola, Fabian !

La semana pasada Hector me respondio una consulta con un codigo casi calcado de Este que muestro aqui
solo cambia el metodo en el WHERE, despues de cuatro horas de no poder con El, pido ayuda
el mensaje de error es en la linea del recodset, con el siguiente mensaje:
""""No se han especificado valores para algunos de los parametros requeridos.""""



(creo que) habria que determinar cual codigo es una "calca" de cual otro (asumiendo que el "original" SI funciona ?) :))
prueba haciendo una ligera modificacion a solamente una linea (a ver si ves la diferencia)... ;)

de: -> strSQL = "SELECT * FROM Compras WHERE Nombre= " & Lista & ""
a: -> strSQL = "SELECT * FROM Compras WHERE Nombre = " & Lista & ";"

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ el codigo expuesto __
Sub CargarAutoForm1()
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim strSQL As String
Dim Ruta As String
Dim Lista As String
Application.EnableEvents = False
Ruta = ThisWorkbook.Path
Lista = UserForm1.ListBox1.Text
With Cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & Ruta & "\Base.mdb"
.Open
End With
strSQL = "SELECT * FROM Compras WHERE Nombre= " & Lista & ""
Rst.Open Source:=strSQL, ActiveConnection:=Cnn, CursorType:=adOpenKeyset, LockType:=adLockOptimistic '''LINEA DEL ERROR
With UserForm1
.TextBox1 = Rst!Nombre
.TextBox2 = Rst!Direccion
.TextBox3 = Rst![Codigo Postal]
'''''' ETC >>
End With
Rst.Close: Set Rst = Nothing
Cnn.Close: Set Cnn = Nothing
Application.EnableEvents = True
End Sub

Preguntas similares

 

Busqueda sugerida :