نكاتی در مورد برنامه نويسي در Visual Basic

[اوبالیت به بو]

نحوه ارتباط پایگاه داده Access با Visual Basic از طریق کد نویسی:
* شی ADODB :
برای این کار باید یک رابط ایجاد کنیم تا با بانک اطلاعاتی وصل بشیم. رابطهامون متغیرهامون هستن.

Dim Cnn As New ADODB.Connection

متغیر Cnn رابط ما شد. با استفاده شی Connection می تونیم با پایگاه داده وصل بشیم. حالا باید با دستور Open بانک رو باز کنیم:

Cnn.Open(ConnectionString)

Cnn: متغیر رابط
ConnectionString :اتصال به انواع مختلف بانک اطلاعاتی هستش. مثل Jet- SQL Server - Oracle - ODBC و...
حالا باید به جداول یانک ارتباط برقرار کنیم. یه متغیر برای اتصال به اسم Rst.

Dim Rst As New ADODB.Recordset

باز کردن جدول با دستور Open صورت میگیره:

Rst.Open(TableName,Connection,CursorType,LockType,  Option)

*** نکته: حتماً هر فایلی یا هر بانکی که باز میشه حتماً باید بسته بشه. دستور بستن :

Close

اتصال به بانک:

Dim Cnn As New ODODB.Connection

Dim Rst As New ODODB.Recordset

Cnn.Open ( "Provider=Microsoft.Jet.OLEDB.4.0 ; DataSource= & App.Path & \DataBaseName")

