Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|What is the best editor for PowerShell scripts?||7||114|
|Use tracing facilities in your browser steps||2||128|
|Resharper CTRL+N: Differentiate between files with same name||2||83|
|difference between sorce folder and folder in eclipise||3||64|
Join the community of 500,000 technology professionals and ask your questions.