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


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

معرفی MS SQL LocalDB




MS SQL LocalDB نسخه‌ای سبک و کم‌حجم از SQL Server است که برای توسعه و تست برنامه‌های کوچک و متوسط طراحی شده است. این نسخه بدون نیاز به نصب کامل SQL Server، به راحتی قابل راه‌اندازی است و به‌عنوان یک پایگاه داده محلی، امکانات کامل برای ذخیره، بازیابی، و مدیریت داده‌ها را فراهم می‌آورد. در پروژه‌های VB.NET، می‌توان از این نوع دیتابیس برای تمرین، توسعه اولیه، و حتی پروژه‌های کوچک بهره برد.

ساختار دیتابیس و جداول




برای سیستم پروفایل، نیاز است یک جدول کاربری طراحی کنیم. فرض کنید جدول به نام `Users` باشد که شامل فیلدهای زیر است:
- `Id` (نوع INT، کلید اصلی، خود افزایش)

- `FirstName` (NVARCHAR(50))

- `LastName` (NVARCHAR(50))

- `Email` (NVARCHAR(100))

- `Age` (INT)
این جدول، نقطه شروع برای عملیات CRUD است. ابتدا، باید دیتابیس و جدول را ایجاد کنیم.
sql  


CREATE DATABASE UserProfilesDB;


GO
USE UserProfilesDB;
CREATE TABLE Users (


    Id INT IDENTITY(1,1) PRIMARY KEY,


    FirstName NVARCHAR(50),


    LastName NVARCHAR(50),


    Email NVARCHAR(100),


    Age INT  


);

پس از ساختن جدول، نوبت به نوشتن کد در VB.NET می‌رسد که بتوانیم با این پایگاه داده ارتباط برقرار کنیم و عملیات CRUD را پیاده‌سازی کنیم.

برقراری ارتباط با دیتابیس در VB.NET




در برنامه VB.NET، برای ارتباط با دیتابیس، از کلاس‌های `SqlConnection`، `SqlCommand`، و `SqlDataReader` بهره می‌بریم. این کلاس‌ها به ما اجازه می‌دهند عملیات مختلف را بر روی دیتابیس انجام دهیم.
ابتدا، نیاز است یک رشته اتصال (Connection String) تعریف کنیم که مشخص کند برنامه چگونه به دیتابیس متصل می‌شود.
vb  


Dim connectionString As String = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=|DataDirectory|\UserProfilesDB.mdf;Integrated Security=True"

در این رشته، مسیر فایل دیتابیس باید صحیح باشد و در صورت نیاز، باید آن را تنظیم کنید.

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




برای افزودن کاربر جدید، یک تابع در نظر می‌گیریم:
vb  


Public Sub AddUser(firstName As String, lastName As String, email As String, age As Integer)


    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", firstName)


            cmd.Parameters.AddWithValue("@LastName", lastName)


            cmd.Parameters.AddWithValue("@Email", email)


            cmd.Parameters.AddWithValue("@Age", age)


            conn.Open()


            cmd.ExecuteNonQuery()
...  ← ادامه مطلب در magicfile.ir