Total Pageviews

Friday 11 January 2013

Access Database Connection using ADO in VBA


'General Declaration

dB1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Public\DB1.mdb;Persist security info=false;Jet OLEDB:Database Password=pswd"


'Need Reference to Microsoft Microsoft Activex Data object 2.0 library






Dim Cn As New ADODB.Connection, Rs As New ADODB.Recordset
Dim StrSQL As String
Dim StrName As String


Cn.Open dB1
StrSQL = "select * from LoginDetails" 

Rs.Open StrSQL, Cn, adOpenForwardOnly, adLockReadOnly

Strname = Rs.Fields(0) 'Or Rs!Name

1 comment:

  1. Titanium chords (Sinten, B, F, G) - Taylor Sheridan
    With titanium body armor guitar chord titanium bikes diagrams for ceramic vs titanium curling iron Tic-Tac, guitar chords, titanium nitride coating service near me Tic-Tac chords in online 바카라 chords: learn, repair, and test the chords!

    ReplyDelete