تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] لدي فكرة ولا اعرف كيف اصل لتطبيقها وخاصة باستعلام من قاعدة بيانات mysql
#1
السلام عليكم ورحمه الله وبركاته
حياكم الله عزوجل
الفكره التي لدي هي كالتالي
لدي عدد 5 موظفين وعند تسجيل الدخول للبرنامج هناك سؤال ومتاح ان تجيب فقط  ب 10 او 20  
وبالفعل استطيع ان اعرف من قام بالاجابه علي السؤال 10 او 20
 فلنفترض انه قام بالرد فقط عدد 2 موظفين تبقي لدى 3 لم يقوموا بالرد
ما اريده هو كيف اعرف من لم يقم بالاجابه علي السؤال ولم يتفاعل اصلا؟
 من خلال البرمجة فانا افعلها بالنظر انظر من قام بالرد واعرف من لم يرد فهل هناك طريقه اعرف بها ذلك برمجيا


وشكرا
الرد }}}
تم الشكر بواسطة:
#2

فورم الدخول
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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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.ObjectByVal e As System.EventArgsHandles 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 


الملفات المرفقة
.zip   HiCome.zip (الحجم : 42.58 ك ب / التحميلات : 21)
الرد }}}
تم الشكر بواسطة: sendbad100 , elgokr
#3
جزاك الله خيا اخي الفاضل سعود علي ماتقدم من مساعدات  ربنا يتقبل منك ويبارك في علمك
ويشرح صدرك ويزيدك علم ويسلل سخيمه قلبك ويبارك في رزقك وعلمك ويغفرلك الذلات أمين أمين أمين
فكرة رائعة ماشاء الله
الرد }}}
تم الشكر بواسطة: elgokr



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم