SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: er_charly en Lunes 27 de Junio de 2005, 12:00

Título: Base De Datos
Publicado por: er_charly en Lunes 27 de Junio de 2005, 12:00

Hola a todos!!! :D  :D  :D

Hace tiempo q no programo en Visual Basic y se me ha olvidado como abrir una base de dato mediante variables.

Creo q era asi:

1º se declaraban las variables.
2º se empezaba a cargar la base d datos.
base = Data1.Database(App.Path & "Reparacion")
tabla = Data1.Recordset("Material")

Queria saber si me podian decir como era, ya q se q esto es una tonteria, pero no me acuerdo.

Gracias :D

Título: Re: Base De Datos
Publicado por: Shiquilla en Martes 28 de Junio de 2005, 11:38

Para abrir una base de datos: (Este ejemplo es con Access)

Código: Text

1. Dim lsCadenaConexion As String
2. Dim goConexion As ADODB.Connection
3.     lsCadenaConexion = "Driver={Microsoft Access Driver (*.mdb)};"
4.     lsCadenaConexion = lsCadenaConexion & "Dbq=" & App.Path & "\BaseDeDatos.mdb;"
5.     lsCadenaConexion = lsCadenaConexion & "Uid=Admin; Pwd="
6.    
7.     Set goConexion = New ADODB.Connection
8.     goConexion.CommandTimeout = 30
9.     goConexion.Open lsCadenaConexion
10.  

Para abrir un RecordSet a la base de datos:

Código: Text

1. Dim loRS As ADODB.Recordset
2.     Set loRS = New ADODB.Recordset
3.     loRS.Open "SELECT * FROM Tabla", goConexion, adOpenKeyset, adLockOptimistic
4.     With loRS
5.         Do While Not .EOF
6.             'Operaciones que haya que hacer
7.             .MoveNext
8.         Loop
9.         If .State = 1 Then .Close
10.     End With
11.     Set loRS = Nothing
12.  

Saludos,