تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتح وقراءة حفظ قاعدة بيانات اكسس
#1
كاتب الموضوع : FlyToAbd

لفتح ملف بيانات اكسيس

Private Cnn As OleDbConnection
Cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & Me.FileName & "';Jet OLEDBatabase Password='123456'")حيث المتغير FileName فيه اسم ومسار الملف وكلمة المرور 123456
اضف DataSet واجعل اسمها dstMain
اعلن عن متغير من نوع dstMain كما يلي

Public Data As dstMain

للقراءة من قاعدة البيانات

استدعي الاجراء التالي
Public Sub ReadDate()
Data = New dstMain
Dim Adp As OleDbDataAdapter
For Each aTable As DataTable In Data.Tables
Adp = New OleDbDataAdapter("Select * From " & aTable.TableName, Cnn)
Dim Cmdbld As New OleDbCommandBuilder(Adp)
Adp.Fill(aTable)
Next
End Sub
بعد الفتح قم بما تشاء من تغييرات منطقية

للحفظ في قاعدة البيانات

استدعي الاجراء التالي
Public Sub WriteData()
Dim Adp As OleDbDataAdapter
For Each aTable As DataTable In Data.Tables
Adp = New OleDbDataAdapter("Select * From " & aTable.TableName, Cnn)
Dim Cmdbld As New OleDbCommandBuilder(Adp)
Adp.Update(aTable)
Next
End Sub
}}}}
تم الشكر بواسطة:
#2


كود :
Cnn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Me.FileName & "';Jet OLEDB:Database Password='123456'")
حيث المتغير FileName فيه اسم ومسار الملف وكلمة المرور 123456
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  شرح (فيديو) رفع موقع ASP.Net وقاعدة بيانات SQL Server RaggiTech 0 886 27-10-12, 04:27 PM
آخر رد: RaggiTech
  شرح (فيديو) رفع موقع ASP.Net وقاعدة بيانات SQL Server RaggiTech 0 633 09-10-12, 06:25 PM
آخر رد: RaggiTech

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


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