Here is my code on the MainFrm:
Imports System.Data.OleDb
Public Class MainFrm
Dim con As New OleDbConnection
Dim da As New OleDbDataAdapter
Private Sub AddBoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddBoToolStripMenuItem.Click
AddBorrowerFrm.Show()
Me.Enabled = False
End Sub
Private Sub LogOutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogOutToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub MainFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
con.ConnectionString = "provider = Microsoft.ACE.OLEDB.12.0; data source = ..\sample.accdb"
If lblLMCon.Text = "admin" Then
AddBoToolStripMenuItem.Enabled = True
DeleteBorrowerToolStripMenuItem.Enabled = True
Else
AddBoToolStripMenuItem.Enabled = False
DeleteBorrowerToolStripMenuItem.Enabled = False
End If
End Sub
Private Sub DeleteBorrowerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteBorrowerToolStripMenuItem.Click
cmbTran.Enabled = False
End Sub
Private Sub txtShow_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtShow.KeyDown
da = New OleDbDataAdapter("Select ID, (LName + ', ' + FName) As FullName from BorrowersList where ID = '" & txtShow.Text & "'", con)
con.Open()
Dim ds As DataSet = New DataSet()
'Dim ds As As sampleDataSet.BorrowersListRow
da.Fill(ds, "BorrowersList")
dgvSearch.DataSource = ds.Tables("BorrowersList").DefaultView
con.Close()
End Sub
Private Sub dgvSearch_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvSearch.CellDoubleClick
Dim i As Integer
i = dgvSearch.CurrentRow.Index
txtFullName.Text = dgvSearch.Item(1, i).Value
Dim a As Integer
a = dgvSearch.Item("Gender").ToString
dgvSearch.Rows(a).Cells(0).Value = TextBox1.Text
'Dim drvBorrower As DataRowView
' Dim rowBorrower As sampleDataSet.BorrowersListRow
' drvBorrower = dgvSearch.Rows(e.RowIndex).DataBoundItem
' rowBorrower = drvBorrower.Row
' TextBox1.Text = rowBorrower._Borrower_sID
'da = New OleDbDataAdapter("Select * BorrowersList where ID = '" & txtShow.Text & "'", con)
'con.Open()
'Dim ds As DataSet = New DataSet()
'da.Fill(ds, "BorrowersList")
'TextBox1.Text = ds.Tables("BorrowersList").Rows("ID")
'con.Close()
End Sub
End Class
those with ['] are the codes i've tried to get an output but none has work.
thank you.
Attached image(s)
This post has been edited by modi123_1: 09 July 2012 - 08:31 AM
Reason for edit:: highlight the lines THEN click the code tags button in the 'format text' box of the post.

New Topic/Question
Reply



MultiQuote






|