Visual Basic - Accder a una base de datos en Visual Basic

Life is soft - evento anual de software empresarial
 
Vista:

Accder a una base de datos en Visual Basic

Publicado por Elena (9 intervenciones) el 17/12/2004 18:42:01
Me podrias mandar el codigo para acceder a una base de datos en visual basic.. Lo he intentado hacer con la ayuda del visual pero no me reconoce el termino database dice que no es una clase. Hay que hacer antes algo. Me lo podrias indicar paso a paso. Muchas Gracias. Por favor es urgente.
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:Accder a una base de datos en Visual Basic

Publicado por miguel (1042 intervenciones) el 17/12/2004 19:09:45
Para que te reconozca "Database" es necesario activar la referencia "Microsft DAO 3.51 Object Library" o la version que tengas, y luego puedes obtener los datos de esta manera, por ejemplo llenar un combo de Nombres de Empleados:
' A nivel de módulo:
Dim MiDb As Database
Dim rs As Recordset
Dim Sql As String

Private Sub Form_Load()
Sql = "SELECT DISTINCT Nombre FROM Empleados"
Set MiDb = OpenDatabase("C:\Datos.mdb") 'Tu Ruta de la BD
Set rs = MiDb.OpenRecordset(Sql)
rs.MoveFirst
Do Until rs.EOF
Combo1.AddItem rs!Nombre
rs.MoveNext
Loop
End Sub
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:Accder a una base de datos en Visual Basic

Publicado por Salvador (1 intervención) el 18/12/2004 03:27:25
En: proyecto-->referencias---> microsoft Dao 3.51 o 3.6 (para access 2000)

Y lo haces como dice miguel.
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

Sin Referencias

Publicado por hely (126 intervenciones) el 19/12/2004 02:15:54
agrega un control data a tu formulario

Private Sub Form_Load()
Data1.DatabaseName = "MiBasedeDatos97.mdb"
Data1.RecordSource = "UnaTablademiBD"
Data1.Refresh
End Sub
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