What's new

Closed Thesis po help

Status
Not open for further replies.
Dun sa student violation form, dun mag iinput sa student id, then habang nagtatype lumalabas na yung name o pag ka pindot ng enter sa keyboard?
 
Eto sir kung gusto mo ng habang nagtatype napopopulate na yung textbox ng names, etc.

Output:
upload_2017-10-26_14-45-38.png

Code:
Code:
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


Eto naman kung gusto mo ng pagclick ng enter habang nakafocus sa student id textbox:

Output:
upload_2017-10-26_14-48-48.png

Code:
Code:
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
 

Attachments

error.PNG eto po sir pag tinanggal ko ung violation counselor pede nman po yung first 10 ung lima ayaw na po
 

Attachments

Walang laman yung column na violation sa database mo. It's either lagyan mo or check mo muna kung null.
ex:
Gawin mo ng ganito.
Code:
comboBox1.Text = If(IsDBNull(dr("Violation")), dr("Violation"), "")

This is a one line if else condition (yung nasa taas)


pwede din naman na:


Code:
If Not IsDBNull(dr("Violation")) Then
                       comboBox1.Text = dr("Violation")
                    Else
                        comboBox1.Text = ""
                    End If
 
Ok na sir salamat ung update at delete nlang..maraming salamat po godbless you more sir
 
Sir 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
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 yan
 
sakit 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...
 
Oo nga po sir andami nila sinasabi akala nila madali lng po buti sana hindi ako mag isa gumagawa sadlyf
 
Try to use crudtools.sir mas maikli coding dun.tas yung sagot naman sa Tanong is get_data from database using OledbDatareader since c# ako and ikaw is vb.isa lang naman sila iba lang ng syntax.tas tawag ka lang ng tawag dun sa database mo kada select mo or pag enter mo ng student info .lalabas sya a bawat txtbox yung info sa inenter ko
 
sakit 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...
sir pahinge sample code sa search button mysql vb po
 
Status
Not open for further replies.

Similar threads

Back
Top