Pregunta: | 6852 - PROBLEMAS AL CONECTAR CON SQL SERVER |
Autor: | German Espinoza |
Hola programdores de la web del programador. Quiero me den una ayuda estoy realizando un programa desde Visual Basic 5.0 pero primero comense a probar el ejemplo del libro el Aupor es Alfonso gonzales y es de cliente servidor, el programa no da error pero no realiza la consulta de actualizacion he buscado de todas forma y nada Bueno el libro dice que se conecta a una base de datos de Access a traves de la fuente de odbc y yo la estoy haciendo a una fuente de odbc pero para una base de datos de SQL Server ya que ese es el programa es el que tengo en el servidor y el codigoes el siguiente: Dim rc As Integer Dim db As Database Dim henv As Long Dim oSQLServer As Object Dim Coleccion As Object Dim disp As Object Dim hdbc As Long Dim hstmt As Long Private Sub conectar_Click() rc = SQLAllocEnv(henv) rc = SQLAllocConnect(henv, hdbc) rc = SQLConnect(hdbc, \"datos remotos\", SQL_NTS, \"\", 0, \"\", 0) If rc = SQL_ERROR Then MsgBox (\"No puedo conectar con la fuente\") rc = SQLFreeConnect(hdbc) rc = SQLFreeEnv(henv) Exit Sub End If rc = SQLAllocStmt(hdbc, hstmt) comandoSQL$ = \"UPDATE anag SET aedad=edad+1\" rc = SQLExecDirect(hstmt, comandoSQL$, SQL_NTS) rc = SQLFreeStmt(hstmt, SQL_DROP) rc = SQLDisconnect(hdbc) rc = SQLFreeConnect(hdbc) rc = SQLFreeEnv(henv) End Sub Nota: las declaraciones de las funciones API las tengo en un modulo aparte a como lo indica el libro, Hay me disculpan por si los molesto pero se que ustedes son las persona que puedo consultar. Adios y que tenga un buen dia y Buena suerte. Atte% |