Imports System.Data.OleDb Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load OleDbDataAdapter1.Fill(DataSet11) End Sub Private Sub LandlordID_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LandlordID.SelectedIndexChanged Dim ID, SQLString As String Dim dtProperties As New DataTable() Dim dbDataAdapter As OleDbDataAdapter Dim ConnectString As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = Database.accdb" ID = LandlordID.Text SQLString = "Select * From Properties WHERE ID = " & "'" & ID & "'" & "" dbDataAdapter = New OleDbDataAdapter(SQLString, ConnectString) grdProperties.DataSource = dtProperties End Sub Private Sub postcodes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles postcodes.SelectedIndexChanged Dim postcode, SQLString As String Dim dtProperties As New DataTable() Dim dbDataAdapter As OleDbDataAdapter Dim ConnectString As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = Database.accdb" postcode = postcodes.Text SQLString = "Select * From Properties WHERE postcode = " & postcode & "" dbDataAdapter = New OleDbDataAdapter(SQLString, ConnectString) dbDataAdapter.Fill(dtProperties) grdProperties.DataSource = dtProperties End Sub End Class
grdProperties
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)