🔍 Search Access Database Directly from PowerPoint! | Smart Integration Tutorial With Source code

 

Private Sub CommandButton1_Click()

If id_txt.Text <> "" Then

Dim rst As New ADODB.Recordset

Dim conn As New ADODB.Connection

Dim strsql As String

conn.ConnectionString = "Provider=Microsoft.Ace.Oledb.12.0; Data Source=H:\contents\sports.accdb" _

& " ;Persist Security info = False"

    strsql = " SELECT * FROM Table2 Where id=" & id_txt.Text & ""

conn.Open

rst.Open strsql, conn

If rst.EOF Then

MsgBox "Data Not Found"

name_txt.Text = ""

age_txt.Text = ""

sport_txt.Text = ""

points_txt.Text = ""

date_txt.Text = ""

Else

name_txt.Text = rst.Fields("name1")

age_txt.Text = rst.Fields("age")

sport_txt.Text = rst.Fields("sport")

points_txt.Text = rst.Fields("points")

date_txt.Text = rst.Fields("date_reg")

   End If

       conn.Close

       End If

End Sub