Visual Basic - VB+sybase

Life is soft - evento anual de software empresarial
   
Vista:

VB+sybase

Publicado por MARCO (4 intervenciones) el 03/03/2008 16:56:24
HOLA AMIGO NECESITO ALGUIEN QUE ME AYUDE, LO QUE PASA ES QUE DEBO CONECTAR UNA APLICACION EN VISUAL 6.0 CON SYBASE Y STORED PROCEDURES ..AHORA YA TENGO EL CODIGO PARA LLAMAR AL SP DE SYBASE PERO EN LA CONEXION CREO QUE ESTOY HACIENDO ALGO MAL PORQUE EN UN MODULO REALIZO LA CADENA DE CONEXION DE LA SIGUIENTE MANERA

/*****************
MODULO

Global varconect
'Public varconect As New connection

Sub Main()
Dim varsql As String
Dim strCnn As String

On Error GoTo ErrMain
Set varconect = New ADODB.connection
'Set varGAdoConexion1 = New ADODB.Connection
varconect.ConnectionString = "driver={SQL Server};server=MARCOSYB;Uid=sa;Pwd=;datadase=MIMARCO"
'varconect.CommandTimeout = 30
varconect.Open '"driver={SQL Server};server=MARCOSYB;Uid=sa;Pwd=;datadase=MIMARCO"
'frmbusca.Show
varconect.CursorLocation = adUseServer

Exit Sub
ErrMain:
MsgBox Err.Description, vbInformation

End Sub

/****************

PERO AL EJECUTAR EL PROG LOS PARAMETROS DEL SP SI TOMAN LOS VALORES DE LOS DATOS QUE INGRESO POR EL FRONT END ..CREAO QUE ME FALTA AGREAGAR ALGO PARA ADO ABISENME AQUI EL CODIGO

CODIGO VB 6.0


Dim rsMarca As ADODB.Recordset
Dim cmdMarca As ADODB.command
Dim varsql As String
Private Sub cmdaceptar_Click()
'Esto es para agregar un nuevo registro a la tabla de marca en la Base de Datos
If txtid.Text = "" Then MsgBox "Ingrese el ID de usuario", vbOKOnly + vbInformation, "Atencion": txtid.SetFocus: Exit Sub
If txtlogin.Text = "" Then MsgBox "Ingrese el login", vbOKOnly + vbInformation, "Atencion": txtlogin.SetFocus: Exit Sub
If txtclave.Text = "" Then MsgBox "Ingrese la clave", vbOKOnly + vbInformation, "Atencion": txtclave.SetFocus: Exit Sub
Set cmdMarca = New ADODB.command
cmdMarca.ActiveConnection = varconect
cmdMarca.CommandType = adCmdStoredProc
cmdMarca.CommandText = "sp_insertar_usuario" ' Llamamos al store que agregara los registros que esta en MySQL
'Aca le mandamos los parametros de ingreso
cmdMarca.Parameters.Append cmdMarca.CreateParameter("id", adInteger, adParamInput, 3, txtid.Text)
cmdMarca.Parameters.Append cmdMarca.CreateParameter("login", adVarChar, adParamInput, 10, txtlogin.Text)
cmdMarca.Parameters.Append cmdMarca.CreateParameter("clave", adVarChar, adParamInput, 50, txtclave.Text)
cmdMarca.Execute
MsgBox "Registro insertado satisfactoriamente", vbOKOnly + vbInformation, "Atencion"
'rsMarca.Open varsql, varconect, adOpenStatic, adLockReadOnly

End Sub

/********************
DE LO CUAL AL MOMENTO DE GRABAR DATOS CON EL SP ME SALE EL SIGUIENTE ERROR

ERROR "3001" EN TIEMPO DE EJECUCION
ARUMENTOS INCORRECTOS,FUERA DEL INTERVALO PERMITIDO
O EN CONFLICTO CON OTROS.

PORFAVOr SI ALGUIEN ME PUEDE AYUDAR SE LO AGRADECERIA MUCHO
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

RE:VB+sybase

Publicado por Peter lupus (1 intervención) el 19/05/2009 20:27:08
Veo que en la conexion estas especificando como driver de conexion a SqlServer, y lo que deberias ocupar seria el driver de Sybase.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar