فى المقال التالى سنتعلم أن شاء الله تعالى كيفية استخدام قواعد بيانات Access 2007 مع تطبيقات Console Application بخطوات سهله جدا للغاية :

1_ نقوم بإنشاء قاعدة بيانات أكسس و ليكن بأسم database1

2_ قم بانشاء جدول و ليكن بأسم books

3_ قم بفتح الفجوال بيسك دوت نت و انشاء مشروع جديد من نوع Console Application كما فى الصور التالية :


4_قم بتحديد ايقونة المشروع ConsoleApplication1 ثم كليك يمين و من القائمة التى ستظهر أخر الامر Add ثم الامر Existing Item ...كما فى الصور التالية :


5_سيظهر لك المربع الحوارى التالى قم بتحديد و اختيار قاعدة البيانات التى تم إنشائها كما فى الصورة التالية :


6_ قم بالنقر فوق إلغاء الأمر إذا كان معالج تكوين مصدر البيانات تظهر على الشاشة كما فى الشكل التالى :



7_ نقوم بكتابة التعليمات البرمجة التالية فى صفحة كتابة الشفرة Module1

الكود:



    Imports System.Data.OleDb
    
    Module Module1
    
    Sub Main()
    Dim MyInput As String
    Call MainMenu()
    
    'Main Menu
    Console.WriteLine("Press r or R to Return in Main:")
    Console.WriteLine("Press x or X to Exit Program:")
    MyInput = Console.ReadLine
    If MyInput = "r" Then
    Console.Clear()
    Call MainMenu()
    ElseIf MyInput = "x" Then
    End
    End If
    Console.Read()
    End Sub
    
    Sub MainMenu()
    'We Declare a String
    Dim MyISBN As String
    Dim MyAuthor As String
    Dim MyTitle As String
    Dim Category As String
    Dim DatePublished As String
    
    'We Print an Output
    Console.Write("Please Enter ISBN: ")
    MyISBN = Console.ReadLine
    Console.Clear()
    Console.Write("Please Enter Author Name: ")
    MyAuthor = Console.ReadLine
    Console.Clear()
    Console.Write("Please Enter Book Title: ")
    MyTitle = Console.ReadLine
    Console.Clear()
    Console.Write("Please Enter Book Category: ")
    Category = Console.ReadLine
    Console.Clear()
    Console.Write("Please Enter Book Dat Published: ")
    DatePublished = Console.ReadLine
    Console.Clear()
    
    'We Create a 2 Space
    Console.WriteLine()
    
    Dim MyConnection As New OleDbConnection
    Dim MyCommand As New OleDbCommand
    Dim MySQL As String
    MySQL = "Insert Into books(isbn,author,title,category,datepublished) Values('" & MyISBN.ToString & "','" & MyAuthor.ToString & "','" & MyTitle.ToString & "','" & Category.ToString & "','" & DatePublished.ToString & "') "
    MyConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Database1.mdb")
    MyCommand = New OleDbCommand(MySQL, MyConnection)
    MyConnection.Open()
    MyCommand.ExecuteNonQuery()
    MyConnection.Close()
    Console.WriteLine("Data save in the Database!!!")
    Console.WriteLine()
    End Sub
    
    End Module

و يرجى ملاحظة أننا أستخدمنا جملة استعلام التالية :

الكود:

MySQL = "Insert Into books(isbn,author,title,category,datepublished) Values('" & MyISBN.ToString & "','" & MyAuthor.ToString & "','" & MyTitle.ToString & "','" & Category.ToString & "','" & DatePublished.ToString & "') "

لادراج البيانات فى حقول الجدول books و حفظها و يمكنك أستخدام باقى جمل الاستعلام فى الحذف و التعديل و خلافه ...و النتيجة كما فى النحو التالى :




تحياتى لكم