Database Handling in Visual Basic

تعتبر قواعد البيانات من العناصر الرئيسية في تطبيقات البرمجة، وتلعب دورًا حاسمًا في تخزين واسترجاع البيانات، ويوفر الفيجوال بيسك (Visual Basic) مجموعة قوية من الأدوات والميزات للتعامل مع قواعد البيانات بطريقة فعّالة وبسيطة، وفي هذا المقال، سنلقي نظرة على كيفية التعامل مع قواعد البيانات باستخدام الفيجوال بيسك.

 الاتصال عند التعامل مع قواعد البيانات 

إتصال قواعد البيانات (Connection)

أحد الخطوات الأساسية في التعامل مع قواعد البيانات هي إنشاء اتصال بالقاعدة. يتيح الفيجوال بيسك استخدام

كائنات الاتصال لتحديد موقع قواعد البيانات وتأكيد الاتصال.

للمزيد من المقالات قد ترغب في الاطلاع على: تحليل الاحتياجات وجمع المتطلبات

Dim connection As New SqlConnection(“اسم_الاتصال”)

connection.Open()

استعلام  البيانات (Data Retrieval)

باستخدام أوامر الاستعلام SQL، يمكنك استرجاع البيانات من قاعدة البيانات، وعلى سبيل المثال:

Dim command As New SqlCommand(“SELECT * FROM الجدول”, connection)

Dim reader As SqlDataReader = command.ExecuteReader()

While reader.Read()

    ‘ قراءة البيانات هنا

End While

reader.Close()

تحديث البيانات

 تحديث السجلات (Updating Records)

لتحديث البيانات في قاعدة البيانات، يُستخدم أمر UPDATE. في الفيجوال بيسك، يمكن تنفيذ هذا الأمر بسهولة:

Dim updateCommand As New SqlCommand(“UPDATE الجدول SET الحقل = القيمة WHERE الشرط”, connection)

updateCommand.ExecuteNonQuery()

إضافة سجلات جديدة (Inserting New Records)

لإضافة سجلات جديدة، يُستخدم أمر INSERT، وعلى سبيل المثال:

Dim insertCommand As New SqlCommand(“INSERT INTO الجدول (حقل1, حقل2) VALUES (قيمة1, قيمة2)”, connection)

insertCommand.ExecuteNonQuery()

حذف سجلات (Deleting Records)

يمكن حذف سجلات من قاعدة البيانات باستخدام أمر DELETE:

Dim deleteCommand As New SqlCommand(“DELETE FROM الجدول WHERE الشرط”, connection)

deleteCommand.ExecuteNonQuery()

إغلاق الاتصال بقاعدة البيانات

هذا وبعد الانتهاء من التعامل مع قاعدة البيانات، يُفضل إغلاق الاتصال لتحرير الموارد:

connection.Close()

باستخدام Visual Basic، يمكنك بسهولة التعامل مع البيانات، كذلك إجراء العمليات الأساسية مثل الاستعلام، التحديث، والحذف، بالإضافة إلى تحسين هذه العمليات يعزز أداء التطبيقات ويجعلها أكثر فعالية في إدارة البيانات.

التعامل مع قواعد البيانات في فيجوال بيسك – Database Handling in Visual Basic

يعتبر التعامل مع  البيانات من المهام الأساسية عند تطوير التطبيقات باستخدام فيجوال بيسك (Visual Basic). توفر لغة فيجوال بيسك أدوات ومكتبات متقدمة لتسهيل الاتصال والتفاعل مع البيانات المختلفة. في هذا المقال، سنتناول كيفية التعامل مع قواعد البيانات في فيجوال بيسك من خلال الخطوات التالية:

إعداد البيئة:

قبل البدء في التعامل مع قواعد البيانات، تأكد من تثبيت بيئة التطوير المتكاملة (IDE) لفيجوال بيسك، مثل Visual Studio، وتثبيت مكتبات ADO.NET اللازمة للتفاعل مع قواعد البيانات.

إنشاء اتصال بقاعدة البيانات:

لإنشاء اتصال بقاعدة البيانات، تحتاج إلى سلسلة اتصال (Connection String) تتضمن معلومات الخادم، قاعدة البيانات، بيانات الاعتماد، وغيرها. يمكن استخدام مكتبة SqlConnection للاتصال بقواعد بيانات SQL Server. إليك مثال:

Imports System.Data.SqlClient

Dim connectionString As String = “Data Source=server_name;Initial Catalog=database_name;Integrated Security=True”

Dim connection As New SqlConnection(connectionString)

فتح الاتصال وإغلاقه:

بعد إنشاء الاتصال، يمكنك فتحه باستخدام الأمر Open وإغلاقه باستخدام الأمر Close كما يلي:

Try

connection.Open()

‘ تنفيذ عمليات على قاعدة البيانات هنا

Catch ex As Exception

MessageBox.Show(“Error: ” & ex.Message)

Finally

connection.Close()

End Try

تنفيذ الأوامر:

كذلك،  يمكنك تنفيذ الأوامر المختلفة مثل استعلامات SQL (SELECT, INSERT, UPDATE, DELETE)

باستخدام SqlCommand. إليك مثال على استعلام SELECT:

Dim command As New SqlCommand(“SELECT * FROM TableName”, connection)

Try

    connection.Open()

    Dim reader As SqlDataReader = command.ExecuteReader()

    While reader.Read()

        Console.WriteLine(reader(“ColumnName”).ToString())

    End While

    reader.Close()

Catch ex As Exception

    MessageBox.Show(“Error: ” & ex.Message)

Finally

    connection.Close()

End Try

التعامل مع البيانات:

يمكنك استخدام SqlDataAdapter وDataSet لقراءة وتحديث البيانات من قاعدة البيانات، إليك مثال على قراءة البيانات:

Dim adapter As New SqlDataAdapter(“SELECT * FROM TableName”, connection)

Dim dataSet As New DataSet()

Try

    adapter.Fill(dataSet, “TableName”)

    ‘ التعامل مع البيانات في DataSet هنا

Catch ex As Exception

    MessageBox.Show(“Error: ” & ex.Message)

End Try