Como conectar Visual Basic con una base de datos de Access o SQL Server 2000

Crear proyecto EXE o abrir uno que ya tengas trabajado
Crear un nuevo modulo con el menú: Proyecto > Agregar modulo

[Tienes que estar registrado y conectado para ver esa imagen]

En la nueva ventana selecciona Modulo dar click en Abrir

[Tienes que estar registrado y conectado para ver esa imagen]

Bueno ya tenemos el modulo donde iremos colocando el código ahora haremos la referencia a las librerías.

Vamos a menú Proyecto > Referencias

[Tienes que estar registrado y conectado para ver esa imagen]

Y en la lista de la nueva ventana buscamos “Microsoft ActiveX Data Objects 2.7” Library y ya que la encontramos, la seleccionamos y damos click en Aceptar

[Tienes que estar registrado y conectado para ver esa imagen]

Ya con todo listo vamos al código, como dije antes, el código se colocara dentro del modulo y será de a siguiente forma

Código:

Public RBASEDDATOS As ADODB.Connection
Public RTABLA1 As ADODB.Recordset
Public RTABLA2 As ADODB.Recordset
. . .
Public RTABLAN As ADODB.Recordset

Ok, explico, RBASEDDATOS, RTABLA1, RTABLA2 son variables, la primera es la única que es de tipo “Connection” ya que mas adelante a través de ella haremos la conexión, las otras dos son tipo “Recordset” las cuales hacen referencia a las tablas, como toda variable se pueden llamar de la manera que gustes, pero de preferencia que tengan que ver con el contenido, RTABLAN es para decir que pueden colocar tantas líneas como tablas deseen conectar. Es decir si quieren conecar 5 tablas tienen que tener 5 líneas como esta Public RTABLA1 As ADODB.Recordset obviamente con diferentes nombres, el siguiente código va después de eso que ya mostre.

Public Function ConexionBD()
    Set RBASEDDATOS = Nothing
    Set RTABLA1 = Nothing
    Set RTABLA2 = Nothing
    . . .
    Set RTABLAN = Nothing

    Set RBASEDDATOS = New ADODB.Connection
    Set RTABLA1 = New ADODB.Recordset
    Set RTABLA2 = New ADODB.Recordset
    . . .
    Set RTABLAN = New ADODB.Recordset

    AQUÍ VA LA LINEA DE CONEXIÓN DEPENDIENTE DE LA BASE DE DATOS QUE MANEJES

    RTABLA1.Open "select * from TABLA1", RBASEDDATOS, adOpenDynamic, adLockOptimistic
    RTABLA2.Open "select * from TABLA2", RBASEDDATOS, adOpenDynamic, adLockOptimistic
    . . .
    RTABLAN.Open "select * from TABLAN", RBASEDDATOS, adOpenDynamic, adLockOptimistic

End Function

Bueno ahora solo explicare cada una de los 3 tipos de instrucciones que están ahí
Líneas verdes, asignan un valor NULO a cada variable.

Lineas rojas, crean un objeto dentro de cada variable, el tipo de objeto será el mismo tipo que el valor declarado en la primer parte del código

Líneas azules, esta parte es la que conecta cada variable con la tabla que le corresponde, en la parte que dice “select * from TABLA1” sustituyen TABLA1 por el nombre de la tabla que quieran y RBASEDDATOS es la variable creada de tipo “Connection” que igual sebe ser sustituido por lo que ustedes colocaron.

Ya con eso lo falta la línea de conexión.

Access: <- Esta linea no va en el codigo, solo es para indicar a que tipo de conexion pertenece
RBASEDDATOS.Open "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=" &  App.Path & "\nombrebasedetaos.mdb"  & ";"

SQL Server 2000: <- Esta linea no va en el codigo, solo es para indicar a que tipo de conexion pertenece
RBASEDDATOS.Open "provider=SQLOLEDB; Initial Catalog= nombrebasedetaos; Data Source= localhost; integrated security=SSPI; persist security info=True;"

En ambas líneas esta presente “nombrebasedetaos” el cual tiene que ser sustituido por el nombre de la base de datos que quieren conectar

Nota: en el caso de la línea de Access, App.Path se usa para indicar 
que a base de datos esta en la misma carpeta que el sistema que estamos 
creando lo cual es lo mas recomendable. 

wow amix!!! le dire a mi hermano que se inscriba al foro el utiliza esto del SQL , sabes que mi hermano no puede instalar SQL en su lap, quien sabe pork, su lap tiene Vista

pues dependiendo si es SQL server o MySQL lo que quiere instalar, ambos tienen formas diferentes y complicadas de instalar, y que que si seleccionas una opción mal puede que te funcione pero no para trabajar en red o para no hacer ciertas cosas....

creo que es SQL server mmmm o le preguntare

Si, preguntal y me avisas! para ver si le podemos ayudar o crear un tuto correspondiente! sale?

Hola hice todo el proceso, pero me gustaria sabe especificamente en que lugar va
SQL Server 2000:
RBASEDDATOS.Open "provider=SQLOLEDB; Initial Catalog= EAC_LA_ESPERANZA; Data Source= localhost; integrated security=SSPI; persist security info=True;" si en el modulo o el FORM_LOAD
ademas si RBASEDDATOS es el nombre de la base de datos, en mi caso se llama EAC_LA_ESPERANZA. Me urge me ayudes porfa

ok mira, en el codigo que puse pues esta parte:

Public Function ConexionBD()
Set RBASEDDATOS = Nothing
Set RTABLA1 = Nothing
Set RTABLA2 = Nothing
. . .
Set RTABLAN = Nothing

Set RBASEDDATOS = New ADODB.Connection
Set RTABLA1 = New ADODB.Recordset
Set RTABLA2 = New ADODB.Recordset
. . .
Set RTABLAN = New ADODB.Recordset

AQUÍ VA LA LINEA DE CONEXIÓN DEPENDIENTE DE LA BASE DE DATOS QUE MANEJES

RTABLA1.Open "select * from TABLA1", RBASEDDATOS, adOpenDynamic, adLockOptimistic
RTABLA2.Open "select * from TABLA2", RBASEDDATOS, adOpenDynamic, adLockOptimistic
. . .
RTABLAN.Open "select * from TABLAN", RBASEDDATOS, adOpenDynamic, adLockOptimistic

End Function

------------------------------------

La linea que he resaltado en color es la que tienes que quitar para poner la instrucción que conecta a SQL Server.

Cuya linea es:

RBASEDDATOS.Open "provider=SQLOLEDB; Initial Catalog= nombrebasedetaos; Data Source= localhost; integrated security=SSPI; persist security info=True;"

al igual que lo anterior, la linea que resalte es la que tienes que sustituir por el nombre de tu base de datos.

PD: Todo el codigo va en el modulo

Las problemas parecidas tienen soluciones diferentes. Pero uno de mejor decision es la utiliza proxima que socorre par dias antes - [Tienes que estar registrado y conectado para ver este vínculo].