Consulta SQL
Publicado por Bladimir (6 intervenciones) el 28/01/2008 20:53:23
Hola. Tengo una tabla llamada Codigos en la cual existen tres campos llamados NC, PC e ID. En un formulario tengo un ListBox llamado Com y otro llamado Formulacion y un label llamado Codigo. He construido la siguiente consulta de busqueda
Dim db As Database
Dim rs As Recordset
Dim WS As Workspace
Dim Consulta As String
Set WS = DBEngine.Workspaces(0)
Set db = WS.OpenDatabase("C:/Cardiobeta/Pacientes.mdb")
Set rs = db.OpenRecordset("Codigos", dbOpenDynaset)
Consulta = "SELECT ID FROM Codigos WHERE (PC = Formulacion.text) AND (NC = Com.text)"
Set rs = db.OpenRecordset(Consulta)
Codigo.Caption = rs("ID")
Al seleccionar un item en el Com y otro en Formulacion debe aparecer automaticamente el ID en el label Codigo. Pero al ejecutarlo aparece el mensaje: Error 3061 en tiempo de ejecucion. Pocos parametros. se esperaba 2. Como podria formular mejor la consulta.
Dim db As Database
Dim rs As Recordset
Dim WS As Workspace
Dim Consulta As String
Set WS = DBEngine.Workspaces(0)
Set db = WS.OpenDatabase("C:/Cardiobeta/Pacientes.mdb")
Set rs = db.OpenRecordset("Codigos", dbOpenDynaset)
Consulta = "SELECT ID FROM Codigos WHERE (PC = Formulacion.text) AND (NC = Com.text)"
Set rs = db.OpenRecordset(Consulta)
Codigo.Caption = rs("ID")
Al seleccionar un item en el Com y otro en Formulacion debe aparecer automaticamente el ID en el label Codigo. Pero al ejecutarlo aparece el mensaje: Error 3061 en tiempo de ejecucion. Pocos parametros. se esperaba 2. Como podria formular mejor la consulta.
Valora esta pregunta
0