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

ابتدا کار باADO رو می گم:
برای استفاده از تکنولوژی ADO باید Refrence اون رو به پروژه اضافه کنید. روش:

Project - Refrence - Microsoft Actixiv Data Object

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataBaseName.mdb"
 Adodc1.CommandType = adCmdTable
 Adodc1.RecordSource = "TableName"
 Adodc1.Refresh

رتباط بانک اطلاعاتی با Visual Basic

نحوه ارتباط پایگاه داده 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

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

 باتشکر از شما