![]() |
|
VB access - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : VB access (/showthread.php?tid=17166) |
VB access - mudz - 05-09-16 السلام عليكم
انا صممت قاعدة بيناات اريد ا عندما اضع اسم العميل يجلب لي بياناته في التكست بوكس RE: VB access - ابو ليلى - 05-09-16 استخدم جملة الاستعلام العادية لجلب البيانات و فق شرط محدد PHP كود : "Select * From Tb1 Whewe Name =@name" RE: VB access - mudz - 05-09-16 (05-09-16, 06:18 PM)ابو ليلى كتب : استخدم جملة الاستعلام العادية لجلب البيانات و فق شرط محدد طيب انا بحط القيم في تيكست بوكس مابي استخدم الجراوند RE: VB access - ابو ليلى - 05-09-16 لم افهم ماذا تقصد بالجراوند ضع كود يشرح العملية و نحن بنعدل ان شاء الله انت بستخد Access او Sql Server اه الان فهمت عليك يعني انت بتعرض سجل البحث في مربعات نص و ماذا لو كان ناتج البحث يحتوي على اكثر من سجل (على فرض في اكثر من تفصيل للاسم الواحد يعني علاقة بجدولين) بكل الاحوال الناتج العائد من تنفيذ الاستعلام السابق هو جدول قد يحتوي على سجل او اكثر بعد ذلك انت ستسند مصدر البيانات الخاص بصناديق النصوص الى الجدول العائد من تنفيذ الاستعلام لو وضعت الكود لكان التعديل اسهل RE: VB access - mudz - 05-09-16 (05-09-16, 07:13 PM)ابو ليلى كتب : لم افهم ماذا تقصد بالجراوند ايوا اكسس انا عندي اسم ورقم هاتف مثلا ابي اكتب الاسم في تيكست بوكس 1 واضغط بوتن يجلب الرقم من القاعدة اعتماد على تيكستبوكس 1 ويضع الناتج اللي هو الرقم في تيكست بوكس 2 RE: VB access - Abou Eman - 05-09-16 كنت عملتها مرة عرف المتغيرات دى فى الجنرال 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" لو الكود مش واضح ممكن اعمل لك مثال RE: VB access - mudz - 05-09-16 (05-09-16, 08:13 PM)%Eman% كتب : كنت عملتها مرة ههههه انا ألفت كود من راسي وزبط معي هذا 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() |