RE:como puedo conectar una base de datos???
Debes tener la base de datos en una carpeta compartida del servidor para poder accesarla desde las otras PC's...
Ahora lo siguiente es accesarla por medio de Visual Basic así que crearemos un Módulo en el que agregamos lo siguiente:
Private con As ADODB.Connection '***Variable de tipo conexion que contendra la conexion activa con la Base de Datos
Public cmd As ADODB.Command '***Variable de tipo command que ejecutara las consultas a la Base de Datos
Public rs As ADODB.Recordset '***Variable de tipo recordset que almacenara la informacion extraida de la Base de Datos por la varible de tipo command
'***Este procedimiento Inicializa las variables
Public Sub Inicializar()
Set con = New ADODB.Connection
Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset
cmd.ActiveConnection = Con '***Establece que la variable de tipo command utilizara la variable de tipo conexion para ejecutar los queries a la Base de Datos
cmd.CommandType = adCmdText '***Establece el tipo de command como texto simple o llamada a procedimiento almacenado
End Sub
'***Con este procedimiento abres la conexión con la base de datos
Public Sub Abrir()
Inicializar
con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\ServidorCarpetaarchivo.mdb; persist security info=False"
Servidor --> Nombre de la PC donde está la base de datos
Carpeta --> Carpeta compartida en la PC de la base de datos
archivo.mdb --> Lo sustituyes por el archivo de tu base de datos
'***Con este procedimiento cierras la conexión con la base de datos
Public Sub Cerrar()
con.Close
End Sub
Una vez que ya tienes esto en un módulo entonces podrás accesarlo desde cualquier formulario en ese proyecto y hacer consultas a la base de datos, te pondré una de ejemplo para que tu la implementes en tu caso...
Supongamos quetengo en mi base de datos una tabla llamada Personas con los campos Nombre, Identidad, Nacimiento, Direccion, etc...
Y quiero saber el nombre y el número de identidad de cada persona entonces hago lo siguiente (Esto va en un formulario, talvez en un botón o que sé yo, supongamos que el módulo donde puse la conexión a la base de datos se llama mdlConexion):
Private Sub ObtenerDatos()
'***Abrimos conexión
mdlConexion.Abrir
'***Hacemos la consulta por medio del objeto Command que definimos
cmd.CommandText = "SELECT NOMBRE,IDENTIDAD FROM PERSONAS"
'***Ahora asignamos el resultado de la consulta al recordset
Set rs = cmd.Execute
'***Y recorremos el recordset para obtener los datos
While not rs.EOF then
MsgBox "Nombre: " & rs(0) & ", Identidicación: " & rs(1)
rs.MoveNext
Wend
rs.Close
set rs = Nothing
End Sub
***Nota: para que puedas utilizar ADODB en Visual Basic debes agregar las referencias a este para lo cual haces lo siguiente:
En Visual Basic vas al menú Proyecto, Referencias y buscas la referencia Microsoft ActiveX Data Objects, puedes utilizar la más actualizada y luego marcas la casilla de verificación que tiene la referencia y le das Aceptar y listo...
Espero que te sirva de algo...
Saludos!!
PD: Los ejemplos no han sido probados por tanto no descarto posibles pequeños errores de sintaxis...
