DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Provider = "Microsoft Jet 4.0 OLE DB Provider"
cn.ConnectionString = "Data Source=c:\vt1.mdb"
cn.Properties("Jet OLEDB:Database Password") = "1234"
cn.Open
rs.Open "Tablo1", cn, adOpenDynamic, adLockReadOnly
MsgBox rs(1)
rs.Close
cn.Close
Set cn = Nothing
Private Sub Komut0_Click()
On Error GoTo ErrHandler
Dim strDBPath As String
Dim AccessApp2 As Access.Application
' Create new instance of Microsoft Access.
strDBPath = "C:\vt1.mdb"
Set AccessApp2 = CreateObject("Access.Application")
AccessApp2.OpenCurrentDatabase strDBPath, , "1234"
AccessApp2.DoCmd.OpenTable "Tablo1"
NormalExit:
Exit Sub
ErrHandler:
MsgBox "Error # " & Err & " - " & Error
Resume Next
End Sub