Conexion SQL Server con VB 6

Como puedo conectarme a una Base de Datos en SQL Server 7 con VB6 dentro de una Forma...
Agradecería mucho tu ayuda...

1 respuesta

Respuesta
Checa el siguiente código:
Private Sub Form_Load()
Dim strCadenaConexion As String
On Error GoTo hdError
strCadenaConexion = "Provider=SQLOLEDB.1;Persist
Security Info=False;User ID=sa;PWD=;Data
Source=MLAZARO;Initial Catalog=ObrasPublicas"
Set pConexion = New ADODB.Connection
pConexion.ConnectionString = strCadenaConexion
pConexion.Open
MsgBox "la conexiOn ha sido abierta",
vbInformation
pConexion.Close
Set pConexion = Nothing
Exit Sub
hdError:
MsgBox Err.Description, vbCritical, App.EXEName &
".Form_Load"
Err.Clear
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas