Visual Basic - AYUDA PORFAVOR!!! CON CONEXION ADO

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA PORFAVOR!!! CON CONEXION ADO

Publicado por Angela (97 intervenciones) el 15/01/2003 17:06:15
Hola
Estoy haciendo una conexion ado con sql server pero cuando mando llamar el preocedimiento me dice que no encuentra el stored procedure que mando llamar que tengo mal asi hago mi coneccion.
La base de datos se llama practica el nombre del servidor no se donde pueda verlo pues me imagino que es local pues solo estoy practicando y no estoy conectada en red ni nada y tengo instalado el sql server como desktop,trabajo con vb5 y sql server 7, ojala me puedan ayudar de antemano muchas gracias!!!
Este es el codigo
Option Explicit
Dim cnm As ADODB.Command
Dim cn As ADODB.Connection
Private Sub msconectar()
Set cn = New ADODB.Connection
With cn
.Provider = "sqloledb"
.ConnectionString = "user id=sa" & ";control source=" & "" & ";initial catalog=" & ";PRACTICA"
.Open
End With
End Sub
Private Sub msdesconectar()
cn.Close
End Sub
Private Sub Command2_Click()
Dim iscita As String
Dim isnumero As Long
iscita = InputBox("Introduzca la cita", "Añadir cita")
If iscita <> "" Then
msconectar
Set cnm = New ADODB.Command
With cnm
.Parameters.Append .CreateParameter("cita", adVarChar, adParamInput, 10, iscita)
.Parameters.Append .CreateParameter("id", adInteger, adParamOutput, 4, isnumero)
.CommandText = "spcita"
.CommandType = adCmdStoredProc
Set cnm.ActiveConnection = cn
cnm.Execute
MsgBox "El codigo es" & cnm.Parameters(1).Value
msdesconectar
End With
End If
msconectar
End Sub

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