Visual Basic - como puedo conectar una base de datos???

Life is soft - evento anual de software empresarial
   
Vista:

como puedo conectar una base de datos???

Publicado por carlos (27 intervenciones) el 18/12/2008 19:45:30
hola buenas tardes quisiera si alguien me puede ayudar en lo siguiente resulta que tengo un programa el cual quiero colocar en cada pc y el cual deseo conectar a una base de datos que se encuentra en el servidor, quisiera saber si alguien me puede dar un ej de una conexion a la base de datos que se encuentra en el pc servidor de antemno muchas gracias, saludos

atte
Carlos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como puedo conectar una base de datos???

Publicado por Jimmy Torres Fonseca (134 intervenciones) el 18/12/2008 21:09:32
Primero que nada debes decir que base de datos utilizas...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como puedo conectar una base de datos???

Publicado por carlos (27 intervenciones) el 18/12/2008 21:19:45
uso una base de datos Acces 2003 esa uso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como puedo conectar una base de datos???

Publicado por Jimmy Torres Fonseca (134 intervenciones) el 18/12/2008 23:21:02
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...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como puedo conectar una base de datos???

Publicado por Jimmy Torres Fonseca (134 intervenciones) el 18/12/2008 23:27:26
Disculpa el string de conexion en el procedimiento para abrir la conexion es el siguiente

con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\Servidor\Carpeta\archivo.mdb; persist security info=False"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como puedo conectar una base de datos???

Publicado por Jimmy Torres Fonseca (134 intervenciones) el 18/12/2008 23:29:56
Antes de la palabra Servidor va doble BackSlash y no solo una como sale en el pasado post jejeje XD...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:como puedo conectar una base de datos???

Publicado por carlos (27 intervenciones) el 19/12/2008 01:08:06
jimmy muchas gracias por haberte tomado el tiempo para describirme detallado como hacerlo muchas gracias te lo agradesco que pases una feliz navidad amigo

atte
carlos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar