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

استخدم جملة الاستعلام العادية لجلب البيانات و فق شرط محدد
و عند التنفيذ اسند قيمة للبارميتر @name 

(05-09-16, 06:18 PM)ابو ليلى كتب : [ -> ]استخدم جملة الاستعلام العادية لجلب البيانات و فق شرط محدد

PHP كود :

          "Select * From Tb1 Whewe Name =@name" 


و عند التنفيذ اسند قيمة للبارميتر @name 

طيب انا بحط القيم في تيكست بوكس مابي استخدم الجراوند

لم افهم ماذا تقصد بالجراوند
ضع كود يشرح العملية و نحن بنعدل ان شاء الله

---

انت بستخد Access او Sql Server

---

اه الان فهمت عليك يعني انت بتعرض سجل البحث في مربعات نص
و ماذا لو كان ناتج البحث يحتوي على اكثر من سجل (على فرض في اكثر من تفصيل للاسم الواحد يعني علاقة بجدولين)
بكل الاحوال الناتج العائد من تنفيذ الاستعلام السابق هو جدول قد يحتوي على سجل او اكثر
بعد ذلك انت ستسند مصدر البيانات الخاص بصناديق النصوص الى الجدول العائد من تنفيذ الاستعلام
لو وضعت الكود لكان التعديل اسهل

(05-09-16, 07:13 PM)ابو ليلى كتب : [ -> ]لم افهم ماذا تقصد بالجراوند
ضع كود يشرح العملية و نحن بنعدل ان شاء الله

---

انت بستخد Access او Sql Server

---

اه الان فهمت عليك يعني انت بتعرض سجل البحث في مربعات نص
و ماذا لو كان ناتج البحث يحتوي على اكثر من سجل (على فرض في اكثر من تفصيل للاسم الواحد يعني علاقة بجدولين)
بكل الاحوال الناتج العائد من تنفيذ الاستعلام السابق هو جدول قد يحتوي على سجل او اكثر
بعد ذلك انت ستسند مصدر البيانات الخاص بصناديق النصوص الى الجدول العائد من تنفيذ الاستعلام
لو وضعت الكود لكان التعديل اسهل

ايوا اكسس


انا عندي اسم ورقم هاتف مثلا

ابي اكتب الاسم في تيكست بوكس 1 واضغط بوتن يجلب الرقم من القاعدة اعتماد على تيكستبوكس 1 ويضع الناتج اللي هو الرقم في تيكست بوكس 2

كنت عملتها مرة

عرف المتغيرات دى فى الجنرال

Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" & Application.StartupPath & "\MyData.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet


فى زر البحث اكتب الكود ده
Dim SQLstr As String = "SELECT * FROM Table1 WHERE name = '" & TextBox1.Text & "'"

DataBindings.Clear()
DataSet1.Clear()


Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
On Error Resume Next
TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Name")
TextBox3.DataBindings.Add("Text", DataSet1, "Table1.City")
TextBox4.DataBindings.Add("Text", DataSet1, "Table1.mobile")

---

ولو عندك جريد هتكتب الكود ده فى اخر سطور زر البحث عشان يظهر النتائج فيها

'DataGridView1.DataSource = DataSet1
'DataGridView1.DataMember = "Table1"

لو الكود مش واضح ممكن اعمل لك مثال

(05-09-16, 08:13 PM)%Eman% كتب : [ -> ]كنت عملتها مرة

عرف المتغيرات دى فى الجنرال

   Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
   "Data Source =" & Application.StartupPath & "\MyData.mdb"
   Dim Conn As New OleDbConnection(ConStr)
   Dim DataSet1 As New DataSet


فى زر البحث اكتب الكود ده
 Dim SQLstr As String = "SELECT * FROM Table1 WHERE name = '" & TextBox1.Text & "'"

       DataBindings.Clear()
       DataSet1.Clear()


       Conn.Open()
       Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
       DataAdapter1.Fill(DataSet1, "Table1")
       Conn.Close()
       On Error Resume Next
       TextBox2.DataBindings.Add("Text", DataSet1, "Table1.Name")
       TextBox3.DataBindings.Add("Text", DataSet1, "Table1.City")
       TextBox4.DataBindings.Add("Text", DataSet1, "Table1.mobile")

---

ولو عندك جريد هتكتب الكود ده فى اخر سطور زر البحث عشان يظهر النتائج فيها

       'DataGridView1.DataSource = DataSet1
       'DataGridView1.DataMember = "Table1"

لو الكود مش واضح ممكن اعمل لك مثال

ههههه انا ألفت كود من راسي وزبط معي


هذا
Dim Gulb As New OleDbCommand
Dim dt As New DataTable
con.Open()
Gulb.Connection = con

Gulb.CommandText = "Select * From MUD where ID = '" + TextBox1.Text + "'"
TextBox3.Text = Gulb.ExecuteScalar


con.Close()