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


در دنیای برنامه‌نویسی، عملیات CRUD نقش حیاتی و اساسی دارند. این عملیات شامل چهار بخش اصلی است: Create (ایجاد)، Read (خواندن)، Update (به‌روزرسانی)، و Delete (حذف). هر برنامه‌ای که نیاز به مدیریت داده‌ها دارد، باید این عملیات را به شکلی مناسب پیاده‌سازی کند. در این مقاله، قصد دارم به طور کامل و جامع درباره ساختن یک سورس کد CRUD در VB.NET با استفاده از دیتابیس اکسس MDB صحبت کنم.
ابتدا باید توجه داشت که VB.NET یکی از زبان‌های برنامه‌نویسی قدرتمند و محبوب در توسعه برنامه‌های ویندوز است. این زبان امکانات و قابلیت‌های فراوانی را برای ارتباط با دیتابیس‌ها فراهم می‌کند، که یکی از آن‌ها استفاده از ADO.NET است. در کنار این، دیتابیس اکسس MDB به دلیل سادگی و سبک بودن، گزینه‌ی مناسبی برای پروژه‌های کوچک و متوسط است.
برای شروع، نیازمند یک پروژه ویندوز فرم در VB.NET هستید. پس از ایجاد پروژه، باید یک دیتابیس اکسس جدید بسازید و جدول‌های مورد نیاز خود را تعریف کنید. فرض کنیم جدولی به نام "Students" داریم که شامل ستون‌هایی مانند "ID"، "Name"، "Age"، و "Email" است. این جدول، نمونه‌ای است برای مدیریت دانش‌آموزان.

ساختن دیتابیس اکسس و اتصال آن به پروژه VB.NET




در ابتدا، باید فایل MDB را در مسیر پروژه یا مسیر دلخواه قرار دهید. پس از آن، باید رشته اتصال (Connection String) را تعریف کنید. این رشته اتصال، اطلاعات مربوط به مسیر فایل، نوع دیتابیس و دیگر پارامترهای لازم برای برقراری ارتباط را شامل می‌شود. مثلا:
vb  


Dim conString As String = "Provider=Microsoft.Jet.OLEDB.
  1. 0;Data Source=|DataDirectory|\Students.mdb"

در اینجا، فرض بر این است که فایل MDB در دایرکتوری داده‌های پروژه قرار دارد.

پیاده‌سازی عملیات Create (ایجاد رکورد)




برای افزودن رکورد جدید به جدول، از دستور INSERT INTO استفاده می‌کنیم. در VB.NET، این عملیات معمولاً با استفاده از OleDbCommand انجام می‌شود. نمونه کد زیر، نحوه افزودن یک دانش‌آموز جدید را نشان می‌دهد:
vb  


Dim query As String = "INSERT INTO Students (Name, Age, Email) VALUES (@Name, @Age, @Email)"


Using conn As New OleDbConnection(conString)


    Using cmd As New OleDbCommand(query, conn)


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


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


        cmd.Parameters.AddWithValue("@Email", txtEmail.Text)


        conn.Open()


        cmd.ExecuteNonQuery()


    End Using  


End Using

در این کد، فرض بر این است که TextBoxهای مربوطه در فرم وجود دارند. همچنین، بهتر است قبل از اجرای عملیات، صحت داده‌ها بررسی شود تا خطاهای احتمالی کاهش یابد.

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




برای نمایش داده‌ها، معمولاً از یک DataGridView یا ListBox استفاده می‌شود. در این قسمت، باید داده‌ها را از جدول خوانده و در کنترل‌های مربوطه قرار دهیم. نمونه کد زیر، داده‌ها را از جدول می‌خواند و در DataGridView نمایش می‌دهد:
vb  


Dim query As String = "SELECT * FROM Students"


Dim dt As New DataTable()
Using conn As New OleDbConnection(co...  ← ادامه مطلب در magicfile.ir