Foros | Webinarios | Blogs
 

coneccion sql server con visual basic 6

Seguir
Hola a todos, tengo el siguiente codigo de coneccion de visual basic a una base de datos de acces; la bd se cambio a sqlserver 2008 express. Pero para probar el sistemas con la bd de sqlserver necesito cambiar la conexion y no me ha podido funcionar; el codigo de conexion que hay es el siguiente:

Option Explicit
'Conbase: Objeto para la coneccion a la base de datos
Public Conbase As ADODB.Connection

Public Sub AbrirBaseDatos()
If Dir(App.Path & "\BD.mdb") = "" Then
ConexionRed
If Dir("K:BD.mdb") = "" Then
MsgBox "No se ha encontrado la base de datos", vbCritical, "Error"
End
Else
Set Conbase = New ADODB.Connection
Conbase.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=K:BD.mdb;PWD=123456"
End If
Else
Set Conbase = New ADODB.Connection
Conbase.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\BD.mdb;PWD=123456"
End If
End Sub

Utilizando la conexion con: "Data Source=sqlexpress;Initial Catalog:BD.mdf;user id:auxsistemas;pwd:''"; no me funciona. Me gustaria saber como puedo reemplazar el codigo para poder conectar con la bd de sqlserver

Agradezco por favor su ayuda teeth smile


2 Soluciones propuestas

Como emergencia podés usar:

Conbase.Open "Driver={SQL Server};Server=myServerAddress;Database=myDataBase;Uid=myUsername;Pwd=myPassword;"

Para no trabajar "al azar", lo más conveniente es que vayas a Panel de Control, Herramientas Administrativas, Orígenes de Datos (ODBC), solapa DSN de Sistema, Agregar..., buscás al final:
SQL Server: Es el acceso compatible con SQL 2000.
SQL Native Client: Es el acceso compatible con SQL 2005.
Seleccióna SQL Server para probar.
Finalizar
Nombre: xxx (es cualquiera, no es necesario que coincida con nada)
Abrís el Combo y debe aparecer el Servidor SQL. Si no aparece, puede ser por: Firewall bloqueando los puertos, conexión TCP no habilitada en el SQL Server.
El acceso debe configurarse con Usuario y Contraseña de SQL, de lo contrario es necesario ser Administrador.
El usuario del SQL es sa
La contraseña la colocaste al instalar el SQL
De ahí seguís configurando, hasta obtener acceso.

Luego reemplazás las negritas por los datos reales.

Te recomiendo esta excelente página por si te encontrás con problemas:
http://www.connectionstrings.com/

Saludos!
SOLUCIÓN ACEPTADA
Este es la conexion que utiliyo yo en un SQL2005
db_Conexion = "Provider=SQLOLEDB.1;Driver={SQLServer};" _
& "Server=" & dbc_Server_Estructura & ";" _
& "Database=" & dbc_Base_Estructura & ";" _
& "Uid=" & dbc_Usr_Estructura & ";" _
& "Pwd=" & dbc_Pwd_Estructura & ";Dsn=;"


Esto es usando ADOdb.connection Dim Cn As ADODB.Connection
Set Cn = CreateObject("ADODB.Connection")
Dim Response


Cn.ConnectionString = strConexion
Cn.ConnectionTimeout = 90
Cn.CommandTimeout = 300
Cn.CursorLocation = adUseClient
Cn.Open strConexion, pbc_Usuario_SQL, pbc_Clave_SQL

Cn.Execute SQL ', , adAsyncExecute