سورس کد ارتباط با دیتابیس و عملیات پایه CRUD در سیستم پروفایل با VB.NET و MS SQL LocalDB


در دنیای توسعه نرم‌افزار، ارتباط با پایگاه داده نقش بسیار حیاتی و کلیدی دارد، به‌خصوص زمانی که باید عملیات پایه‌ای مانند Create، Read، Update و Delete (CRUD) را در برنامه‌های ویندوزی پیاده‌سازی کنیم. در این مقاله، قصد دارم به صورت کامل و جامع به موضوع طراحی و توسعه یک سیستم پروفایل در VB.NET بپردازم که با استفاده از MS SQL LocalDB و کد منبع، این عملیات را انجام می‌دهد.
ابتدا باید بدانیم که چرا MS SQL LocalDB؟ این نسخه‌ای از SQL Server است که سبک و قابل حمل است، و بدون نیاز به نصب کامل سرویس‌های SQL Server، می‌توان آن را روی ماشین‌های توسعه دهنده اجرا کرد. این امر، توسعه و پیاده‌سازی سریع و آسان را تسهیل می‌کند و برای پروژه‌های کوچک و متوسط بسیار مناسب است.

ساختار پایگاه داده




در ابتدا، باید یک پایگاه داده برای سیستم پروفایل ایجاد کنیم. فرض کنیم نام پایگاه داده ما `UserProfileDB` است. جدول اصلی در این پایگاه داده، `Users` نام دارد که شامل ستون‌های زیر است:
- `ID` (int، کلید اصلی، خود افزایش)

- `FirstName` (nvarchar(50))

- `LastName` (nvarchar(50))

- `Email` (nvarchar(100))

- `Age` (int)
برای ایجاد این جدول، از اسکریپت SQL زیر استفاده می‌کنیم:
sql  


CREATE DATABASE UserProfileDB;


GO
USE UserProfileDB;


GO
CREATE TABLE Users (


    ID INT IDENTITY(1,1) PRIMARY KEY,


    FirstName NVARCHAR(50),


    LastName NVARCHAR(50),


    Email NVARCHAR(100),


    Age INT  


);

پس از ساخت جدول، باید اتصال به این پایگاه داده در برنامه VB.NET برقرار کنیم.

راه‌اندازی پروژه در VB.NET




در Visual Studio، یک پروژه Windows Forms ایجاد می‌کنیم، و کنترل‌هایی مانند TextBox، Button، DataGridView و Label را به فرم اضافه می‌کنیم تا بتوانیم عملیات CRUD را انجام دهیم و داده‌ها را نمایش دهیم.

پیکربندی اتصال به دیتابیس




برای اتصال، از کلاس `SqlConnection` استفاده می‌کنیم. رشته اتصال (`Connection String`) به شکل زیر است:
vb.net  


Dim connectionString As String = "Data Source=(LocalDB)\MSSQLLocalDB;Initial Catalog=UserProfileDB;Integrated Security=True"

این رشته، مسیر اتصال به دیتابیس LocalDB را مشخص می‌کند. در ادامه، کلاس‌های مربوط به عملیات CRUD را تعریف می‌کنیم.

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




برای درج یک کاربر جدید، باید یک تابع بنویسیم که داده‌های وارد شده در TextBox ها را گرفته و در جدول `Users` قرار دهد. نمونه کد:
vb.net  


Private Sub AddUser()


    Using conn As New SqlConnection(connectionString)


        Dim query As String = "INSERT INTO Users (FirstName, LastName, Email, Age) VALUES (@FirstName, @LastName, @Email, @Age)"


        Using cmd As New SqlCommand(query, conn)


            cmd.Parameters.AddWithValue("@FirstName", txtFirstName.Text)


            cmd.Parameters.AddWithValue("@LastName", txtLastName.Text)


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


            cmd.Parameters.AddWithValue("@Age", Integer.Parse(txtAge.Text))


            conn.Open()


            cmd.ExecuteNonQuery()


            MessageBox.Show("کاربر جدید با موفقیت افزوده شد.")


        End Using  


    End Using  


    LoadData()


End Sub

در این کد، از پارامترهای SQL برای جلوگیری از حملات SQL Injection استفاده شده است و پس از عملیات، داده‌ها را مجدداً بارگذاری می‌کنیم.

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




برای نمایش داده‌های کاربران در DataGridView، باید یک تابع بنویسیم که داده‌ها را از پایگاه داده خوانده و در کنترل DataGridView قرار دهد:
vb.net  


Private Sub LoadData()


    Using conn As New SqlConnection(connectionString)


        Dim query As String = "SELECT * FROM Users"


        Using cmd As New SqlCommand(query, conn)


            Dim adapter As New SqlDataAdap...  ← ادامه مطلب در magicfile.ir