ADO Data control ഉപയോഗിച്ച് Ms Access Database നെ connect ചെയുന്ന steps

What is ADO? 

ActiveX Data Objects (ADO) is an application program interface from Microsoft that lets a programmer writing Windows applications get access to a relational or non-relational database from both Microsoft and other database providers.

ആദ്യമായി  ADO Library for database Connectivity project ൽ ഉൾപെടുത്തുക 👇

Project  - Components - Microsoft ADO Data Control 6.0(OLEDB) -- Apply-- Ok

Example

 Add New Contact Record and Display into ListView

After ക്ലിക്ക് Add New contact button 

code

Database name = demo

Table name       =phonebook

Form load()

Text1.Visible = False
Text2.Visible = False
Text3.Visible = False
save_rec.Visible = False

End Sub

Private Sub AddNC_Click()
Text1.Visible = True
Text2.Visible = True
Text3.Visible = True
save_rec.Visible = True

End Sub

Save_rec_Click( )

Dim connect As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\demo.mdb" & ";Persist Security Info=False"
cn.Open
rs.Open "select *  from  phonebook ", cn, 3, 3
rs.AddNew
formclear
rs("nam") = Text1.Text
rs("add") = Text2.Text
rs("phon") = Text3.Text
rs.Update
MsgBox "Successfully Saved", vbInformation, "Save"

End Sub

Display into ListView

List view Control add -- Project --  Components  -- Microsoft windows common control 5.0 (SP2)  Click -- Apply-- ok

Dim connect As New ADODB.Connection
Dim rs As New ADODB.Recordset

Form_load()

With ListView1.ColumnHeaders
.add , , "NAME", Width / 5, lvwColumnLeft
.add , , "ADDRESS", Width / 5, lvwColumnLeft
.add , , "PHONE NUMBER", Width / 5, lvwColumnLeft
End With

Dim list As ListItem
ListView1.ListItems.Clear
connect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\demo.mdb" & ";Persist Security Info=False"
connect.Open
rs.Open "Select * from phonebook", connect, adOpenDynamic, adLockPessimistic, adCmdText
Do Until rs.EOF
Set list = ListView1.ListItems.add(, , rs!nam)
list.SubItems(1) = rs!add
list.SubItems(2) = rs!phon
rs.MoveNext
Loop
connect.Close
End Sub

Private Sub remove_Click()
ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub