سورس کد CRUD در VB.NET با کد منبع و دیتابیس اکسس MDB: راهنمای جامع و کامل


وقتی به توسعه نرم‌افزارهای پایه‌ای و پایگاه داده می‌رسیم، عملیات CRUD که مخفف Create، Read، Update، و Delete است، نقش بسیار مهم و حیاتی دارد. این عملیات‌ها اساس هر برنامه‌ای هستند که نیازمند مدیریت داده‌های ذخیره شده در پایگاه داده می‌باشد، به‌خصوص در برنامه‌های ویندوزی که با زبان VB.NET توسعه یافته‌اند. در این مقاله، قصد داریم به تفصیل درباره ساخت یک پروژه VB.NET که عملیات CRUD را با استفاده از دیتابیس اکسس MDB پیاده‌سازی می‌کند، صحبت کنیم. این توضیحات شامل کد منبع، طراحی فرم، ارتباط با بانک اطلاعات، و نکات مهم است تا بتوانید به صورت کامل این تکنولوژی را در پروژه‌های خود به کار ببرید.

مقدمه‌ای بر VB.NET و دیتابیس اکسس MDB




VB.NET یکی از زبان‌های قدرتمند و محبوب در توسعه برنامه‌های ویندوز است که به دلیل سهولت در نوشتن کد و امکانات فراوان، بسیار مورد استقبال قرار گرفته است. از طرف دیگر، اکسس MDB (Microsoft Access Database) یک سیستم مدیریت پایگاه داده است که برای پروژه‌های کوچک تا متوسط مناسب است. این پایگاه داده به راحتی می‌تواند با VB.NET ارتباط برقرار کند، و عملیات CRUD را به سادگی پیاده‌سازی کند.
در این پروژه، فرض بر این است که شما یک دیتابیس اکسس به نام `SampleDB.mdb` دارید، که جدولی به نام `Employees` دارد. این جدول شامل فیلدهای `ID` (کلید اصلی، عددی و خودافزا)، `Name` (نام، متن)، `Age` (سن، عددی)، و `Position` (سمت، متن) است.

طراحی فرم در VB.NET




در این پروژه، یک فرم ویندوزی طراحی می‌کنیم که شامل کنترل‌های زیر باشد:
- TextBoxes برای وارد کردن نام (`txtName`)، سن (`txtAge`) و سمت (`txtPosition`)

- چند دکمه برای عملیات CRUD: `btnAdd`، `btnUpdate`، `btnDelete`، و `btnLoad`

- DataGridView برای نمایش داده‌های موجود در جدول `Employees` (`dgvEmployees`)
در کنار این کنترل‌ها، نیاز است تا کدهای مربوط به رویدادهای هر دکمه نوشته شود تا عملیات مربوطه انجام شود.

ارتباط با پایگاه داده




برای ارتباط با دیتابیس اکسس، از کلاس `OleDbConnection` استفاده می‌کنیم، که در فضای نام `System.Data.OleDb` قرار دارد. این کلاس امکان برقراری ارتباط، اجرای دستورات SQL، و مدیریت تراکنش‌ها را فراهم می‌کند.
نحوه تعریف اتصال اولیه به صورت زیر است:
vb.net  


Dim conString As String = "Provider=Microsoft.ACE.OLEDB.
  1. 0;Data Source=SampleDB.mdb;"


Dim con As New OleDbConnection(conString)

در اینجا، توجه کنید که `Provider` باید مطابق نسخه اکسس شما باشد، و مسیر فایل MDB باید صحیح باشد.

عملیات Create (درج داده جدید)




برای افزودن رکورد جدید، باید از دستور SQL `INSERT INTO` استفاده کنیم. در رویداد `btnAdd_Click`، کد زیر نوشته می‌شود:
vb.net  


Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click  


    Try  


        con.Open()


        Dim query As String = "INSERT INTO Employees (Name, Age, Position) VALUES (@Name, @Age, @Position)"


        Dim cmd As New OleDbCommand(query, con)


        cmd.Parameters.AddWithValue("@Name", txtName.Text)


        cmd.Parameters.AddWithValue("@Age", Convert.ToInt32(txtAge.Text))


        cmd.Parameters.AddWithValue("@Position", txtPosition.Text)


        cmd.ExecuteNonQuery()


        MessageBox.Show("Record added successfully.")


        LoadData()


    Catch ex As Exception  


        MessageBox.Show("Error: " & ex.Message)


    Finally  


        con.Close()


    End Try  


End Sub

در اینجا، پس از اتصال به بانک، رکورد جدید وارد شده و داده‌ها در جدول ذخیره می‌شوند. تابع `LoadData()` برای تازه‌سازی داده‌های DataGridView است.

عملیات Read (خواندن و نمایش داده‌ها)




برای نمایش داده‌ها، باید داده‌ها را از دیتابیس خوانده و در DataGridView قرار دهیم. این کار در تابع `LoadData()` انجام می‌شود:
vb.net  


Private Sub LoadData()


    Try  


        con.Open()


        Dim query As String = "SELECT * FROM Employees"


        Dim da As New OleDbDataAdapter(query, con)


        Dim dt As New DataTable()


        da.Fill(dt)


        dgvEmployees.DataSource = dt  


    Catch ex As Exception  


        MessageBox.Show("Error: " & ex.Message)
...  ← ادامه مطلب در magicfile.ir