Dim connection As New Data.OleDb.OleDbConnection _
("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=e:\webdatabase.mdb")
connection.Open()
Dim SelectString As String
SelectString = "select * from Clients where [First Name] = '1' and [Last Name] = '2'"
Dim SelectCommand As Data.OleDb.OleDbCommand = New Data.OleDb.OleDbCommand(SelectString)
Dim Adapter As New Data.OleDb.OleDbDataAdapter()
Dim Dataset1 As New Data.DataSet()
Adapter.SelectCommand = SelectCommand
SelectCommand.CommandType = Data.CommandType.Text
SelectCommand.Connection = connection
Adapter.Fill(Dataset1, "Clients")
SelectString = "select * from [Client Education] where ClientID = '377'"
Adapter.Fill(Dataset1, "Client Education")
If (Dataset1.Tables("Client Education").Rows.Count <> 0) Then
Session("Education") = Dataset1.Tables("Client Education").Rows(0).Item("Entry Education Level")
Session("Highgrade") = Dataset1.Tables("Client Education").Rows(0).Item("Highest Grade Completed")
Session("College") = Dataset1.Tables("Client Education").Rows(0).Item("Current College")
Session("Pasteducation") = Dataset1.Tables("Client Education").Rows(0).Item("Past Education Activity")
End If
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.
Open in new window