Private Sub DisplayButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisplayButton.Click
Dim cs As String = "Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=C:\Users\technowin\Documents\Candidates.accdb;Jet OLEDB:Database Password=techno;"
Dim sql As String
If LastNameTextBox.Text = Nothing Then
sql = "SELECT * FROM Infotable WHERE FirstName = '" & FirstNameTextBox.Text & "' AND MiddleName = '" & MiddleNameTextBox.Text & "'"
Else
sql = "SELECT * FROM Infotable WHERE LastName = '" & LastNameTextBox.Text & "' AND FirstName = '" & FirstNameTextBox.Text & "' AND Lastname = '" & LastNameTextBox.Text & "' "
End If
' DataGridView1.Visible = True
Dim connection As New OleDb.OleDbConnection(cs)
dataadapter = New OleDb.OleDbDataAdapter(sql, connection)
ds = New DataSet()
connection.Open()
'make the datagrid visible
EditDataGridView.Visible = True
dataadapter.Fill(ds, "Infotable")
connection.Close()
EditDataGridView.DataSource = ds
EditDataGridView.DataMember = "Infotable"
End Sub
Private Sub EditDataGridView_CellContentDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles EditDataGridView.CellContentDoubleClick
If (e.ColumnIndex = 21) Then
Dim text As String = File.ReadAll("D:\test1.txt")
Dim index As Integer = text.IndexOf("")
If index >= 0 Then
End If
End If
End Sub
This post has been edited by Atli: 02 July 2012 - 02:46 AM
Reason for edit:: Fixed the [code] tags.

New Topic/Question
Reply



MultiQuote



|