تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
VB access
#1
السلام عليكم
انا صممت قاعدة بيناات اريد ا عندما اضع اسم العميل يجلب لي بياناته في التكست بوكس
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة:
#2
استخدم جملة الاستعلام العادية لجلب البيانات و فق شرط محدد
PHP كود :
          "Select * From Tb1 Whewe Name =@name" 
و عند التنفيذ اسند قيمة للبارميتر @name 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة:
#3
(05-09-16, 06:18 PM)ابو ليلى كتب : استخدم جملة الاستعلام العادية لجلب البيانات و فق شرط محدد
PHP كود :
          "Select * From Tb1 Whewe Name =@name" 
و عند التنفيذ اسند قيمة للبارميتر @name 

طيب انا بحط القيم في تيكست بوكس مابي استخدم الجراوند
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة:
#4
لم افهم ماذا تقصد بالجراوند
ضع كود يشرح العملية و نحن بنعدل ان شاء الله

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

اه الان فهمت عليك يعني انت بتعرض سجل البحث في مربعات نص
و ماذا لو كان ناتج البحث يحتوي على اكثر من سجل (على فرض في اكثر من تفصيل للاسم الواحد يعني علاقة بجدولين)
بكل الاحوال الناتج العائد من تنفيذ الاستعلام السابق هو جدول قد يحتوي على سجل او اكثر
بعد ذلك انت ستسند مصدر البيانات الخاص بصناديق النصوص الى الجدول العائد من تنفيذ الاستعلام
لو وضعت الكود لكان التعديل اسهل
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة:
#5
(05-09-16, 07:13 PM)ابو ليلى كتب : لم افهم ماذا تقصد بالجراوند
ضع كود يشرح العملية و نحن بنعدل ان شاء الله

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

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

ايوا اكسس


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

ابي اكتب الاسم في تيكست بوكس 1 واضغط بوتن يجلب الرقم من القاعدة اعتماد على تيكستبوكس 1 ويضع الناتج اللي هو الرقم في تيكست بوكس 2
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}
تم الشكر بواسطة:
#6
كنت عملتها مرة

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

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"

لو الكود مش واضح ممكن اعمل لك مثال
الرد }}}
تم الشكر بواسطة:
#7
(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()
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  data type mismatch in criteria expression access um_noor20 3 438 08-10-23, 10:14 AM
آخر رد: um_noor20
  [Acces2003] قاري الاسعار و ms access Mohamed esehaim 0 193 20-09-23, 04:09 PM
آخر رد: Mohamed esehaim
  [سؤال] كارثة ملف قاعدة البيانات unrecognized database Access dr.programming 4 791 04-04-23, 11:13 PM
آخر رد: atefkhalf2004
  استفسار مهم حول تحزيم المشروع و قاعدة البيانات من نوع أكسس ACCESS mmaalmesry 4 793 14-09-22, 12:44 AM
آخر رد: mmaalmesry
  [VB.NET] مشكلة فى فتح الاتصال بقاعدة أكسس access mmaalmesry 2 646 05-09-22, 04:15 PM
آخر رد: mmaalmesry
  ارجو المساعدة بخصوص Datagridview . to Access lionexxd 1 687 06-06-22, 02:49 PM
آخر رد: رمضان272
  ارجو المساعدة بخصوص Datagridview . to Access lionexxd 1 698 01-06-22, 02:18 PM
آخر رد: نيمو
Exclamation ملفات تشغيل قاعدة البيانات Access أبو خالد الشكري 2 1,237 20-05-22, 12:26 AM
آخر رد: أبو خالد الشكري
  [VB.NET] انشاء قاعدة بيانات access فارغة وقت التشغيل mmaalmesry 2 915 14-05-22, 11:20 PM
آخر رد: mmaalmesry

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


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