Visual Basic - conexión access 2000 con Visual basic 6.0

Life is soft - evento anual de software empresarial
 
Vista:

conexión access 2000 con Visual basic 6.0

Publicado por leonardo Vera (2 intervenciones) el 10/10/2005 23:18:35
me pueden ayudar. No sé cómo hacer la conexión entre una aplicación realizada en Visual Basic y una BD access 2000.
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:conexión access 2000 con Visual basic 6.0

Publicado por weirdmix (36 intervenciones) el 11/10/2005 01:08:28
lo mas facil para mi es usar objetos ADO, solo tienes q encotrar la cadena de conexion para access y listo!!
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:conexión access 2000 con Visual basic 6.0

Publicado por Lucyfer (140 intervenciones) el 11/10/2005 17:30:03
Con los objetos ADO.

Por cierto tienes que tener Service Pack 4

Primero tienes que hacer una conexion a la base de datos, esto te sera util tambien para hacer reportes ( esto es lo mas dificil )

Despues crear el objeto e indicar a que conexion y tabla va a usar.

Yo al igual que muchos, no los utilizo mucho pues aunque son muy comodos no permiten mucho control de parte del programador.
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:conexión access 2000 con Visual basic 6.0

Publicado por Arnaldo (53 intervenciones) el 12/10/2005 04:31:08
Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset 'Tabla_Uno
Dim Rs1 As New ADODB.Recordset 'Tabla_Dos
'Declaro la conexion con la base de datos y con cada una de las tablas
'que necesito

Cn.Open "DSN=Nomb_Archivo.mdb"
Rs.CursorType = adOpenStatic
Rs.LockType = adLockBatchOptimistic
Rs.Open "SELECT * FROM Tabla_Uno", Cn, , adLockBatchOptimistic

Rs1.CursorType = adOpenStatic
Rs1.LockType = adLockBatchOptimistic
Rs1.Open "SELECT * FROM Tabla_Dos", Cn, , adLockBatchOptimistic
'en esta instancia podes elegir los diferentes metodos de apertura,estos
'que expongo te pueden servir.
'En la apertura se puede escrivir la sentencia SQL que a uno mas le convenga.
'de esa forma ya tendrias conexion con la base de datos desde VB6.0 con
'acces 2000.

IF Rs.EOF=false THEN
Rs.movefirst
While (RsO.EOF = False) And (okl = False) 'El booleano lo utilice para salir
'instrucciones de accion para busqueda
Rs.moveNext
Wend
END IF
'En este metodo recorres una tabla de acces, hasta encontrar el
'elemento desceado.

Rs1.AddNew
Rs.Fields(0).Value = 12 'ID P K de la Tupla 'Env. valor a celda
'determinada posicion.
Rs!Nomb_Empleado=Text1.Text 'Env. Valor a celda por nombre.
Rs![Apellido de empleado ]= Text2.text 'Env. valor a celda por nombre,
'si tuviece espacios.
Rs1.UpdateBatch
'Este ultimo metodo es para agregar valores a celdas de la Tupla.

'Espero que te sirva la info, si necesitas te puedo enviar algun fuente.
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