Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click 'DATAGRID MULTIPLE RESULTS LIST Dim MySQLConnection As String = My.Settings.dbConnection Dim dbConnection As New SqlConnection dbConnection.ConnectionString = MySQLConnection Dim bsPatients As BindingSource bsPatients = New BindingSource dbConnection.Open() Dim noRecord As Integer noRecord = 0 Dim strSQL As String = "SELECT FirstName, LastName, DOB, CustomerID FROM Customer WHERE LastName LIKE '" & LastName.Text & "%' ORDER BY FirstName" Dim myDA As SqlDataAdapter = New SqlDataAdapter(strSQL, dbConnection) Dim myPatient As DataTable = New DataTable myDA.Fill(myPatient) bsPatients.DataSource = myPatient DataGridView1.DataSource = bsPatients dbConnection.Close() dbConnection = Nothing End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!