[اسامه الهرماوي]

إذا كنت تريد الإستعلام عن البيانات أكتب الكود التالي مع مراعاة تحويل oledb الي sql في الكود ومع العلم أن use1 هو اسم الجدول.

كود :

SQLstruse = "SELECT *  FROM use1 WHERE اسم_المستخدم = '" & t1.Text & "'"
       DataSetuse.Clear()
       Dim DataAdapterus As New OleDbDataAdapter(SQLstruse, conuse)
       DataAdapterus.Fill(DataSetuse, "use1")
       الموظف.DataBindings.Clear()
       الموظف.DataBindings.Add("Text", DataSetuse, "use1.اسم_الموظف")

       المستخدم.DataBindings.Add("Text", DataSetuse, "use1.اسم_المستخدم")
       المستخدم.DataBindings.Clear()
       المرور.DataBindings.Add("Text", DataSetuse, "use1.كلمة_المرور")
       المرور.DataBindings.Clear()

       a1.DataBindings.Add("Text", DataSetuse, "use1.إدارة_المخزن_والجرد")
       a1.DataBindings.Clear()
       a2.DataBindings.Add("Text", DataSetuse, "use1.إداة_الموظفين")
       a2.DataBindings.Clear()
       a3.DataBindings.Add("Text", DataSetuse, "use1.إجراء_عمليات_البيع")
       a3.DataBindings.Clear()

إن كان كذلك
واتس:+0201115740074