who know how to make data show at textbox from this code.
from the below code, i only can check if that data got in database or not, if got it show a msgbox.
but i want the all data show at text..
example
i search data use a NoIC data..
my database got Name, NoIC, Age, Country..(in 1 table)
i want that Name, Age and coutry data show up at my textbox.
please someone help me..
i need finish my project.
Private Sub btnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCari.Click
Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=""H:\PROJEK\New Sistem\SISTEM_DATABASE.mdb"";"
' string declare connection ke dbase
Dim DBCon As New OleDb.OleDbConnection(ConString)
Dim g_login As String
' global decalration
g_login = Me.txtNoIC.Text
If g_login = "" Then
MessageBox.Show("Your information is not complete.", "Missing Info")
Me.txtNoIC.Focus()
Return
End If
Dim strsql As String = "SELECT * FROM RekodAnggaran WHERE [NoIC]='" & txtNoIC.Text & "'"
Dim cmd As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cmd.ExecuteReader
If dr.HasRows Then
While dr.Read
If g_login = dr.Item("NoIC") Then
valid = True
MsgBox("Ada Rekod!!")
End If
End While
HasRows = True
End If
dr.Close()
Catch exO As OleDb.OleDbException
MessageBox.Show(exO.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cmd = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
End Sub