منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - لدي فكرة ولا اعرف كيف اصل لتطبيقها وخاصة باستعلام من قاعدة بيانات mysql

السلام عليكم ورحمه الله وبركاته
حياكم الله عزوجل
الفكره التي لدي هي كالتالي
لدي عدد 5 موظفين وعند تسجيل الدخول للبرنامج هناك سؤال ومتاح ان تجيب فقط ب 10 او 20
وبالفعل استطيع ان اعرف من قام بالاجابه علي السؤال 10 او 20
فلنفترض انه قام بالرد فقط عدد 2 موظفين تبقي لدى 3 لم يقوموا بالرد
ما اريده هو كيف اعرف من لم يقم بالاجابه علي السؤال ولم يتفاعل اصلا؟
من خلال البرمجة فانا افعلها بالنظر انظر من قام بالرد واعرف من لم يرد فهل هناك طريقه اعرف بها ذلك برمجيا

وشكرا

فورم الدخول

PHP كود :

Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "update tb set n=@n where tn=@tn"
                cm.Parameters.AddWithValue("@n,", Val(ComboBox1.Text))
                cm.Parameters.AddWithValue("@tn,", TextBox1.Text)
                If con.State = ConnectionState.Closed Then con.Open()
                cm.ExecuteNonQuery()
                If con.State = ConnectionState.Open Then con.Close()
            End Using
        End Using
        Me.Hide()
        Form2.Show() 

الفورم الرئيسي

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dt As DataTable
        Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using da As New OleDb.OleDbDataAdapter("select tn,n from tb", con)
                dt = New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dt As DataTable
        Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using da As New OleDb.OleDbDataAdapter("select tn,n from tb where n=10", con)
                dt = New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim dt As DataTable
        Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Using da As New OleDb.OleDbDataAdapter("select tn,n from tb where n=20", con)
                dt = New DataTable
                da.Fill(dt)
                Me.DataGridView1.DataSource = dt
            End Using
        End Using
    End Sub 

جزاك الله خيا اخي الفاضل سعود علي ماتقدم من مساعدات ربنا يتقبل منك ويبارك في علمك
ويشرح صدرك ويزيدك علم ويسلل سخيمه قلبك ويبارك في رزقك وعلمك ويغفرلك الذلات أمين أمين أمين
فكرة رائعة ماشاء الله

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

dametucorazon

سعود

dametucorazon