| Pregunta: | 7960 - VISUAL BASIC 5.0 Y SQL 7.0 |
| Autor: | Juan Francisco Enriquez Piña |
| Me gustaría saber como conectarme a la base de datos SQL 7.0(servidor)desde mi aplicación Visual basic 5.0 (cliente), o alguna página o libro donde pueda encontrar esta información. | |
| Respuesta: | Irlanda Nuñez |
| Esta es una coneccion con RDO sin DSN
'gsUsuario_SQL = USUARIO DE SQL 'gsPassword_SQL = PASSWORD DEL USUARIO 'gsServidor = NOMBRE DEL SERVIDOR Function Abrirconnection() As Boolean On Error GoTo parr_error Abrirconnection = False Set db = rdoEnvironments(0).OpenConnection(dsname:="", Prompt:=rdDriverNoPrompt, _ Connect:="uid=" & gsUsuario_SQL & ";pwd=" & gsPassword_SQL _ & ";driver={sql server};rdoconnection=NOMBRE BASE DE DATOS;server=" & gsServidor & ";") db.QueryTimeout = 500 Abrirconnection = True Exit Function Error: Call siTypeError End parr_error: siTypeError End Function Sub siTypeError() Dim Mensaje As String MsgBox Mensaje & " " & Chr(vbKeyReturn) & "Se ha Producido el ERROR detallado a continuación", _ vbCritical, "Mensaje del Sistema" Debug.Print Err, Error For Each Errores In rdoErrors Debug.Print Errores.Description, Errores.Number Mensaje = "Descripcion : " & Errores.Description + " Codigo: " + Trim(Str(Errores.Number)) + Chr(vbKeyReturn) Next Errores MsgBox Mensaje, vbCritical, "Mensaje del Sistema" 'End End Sub | |