تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ارجو المساعده في ربط قاعدة البيانات بـــ ado
#1
اخواني في الفيجوال بسك 6 طريقة الربط بــ ado نقوم بعملية اظافة modul ثم اظافة
ثم تعريف المتغيرات للاتصال والربط
فما هي طريقة الربط بــ vb.net بطريقة ado لرجو الافادة
الرد }}}}
تم الشكر بواسطة:
#2
كود :
اعرف عن الكائنات للربط ومنها :
1-connectionstring = جملة الاتصال بقاعدة البيانات
2-oledbconnection = كائن امر الاتصال
3-dataset = قاعدة بيانات مؤقتة
4-Query syntax =جملة استعلام
5-oledbdataadapter = مكيف بيانات
6-oledbcommandbuilder = باني الاوامر

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

الامثلة
1-dim str as string="provider=microsoft.ace.oledb.12.0;data source=db.accdb"
2-dim con as new oledbconnection(str)
3-dim ds as new dataset
4-dim sql as string="select * from tb"
5-dim da as new oledbdataadapter(sql,con)
6-dim cmb as new oledbcommandbuilder(da)


للربط بالادوات
textbox1.databindings.add("text",ds,"tb.tname")

http://vb4arb.com/vb/showthread.php?tid=...89#pid2589
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#3
سلام عليكم Big Grin
تم نقل الموضوع للقسم الصحيح Blush
اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد }}}}
تم الشكر بواسطة: سعود
#4
اخواني ارجو التوضيح ولو بمثال لعملية الحفظ فقط
الرد }}}}
تم الشكر بواسطة:
#5
(18-10-13, 05:21 PM)VB.NET كتب : اخواني ارجو التوضيح ولو بمثال لعملية الحفظ فقط

اخي الكريم .. قسم المشاريع فيه امثلة

----------
الروابط التالية كلها بنفس الطريقة التي ذكرت لك.
برنامج تغريدات واذكار

[مشروع] البحث بشبيكة البيانات بعد ربطها

[مشروع] مثال حجز من المنتدى القديم
مثال دلع عميلك
[مشروع] مقبلات - الضغط
[مشروع] حفظ محتويات مجلد من صور الى قاعدة البيانات بنقرة زر
حفظ محتويات Listbox حال الربط وحال عدم الربط بالقاعدة
ابسط مثال للتصاريح
البحث عن تاريخ بعد س يوم

ابسط مثال للاضافة مرفق



وهذا الكلاس
كود :
Imports System.Data.OleDb

Public Class Form1
    'جملة اتصال
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    'كائن امر اتصال
    Dim con As New OleDbConnection(str)

    Dim m As Integer = 0
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'للاضافة نحتاج جملة اتصال و كائن امر اتصال
        'ثم التالي يكفي للاضافة

        Dim insert As New OleDbCommand("insert into tb(tname) values(@tname)", con)
        insert.Parameters.AddWithValue("@tname", InputBox("ادخل اسمك", "اكتب اسم لحفظه", "اسم رقم: " & m))

        If con.State = ConnectionState.Closed Then
            con.Open()
        End If

        insert.ExecuteNonQuery()
        gt()
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        m += 1
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
        gt()
    End Sub
    Sub gt()
        ListBox1.Items.Clear()
        Dim fildg As New OleDbCommand("select * from tb", con)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Dim dr As OleDbDataReader = fildg.ExecuteReader

        Do While dr.Read
            ListBox1.Items.Add(dr.Item("tname"))
        Loop
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Sub
End Class



الملفات المرفقة
.zip   ForVbnet.zip (الحجم : 47.58 ك ب / التحميلات : 169)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: Sajad , alims
#6
اخوي سعود الله يعطيك العافة على مساعدتي انا مبتدى بل VB.NET لاني استخدم فيجوال بيسك 6 واريد الانتقال ولاكن احتاج بعض المساعده
المثال الي في المرفقات حملته ولاكن في اخطاء ولا ادري ما الحل ارفقة صورة الخطاء لتوضيح المشكلة
الرد }}}}
تم الشكر بواسطة:
#7
صورة الخطاء

ارجو الافادة


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#8
طيب اخوي انشيء مشروع جديد وانسخ الكائنات والاكواد وقاعدة البيانات ويشتغل باذن الله.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:
#9
اخوي شعود عملت مثل ما قلت فتحت مشروع جديد ونسخت الاكواد وهذي صورة الرسالة في المرفقات


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#10
هذا لان المزود يخص اصدار الاكسس من 2007 واحدث اذا كان اصدار الاكسس لديك اقدم من 2007 غير المزود من 12.0 الى 4.0 وغير ace الى jet
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,608 10-05-17, 03:13 PM
آخر رد: safalo
  ظهور خطا عند سحب البيانات وعرضها في الداتا كريد باستخدم الـــ Threading HATEM KAREM 0 85 06-05-17, 04:45 PM
آخر رد: HATEM KAREM
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 68 17-04-17, 07:13 PM
آخر رد: djelloul
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 8 850 03-04-17, 02:48 AM
آخر رد: ابو إياد
  استفسار حول عدم تكرار البيانات المتألق9 3 150 02-04-17, 03:38 AM
آخر رد: حريف برمجة
  جلب البيانات من ملف txt djelloul 7 184 28-03-17, 03:20 PM
آخر رد: djelloul
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 153 10-03-17, 09:36 AM
آخر رد: عبد الله
  سرعة ادخال البيانات داخل ملف اكسس atefkhalf2004 1 168 05-03-17, 04:06 AM
آخر رد: thevirus
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 171 28-02-17, 03:27 PM
آخر رد: djelloul
  نسخ جدول من قاعدة الي اخري مع الوصف atefkhalf2004 2 153 18-02-17, 01:34 AM
آخر رد: atefkhalf2004

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


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