Dim ConnectionString As String
Dim SQLString As String
Dim cmd As System.Data.OleDb.OleDbCommand
Dim conn As System.Data.OleDb.OleDbConnection
Dim dr As System.Data.OleDb.OleDbDataReader
ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data "
ConnectionString += "Source=" & "Opticians.accdb "
conn = New System.Data.OleDb.OleDbConnection(ConnectionString)
TextBox1.Text = FramesListBox.Text
SQLString = "SELECT * FROM SpecSalesTable "
SQLString += "INNER JOIN CustomerTable ON SpecSalesTable.CustomerID = CustomerTable.CustomerID "
SQLString += "Where '" & TextBox1.Text & "'"
SQLString += "= SpecSalesTable.FrameID"
'frame id = stock id
' spec sales table
' stock table
Try
conn.Open()
If ConnectionState.Open.ToString = "Open" Then
cmd = New System.Data.OleDb.OleDbCommand(SQLString, conn)
dr = cmd.ExecuteReader()
If dr.HasRows Then
dr.Read()
If Not IsDBNull(dr.Item("FrameID")) Then
TextBox1.Text = dr.Item("FrameID").ToString
End If
If Not IsDBNull(dr.Item("CustomerID")) Then
TextBox2.Text = dr.Item("CustomerID").ToString
End If
If Not IsDBNull(dr.Item("Surname")) Then
TextBox3.Text = dr.Item("Surname").ToString
End If
If Not IsDBNull(dr.Item("Firstname")) Then
TextBox3.Text = dr.Item("Firstname").ToString
End If
End If
End If
Catch ex As Exception
End Try