Código de Visual Basic - Conectar desde VB6 con Access 2010

Imágen de perfil

Conectar desde VB6 con Access 2010gráfica de visualizaciones


Visual Basic

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 21 de Enero del 2014 por Xavi
5.086 visualizaciones desde el 21 de Enero del 2014. Una media de 35 por semana
Ejemplo que muestra como conectar desde VB6 con Access 2010 con o sin contraseña en la base de datos.

Versión 1
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 21 de Enero del 2014gráfica de visualizaciones de la versión: Versión 1
5.087 visualizaciones desde el 21 de Enero del 2014. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si lo deseas, te puedes descargar el ejemplo de aquí
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Command1_Click()
    Dim dbfile As String, cs As String
    Dim connstr As String, n As Integer
    Dim Conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cmd As New ADODB.Command
 
    On Error GoTo xerr
 
    dbfile = "Database1.accdb"
 
    'Los siguientes códigos muestran como conectarse con y sin contraseña
    connstr = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & dbfile & ";PERSIST SECURITY INFO=FALSE;"
    'connstr = "PROVIDER=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & dbfile & ";Password=;User ID=Admin;"
 
    Conn.Open connstr
    If Conn.State = adStateOpen Then
        cmd.ActiveConnection = Conn
        cmd.CommandText = "select * from Table1"
 
        rs.Open cmd
        If rs.EOF = False Then
            While Not rs.EOF
                Print rs.Fields(0) & "-" & rs.Fields(1)
                rs.MoveNext
            Wend
        End If
        MsgBox "conexion correcta"
    End If
 
    Conn.Close
    Set Conn = Nothing
    Exit Sub
xerr:
    MsgBox Err.Number & " - " & Err.Description
 
End Sub



Comentarios sobre la versión: Versión 1 (1)

Pedro
03 de Octubre del 2015
estrellaestrellaestrellaestrellaestrella
Te Agradesco el codigo
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s2588