اخواني في الفيجوال بسك 6 طريقة الربط بــ ado نقوم بعملية اظافة modul ثم اظافة
ثم تعريف المتغيرات للاتصال والربط
فما هي طريقة الربط بــ vb.net بطريقة ado لرجو الافادة
سلام عليكم
تم نقل الموضوع للقسم الصحيح
اخواني ارجو التوضيح ولو بمثال لعملية الحفظ فقط
(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
اخوي سعود الله يعطيك العافة على مساعدتي انا مبتدى بل VB.NET لاني استخدم فيجوال بيسك 6 واريد الانتقال ولاكن احتاج بعض المساعده
المثال الي في المرفقات حملته ولاكن في اخطاء ولا ادري ما الحل ارفقة صورة الخطاء لتوضيح المشكلة
طيب اخوي انشيء مشروع جديد وانسخ الكائنات والاكواد وقاعدة البيانات ويشتغل باذن الله.
اخوي شعود عملت مثل ما قلت فتحت مشروع جديد ونسخت الاكواد وهذي صورة الرسالة في المرفقات
هذا لان المزود يخص اصدار الاكسس من 2007 واحدث اذا كان اصدار الاكسس لديك اقدم من 2007 غير المزود من 12.0 الى 4.0 وغير ace الى jet