Usuario
Consulta SQL usando variable

Pregunta
-
Hola, como puedo hacer una consulta sql usando parametros
Public Function BuscarClienteXId(codigo As String) As ADODB.Recordset
Dim rs As ADODB.Recordset
Dim strSQL As String
Dim cmd As New Command
Conectar
strSQL = "SELECT cliRuc, cliRazonSocial, cliCiudad, cliDireccion, cliTelefono, cliCelular WHERE cliCodigo=@codigo FROM Cliente"
cmd.Parameters.Append cmd.CreateParameter("@codigo", adVarChar, adParamOutput, 6, codigo)
Set rs = New ADODB.Recordset
rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
Set BuscarClienteXId = rs
End FunctionPedro Avila
Todas las respuestas
-
Hola
Prueba de esta forma
Public Function BuscarClienteXId(codigo As String) As ADODB.Recordset
Dim strSQL as string
Dim cmd As New ADODB.Command
strSQL = "SELECT cliRuc, cliRazonSocial, cliCiudad, cliDireccion, cliTelefono, cliCelular FROM Cliente WHERE cliCodigo=@codigoend"
cmd.CreateParameter("@codigo", adVarChar, adParamOutput, 6, codigo) Set BuscarClienteXId = cmd.Execute End Function
- Editado ToniAG sábado, 11 de agosto de 2012 14:47
-
-
Hola
e modificado y sin querer he borrado lineas
Public Function Consulta(ByVal codigo As String) As ADODB.Recordset Dim sql As String Dim cmd As New ADODB.Command
sql = "SELECT campo1 FROM tabla WHERE campo=@campo" cmd.CommandText = sql cmd.ActiveConnection = conexion
cmd.Parameters.Append (cmd.CreateParameter("@campo", adVarChar, adParamOutput, 6, codigo))
Consulta = cmd.Execute End Function -
Me dice que la conexion esta cerrada
Public Function BuscarClienteXId(codigo As String) As ADODB.Recordset
' Dim rs As ADODB.Recordset
Dim cmd As New Command
Dim strSQL As String
' Conectar
strSQL = "SELECT cliRuc, cliRazonSocial, cliCiudad, cliDireccion, cliTelefono, cliCelular FROM Cliente WHERE cliCodigo=@codigo"
cmd.CommandText = strSQL
cmd.ActiveConnection = cnMDB
' cmd.CommandType = adCmdText
cmd.Parameters.Append cmd.CreateParameter("@codigo", adVarChar, adParamOutput, 6, codigo)
' Set rs = New ADODB.Recordset
' rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
' Set rs = cmd.Execute
Set BuscarClienteXId = cmd.Execute
End FunctionPedro Avila
-
y si abres la conexion
Public Function BuscarClienteXId(codigo As String) As ADODB.Recordset Dim cmd As New Command Dim strSQL As String Conectar strSQL = "SELECT cliRuc, cliRazonSocial, cliCiudad, cliDireccion, cliTelefono, cliCelular FROM Cliente WHERE cliCodigo=@codigo" cmd.CommandText = strSQL cmd.ActiveConnection = cnMDB cmd.Parameters.Append cmd.CreateParameter("@codigo", adVarChar, adParamOutput, 6, codigo) Set BuscarClienteXId = cmd.Execute End Function
-