Autor Tema: Base De Datos (Leído 920 veces)

er_charly · « **en:** Lunes 27 de Junio de 2005, 12:00 »

Hola a todos!!!

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

Shiquilla

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

Código: Text

Dim lsCadenaConexion As String
Dim goConexion As ADODB.Connection
    lsCadenaConexion = &#34;Driver={Microsoft Access Driver (*.mdb)};&#34;
    lsCadenaConexion = lsCadenaConexion & &#34;Dbq=&#34; & App.Path & &#34;&#092;BaseDeDatos.mdb;&#34;
    lsCadenaConexion = lsCadenaConexion & &#34;Uid=Admin; Pwd=&#34;
    
    Set goConexion = New ADODB.Connection
    goConexion.CommandTimeout = 30
    goConexion.Open lsCadenaConexion
 

Para abrir un RecordSet a la base de datos:

Código: Text

Dim loRS As ADODB.Recordset
    Set loRS = New ADODB.Recordset
    loRS.Open &#34;SELECT * FROM Tabla&#34;, goConexion, adOpenKeyset, adLockOptimistic
    With loRS
        Do While Not .EOF
            'Operaciones que haya que hacer
            .MoveNext
        Loop
        If .State = 1 Then .Close
    End With
    Set loRS = Nothing
 

Saludos,

SoloCodigo

Autor Tema: Base De Datos (Leído 920 veces)

er_charly

Base De Datos

Shiquilla

Re: Base De Datos