راهنمای ایجاد عملیات CRUD در VB6 با پایگاه داده MS Access

راهنمای ایجاد عملیات CRUD در VB6 با پایگاه داده MS Access

معنی CRUD چیست؟

CRUD مخفف چهار عملیات اصلی بر روی پایگاه داده است:

• ایجاد (Create)
• خواندن (Read)
• به‌روزرسانی (Update)
• حذف (Delete).

در این مقاله، نحوه پیاده‌سازی این عملیات را در Visual Basic 6 (VB6) با استفاده از پایگاه داده Microsoft Access آموزش خواهیم داد.

پیش‌نیازها

برای اجرای این پروژه، نیاز به ابزارهای زیر داریم:

• Visual Basic 6.0
• Microsoft Access (نسخه 2003 یا پایین‌تر برای سازگاری با VB6)
• Microsoft DAO یا ADO برای اتصال به پایگاه داده
• یک پایگاه داده Access (با پسوند .mdb)

ایجاد پایگاه داده در MS Access

1. Microsoft Access را باز کنید و یک پایگاه داده جدید با نام Database.mdb ایجاد کنید.
2. یک جدول جدید با نام Users بسازید و فیلدهای زیر را اضافه کنید:
   • ID (کلید اصلی، نوع: AutoNumber)
   • Name (نوع: Text)
   • Email (نوع: Text)
   • Phone (نوع: Text)
3. جدول را ذخیره کنید.

اتصال VB6 به پایگاه داده Access

1. ایجاد یک پروژه در VB6

• VB6 را باز کنید.
• یک پروژه جدید از نوع Standard EXE ایجاد کنید.
• یک فرم جدید (Form1) اضافه کنید.

2. اضافه کردن کنترل‌های لازم به فرم

روی فرم، کنترل‌های زیر را اضافه کنید:

• ۴ TextBox برای Name، Email و Phone
• ۴ CommandButton برای Add, Update, Delete, و Search
• یک DataGrid برای نمایش اطلاعات
• یک ADO Data Control برای مدیریت ارتباط با پایگاه داده

3. تنظیمات ADO Data Control

• روی ADO Data Control کلیک کنید.
• در بخش ConnectionString مقدار زیر را تنظیم کنید:

  Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database.mdb;

• مقدار RecordSource را به SELECT * FROM Users تنظیم کنید.

پیاده‌سازی عملیات CRUD در VB6

1. ایجاد دیتا بیس(Create)

افزودن داده‌های جدید به جدول Users:

 

 

()Private Sub cmdAdd_Click

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

“;conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database.mdb

“conn.Execute “INSERT INTO Users (Name, Email, Phone) VALUES (‘” & txtName.Text & “‘, ‘” & txtEmail.Text & “‘, ‘” & txtPhone.Text & “‘)

“!MsgBox “Record Added Successfully

conn.Close

End Sub

راهنمای ایجاد عملیات CRUD در VB6 با پایگاه داده MS Access

2. خواندن دیتا بیس

برای نمایش داده‌های موجود در DataGrid:

()Private Sub Form_Load
ADODataControl1.Refresh
End Sub

3. به‌روزرسانی دیتا بیس (Update)

بروزرسانی اطلاعات یک کاربر بر اساس ID:

()Private Sub cmdUpdate_Click
Dim conn As New ADODB.Connection
“;conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database.mdb

“conn.Execute UPDATE Users SET Name='” & txtName.Text & “‘, Email='” & txtEmail.Text & “‘, Phone='” & txtPhone.Text & “‘ WHERE ID=” & txtID.Text

“!MsgBox “Record Updated Successfully

conn.Close
End Sub

4. حذف دیتا بیس(Delete)

حذف یک کاربر از پایگاه داده:

()Private Sub cmdDelete_Click
Dim conn As New ADODB.Connection
“;conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database.mdb

conn.Execute “DELETE FROM Users WHERE ID=” & txtID.Text

“!MsgBox “Record Deleted Successfully
onn.Close
End Sub

5. جستجو (Search)

جستجوی کاربر بر اساس Name:

()Private Sub cmdSearch_Click
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

“;conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Database.mdb
rs.Open “SELECT * FROM Users WHERE Name LIKE ‘%” & txtName.Text & “%'”, conn, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
txtID.Text = rs!ID
txtEmail.Text = rs!Email
txtPhone.Text = rs!Phone
Else
“!MsgBox “Record Not Found
End If
rs.Close
conn.Close
End Sub