Visual Basic - ACCESO A BASE DE DATOS ACCESS

Life is soft - evento anual de software empresarial
   
Vista:

ACCESO A BASE DE DATOS ACCESS

Publicado por rafa (7 intervenciones) el 20/04/2009 16:46:27
Buenas tardes, haber si alguna alma caritativa me ayuda, estoy empezando con basic asi que mis dudas son muy basicas( incluso ridiculas para alguien que sepa mas) tengo bastante codigo escrito, es el primer programa que hago asi que lo he ido haciendo a pedazos asi que al compilar se me ha venido todo abajo, bueno al grano

QUIERO ACCEDER A LA BASE DE DATOS Y SIEMPRE ME DA FALLOS, ELCODIGO ES ESTE:

Option Explicit

Dim db As Database
Dim TBL1 As Recordset
Dim INV As String
Dim con As Connection

Public Sub ALLA()

db = CurrentDb() ' el fallo siempre es aqui,,,,," EL USO DE LA PROPÌEDAD NO ES VALIDO"
INV = "Select * FROM INVENTARIO"
Set TBL1 = BDD.OpenRecordset(INV)

If TBL1.EOF Then
MsgBox ("NO SE ABRE LA BASE DE DATOS")
Else
MsgBox (" SE ABRE LA BASE DE DATOS")

End Sub

POR FAVOR DECIRME COMO ES, SI ESTA TODO MAL O LO QUE SEA

Muchas gracias
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:ACCESO A BASE DE DATOS ACCESS

Publicado por ana (24 intervenciones) el 20/04/2009 23:43:24
hola rafa, para abrir una tabla de access usando ado es facil, aunke algo viejo pero funciona y hara lo ke kieras

pones como referencia microsoft ado ext 6.0 for dll etc...

al iniciop del form pones esto:

Dim rec As Recordset
Dim bd As Connection
Dim SQL As String

para conectar usas esto:

Set db = OpenDatabase("rutadetutabla.mdb")
SQL = "SELECT * FROM tutabla WHERE campo LIKE '" & Text1.Text & "'"
Set rs = db.OpenRecordset(strSQL)
text2.text = rs("campo")

espero te sirva, saludos
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:ACCESO A BASE DE DATOS ACCESS

Publicado por rafa (7 intervenciones) el 21/04/2009 10:34:41
muchas gracias Ana
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:ACCESO A BASE DE DATOS ACCESS

Publicado por P3L30N2009 (701 intervenciones) el 21/04/2009 10:54:05
Bueno, simplemente para no confundir al personal:

Para ana:
Creo que te haces un lio con ADO y DAO; hablas de referenciar ADO y la apertura la haces con DAO.

...referencia "microsoft ado ext. 6.0 for dll etc..." NO! la referencia es "Microsoft DAO 3.6 Object Library".

"Dim bd As Connection" No! para referenciar una conexión DAO (en este ámbito): "Dim bd As Database"

Para rafa:

Sustituye "db = CurrentDb()" por "Set db = OpenDatabase("<RutaBaseDatos>\NombreDB.mdb")
Set TBL1 = db.OpenRecordset(INV)

Y si estás empezando con el acceso a bases de datos, MS recomienda hacerlo a través de ADO.
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