Programación General > Visual Basic 6.0 e inferiores

 Re: cual seria el codigo para abrir una base de datos acces

(1/1)

lenilax:
Nesecito hacer ciertos calculo con un form VB. Como determiono que los datos que componen las variables sean tomados desde una base de datos access:)

Luz:
hola amigo, mira si quieres conectar tu formulario con una base de datos en accesss lo puedes hacer insertando un control data y en las propiedad DatabaseName eliges la base de datos que vas a utilizar o lo puedes hacer desde el código en el Form_Load del formulario  como en el ejemplo:

Set base1 = OpenDatabase _
     ("c:codices" & "Bnahbase.mdb")

espero me hayas entendido.

bye.

fabiodixon:
si estas usando VB6 sesria algo como esto:
Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim Rs1 As New ADODB.Recordset

    If Cn.State = adStateOpen Then Set Cn = Nothing
    Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dataPlaneacion.mdb"
    Cn.CursorLocation = adUseClient
    Cn.Open
    If rs.State = adStateOpen Then Set rs = Nothing
    rs.ActiveConnection = Cn
    rs.Open "select * from bd", Cn, adOpenDynamic, adLockBatchOptimistic
    For i = 0 To (rs.Fields.Count - 1)
        If Not IsNull(rs(i)) Then
            TxtTexto(i).Text = rs(i)
        Else
            TxtTexto(i).Text = ""
        End If
    Next
    If Rs1.State = adStateOpen Then Set Rs1 = Nothing
    Rs1.ActiveConnection = Cn
    Rs1.Open "select * from bd", Cn, adOpenDynamic, adLockBatchOptimistic

The13thBandido:
http://www16.brinkster.com/the13thbandido

The13thBandido:
Mejor te hice un ejemplo, lee el archivo de texto , no vayas a tener errores al correrlo.


Espero que te sirva

Navegación

[0] Índice de Mensajes