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

Versión 1
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 21 de Enero del 2014gráfica de visualizaciones de la versión: Versión 1
12.159 visualizaciones desde el 21 de Enero del 2014
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)

3 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...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s2588