Rst.Open(TableName,Cnn,addOpenKeyset,adLockOptimis  tic,adCmdTable

.

.

.

Rst.Close

Cnn.Close

Set Rst = Nothing

Set Cnn = Nothing

با Source و ConnectionString آشنا شدیم. حالا Cursor Type.
CursorType: نوع دسترسی شما به Recordset رو بیان می کنه که با یکسری ثابت مقداری دهی میشه.

• adOpenForwardOnly: فقط Recordset خواندنی
• adOpentStatic : یک Recordset استاتیک در اختیار شماست یعنی هر تغییری که انجام بدین در بانک اعمال نمیشه!
• adOpenDynamic: یه Recordset کامل و پویا رو در اختیارتون قرار می ده.

LockType: یک نوع Permission برای Recordset اختیار می کنین.

• adLockReadOnly: اجازه ایجاد رکورد جدید رو ندارید. فقط مشاهده.
• adCmdtext: تویه پست قبلی توضیح دادم.
• adCmdTable : تویه پست قبلی توضیح دادم.
• adLockOptimistic: هنگام Update کردن Recordset رو قفل می کنه.

[اوبالیت به بو]

نحوه ارتباط پایگاه داده Access با Visual Basic از طریق کد نویسی:

متدهای Recordset:

متدهایی هستن که به شما امکان پردازش رویه رکوردها رو می ده.
* شی Adodc :
اضافه کردن رکورد جدید:

Adodc1.Recordeset.AddNew

رفتن به رکورد دلخواه:

 Adodc1.Recordset.Move (RecordNumber)

حذف: 

Adodc1.Recordset.Delete

اولین رکورد :

Adodc1.Recordset.MoveFirst

رکورد قبلی:

Adodc1.Recordset.MovePrevious

رکورد بعدی :

Adodc1.Recordset.MoveNext

آخرین رکورد :

Adodc1.Recordset.MoveLast

رسیدن به اولین فیلد - {Begin Of File} :

 Adodc1.Recordset.BOF

رسیدن به آخرین فیلد - {End Of File} :

 Adodc1.Recordset.EOF

ذخیره یک رکورد جدید:

  Adodc1.Recordset.Update  

ذخیره اطلاعات رکورد به صورت فایل :

 Adodc1.Recordset.Save   

جستجو :

Adodc1.Recordset.Find(Criteria As String,SkipRecords As Long,Search Direction As SearchDirectionEnum=adSearchForward,[Start])

• Criteria As String: عبارت مورد جستجو
• SkipRecord: شروع از رکورد شماره N (پرش از رکورد)
• SearchDirection: مسیر جستجو

[اوبالیت به بو]

نحوه ارتباط پایگاه داده Access با Visual Basic از طریق کد نویسی:

متدهای Record Set

* شی ADODB :

بعد از باز کردن Recordset جهت پردازش رکورد ها از روش های زیر استفاده می کنیم:

اضافه کردن رکورد جدید:

  Rst.AddNew

حذف:

 Rst.Delete 

رفتن به رکورد دلخواه:

Rst.Move (RecordNumber) 

اولین رکورد :

 RST.MoveFirst 

رکورد قبلی:

 RST.MovePrevious

رکورد بعدی :

 Rst.MoveNext 

آخرین رکورد :

Rst.MoveLast  

رسیدن به اولین فیلد - {Begin Of File} :

Rst.BOF  

رسیدن به آخرین فیلد - {End Of File} :

Rst.EOF 

ذخیره یک رکورد جدید:

Rst.Update  

ذخیره اطلاعات رکورد به صورت فایل :

Rst.Save  

جستجو :

 Rst.Find(Criteria As String,SkipRecords As Long,Search Direction As SearchDirectionEnum=adSearchForward,[Start]) 

• Criteria As String: عبارت مورد جستجو
• SkipRecord: شروع از رکورد شماره N (پرش از رکورد)
• SearchDirection: مسیر جستجو

[اوبالیت به بو]

نحوه ارتباط پایگاه داده Access با Visual Basic از طریق کد نویسی:
ویرایش :
برای ویرایش یک رکورد ابتدا باید رکورد مورد نظر رو جستجو کنیم و سپس مقادیر اون در فیلدهای مختلف رو تغییر بدیم.

       Dim Cnn As New ADODB.Connection

 Dim Rst As New ADODB.Recordset

  .

  .

  .

  Do While Not (Rst.EOF)

   If Rst!FirstName = Trim(FirstNameTxt.Text) Then

    Rst!LastName = Str(LastName.Text)

    Rst!Telephone = Val(PhoneNumberTxt.Text)

   End If

  Wend

    Rst.Close

  Set Rst = Nothing

[اوبالیت به بو]

ذخیره عکس در پایگاه داده Access

Private Sub CmdNew_Click()

 Adodc1.Recordset.AddNew

End Sub

Private Sub CmdNew_Click()

 CommonDialog1.Filter = "(*.JPG)|*.JPG"

  If CommonDialog1.Filename <> "" Then

   Image1.LoadPicture = (CDMain.Filename)

  End If

End Sub

 

Private Sub CmdSave_Click()

 Call CmdOpen

 Adodc1.Recordset.Update

 Adodc1.Refresh

End Sub

 

ذخیره عکس در پایگاه داده باعث بالا رفتن حجم پایگاه داده میشه و از سرعت دسترسی به اطلاعات یک رکورد کاسته میشه. پس توصیه میشه که عکس رو در پایگاه داده ذخیره نکنید!

[اوبالیت به بو]

برای دسترسی کاربران به یک سری فعالیت ها باید یک روال بسازیم تا تمام امکانات را در اختیار کاربران قرار دهد.
مثال:

• مدیر : اجازه ثبت نام، ویرایش، اخراج دانش آموزان را دارد.
• معاون: اجازه ثبت نام، ویرایش دانش آموزان را دارد.
• دفتردار : اجازه ویرایش دانش آموزان را دارد.

 Option Explicit

 Public AddNew As Boolean

 Public Delete As Boolean

 Public Edit As Boolean

 Public GroupTypeName As String

 Public Sub GroupType()

   'Access Type

  If GroupTypeName = "Admin" Then

   AddNew = True

   Delete = True

   Edit = True

  End If

  If GroupTypeName = "Assistant" Then

   AddNew = True

   Edit = True

   Delete = False

  End If

  If GroupTypeName = "BookKeeper" Then

   AddNew = False

   Edit = True

   Delete = False

  End If

End Sub

یک مثال برای فهم بیشتر.