درخواست کمک بسیار فوری

[saeed-n]

با سلام خدمت تمام دوستان عزیز​

من یه برنامه با ویژوال بیسیک نوشتم با access هم دیتا بیسش رو ساختم الان هم نمی دونم چطوری اینا رو به هم ربط بدم چون یه کم مبتدی ام واسه همین اصلا با اصطلاح های وِزوال هم آشنا نیستم اگه ممکنه به من کمک کنید تا یه کم را بیفتم فقط اگه پاسخی میدید لطفا از مبتدی باشه

ممنون از همه دوستایی که تو این زمینه کمکم می کنن
​

 

[the_king]

با سلام خدمت تمام دوستان عزیز​

من یه برنامه با ویژوال بیسیک نوشتم با access هم دیتا بیسش رو ساختم الان هم نمی دونم چطوری اینا رو به هم ربط بدم چون یه کم مبتدی ام واسه همین اصلا با اصطلاح های وِزوال هم آشنا نیستم اگه ممکنه به من کمک کنید تا یه کم را بیفتم فقط اگه پاسخی میدید لطفا از مبتدی باشه

ممنون از همه دوستایی که تو این زمینه کمکم می کنن
​

ویژوال بیسیک 6.0 ؟
فرض کنیم که شما یک دیتابیس در فایل test.mdb ساخته اید. این فایل رو در همون پوشه ای که پروژه ویژوال بیسیک تان
قرار دارد کپی کنید. در ویژوال بیسیک که پروژه تان را باز کرده اید، در منوی Project گزینه References رو انتخاب کنید.
Microsoft DAO Object Library رو پیدا کرده و تیک بزنید و دکمه OK را فشار دهید. ممکنه در لیست چند نسخه متفاوت
از DAO باشه، فقط بالاترین (جدیدترین) نسخه رو انتخاب کنید.

باید یک متغیر برای باز کردن دیتابیس بسازید، مثلا متغیر DB

Private DB As Database

و فایل test.mdb را اینگونه در متغیر DB باز کنید، متغیر Path کمک می کنه که مسیر فایل مطابق با محل پروژه
شما و فایل exe برنامه تان باشد :

    Dim Path As String
    Path = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "test.mdb"
    Set DB = OpenDatabase(Path, True, False, "")

از زمانی که کد بالا را اجرا کنید DB آماده استفاده است، اما باید جدول داخل دیتابیس را هم بخوانید.
اول باید یک متغیر برای دسترسی به جدول بسازید، مثلا متغیر R

Private R As Recordset

فرض کنیم که نام Table داخل دیتابیس MyTable باشد، اینگونه در متغیر R بازش کنید :

    Set R = DB.OpenRecordset("MyTable", dbOpenTable)

حالا می توانید مثلا چک کنید که در Table چند رکورد ذخیره شده، متغیر RecordCount تعداد رکورد ها را نشان می دهد :

    If R.RecordCount > 0 Then
.
.
.
    End If

اگر بخواهید سراغ اولین رکورد جدول بروید از MoveFirst استفاده کنید :

        R.MoveFirst

و می توانید با مشخص کردن نام فیلد هایی که داخل جدول تعریف کرده اید مقدارشان را بخوانید :

        Text1.Text = R.Fields("Firstname").Value
        Text2.Text = R.Fields("Lastname").Value

اگر بخواهید مقدار فیلد ها را تغییر دهید، قبل از شروع ویرایش از دستور Edit و بعد از پایان ویرایش از Update
استفاده کنید :

    R.Edit
    R.Fields("Firstname").Value = Text1.Text
    R.Fields("Lastname").Value = Text2.Text
    R.Update

و ...
به نمونه پروژه پیوستی یک نگاهی بندازید : MDBTest.zip

برای یک نمونه کامل رجوع شود به : سورس دفتر تلفن در ويژوال بيسيك