Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim str As String
Private Sub ConnectDatabase()
If con.State = ConnectionState.Closed Then
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Users\User\Documents\Visual Studio 2013\Projects\AccessSample\AccessSample\bin\Debug\myDB.mdb'"
con.Open()
End If
End Sub
Private Sub student_id_textbox_TextChanged(sender As Object, e As EventArgs) Handles student_id_textbox.TextChanged
If Not student_id_textbox.Text = Nothing Then
ConnectDatabase()
str = "SELECT First_name, Middle_name, Last_name FROM students WHERE ID = " & student_id_textbox.Text
cmd = New OleDbCommand(str, con)
dr = cmd.ExecuteReader
If dr.Read Then
first_name_textbox.Text = dr("First_name")
middle_name_textbox.Text = dr("Middle_name")
last_name_textbox.Text = dr("Last_name")
status_label.Hide()
Else
first_name_textbox.Clear()
middle_name_textbox.Clear()
last_name_textbox.Clear()
status_label.Show()
status_label.Text = "Student not found."
status_label.ForeColor = Color.Red
End If
con.Close()
Else
status_label.Hide()
first_name_textbox.Clear()
middle_name_textbox.Clear()
last_name_textbox.Clear()
End If
End Sub
End Class
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDbConnection
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim str As String
Private Sub ConnectDatabase()
If con.State = ConnectionState.Closed Then
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:\Users\User\Documents\Visual Studio 2013\Projects\AccessSample\AccessSample\bin\Debug\myDB.mdb'"
con.Open()
End If
End Sub
Private Sub student_id_textbox_KeyDown(sender As Object, e As KeyEventArgs) Handles student_id_textbox.KeyDown
If e.KeyCode = Keys.Enter Then
If Not student_id_textbox.Text = Nothing Then
ConnectDatabase()
str = "SELECT First_name, Middle_name, Last_name FROM students WHERE ID = " & student_id_textbox.Text
cmd = New OleDbCommand(str, con)
dr = cmd.ExecuteReader
If dr.Read Then
first_name_textbox.Text = dr("First_name")
middle_name_textbox.Text = dr("Middle_name")
last_name_textbox.Text = dr("Last_name")
status_label.Hide()
Else
first_name_textbox.Clear()
middle_name_textbox.Clear()
last_name_textbox.Clear()
status_label.Show()
status_label.Text = "Student not found."
status_label.ForeColor = Color.Red
End If
con.Close()
Else
status_label.Hide()
first_name_textbox.Clear()
middle_name_textbox.Clear()
last_name_textbox.Clear()
End If
End If
End Sub
End Class
comboBox1.Text = If(IsDBNull(dr("Violation")), dr("Violation"), "")
If Not IsDBNull(dr("Violation")) Then
comboBox1.Text = dr("Violation")
Else
comboBox1.Text = ""
End If
Dun ka sa keyEvent textbox locate mo sa id number, then display na info if search get mo ba? Foxpro database kase ako madali lang yanSir bkit may button po ang gusto ksi ung teacher nmin eh pag enter nya ng id lumabas na ung name middle last name ung student na un na nka save po sa database para po ung violation nya nlang ung i put po student info at student violation ksi po iisa lng database nun ang gusto niya po
sir pahinge sample code sa search button mysql vb posakit sa ulo pero worth it...
#masokparasakin mysql sa db masmadali kz haha
peace.. buhay it/cs
nga pla bigay lang ako insight pag thesis na wag kang agree ng agree sa mga panel or teacher mo program mo/nyo yan kau dapat masunod kunin nyo lng ung alam nyong dnyo naisip nailagay sa program para sa huli di kau magsisi...
personal data form for vb and sql database ung code nlng sa search kailangan ko, bali dapat madisplay ung record nila base sa eninput ko na id #, doon ako sa localhost/phpmyadmin gumawa ng databasevisual basic talaga?
dapat naka normalize yung database mo.personal data form for vb and sql database ung code nlng sa search kailangan ko, bali dapat madisplay ung record nila base sa eninput ko na id #, doon ako sa localhost/phpmyadmin gumawa ng database