یه سوال مهم. دوستان لطفا کمک کنن.

سلام دوستان.
من توی ویژوال وارد نیستم. اگر میشه اساتید لطف کنن به سوال من جواب بدن. پیشاپیش ممنون :10:

و اما سوال : مثلا ماجدولی از نوع اکسس در New Folder 1 داریم که میخواهیم آن جدول را به ویژوال بیسیک 6 وصل کنیم.
برنامه VB را باز میکنیم. یک فرم Data Project انتخاب میکنیم. در قسمت سمت راست و در فایل Designer ما Data Environment را انتخاب میکنیم. بر روی آن دو بار کلیک میکنیم. در قسمت Connection آن راست کليک کرده و در قسمت Properties و در تب نشان Microsoft Jet 4.0 Provider را انتخاب میکنیم. دکمه Next را زده و Database را مشخص میکنیم (جدول مورد نظر از Access) و Connection را تست میکنیم Ok کرده و خارج میشویم اکنون اگر محل آن جدول را تغییر دهیم مثلا از New Folder 1 به New Folder 2 تغییر دهیم و در قسمت Properties آنConnection را تست کنیمبه ما Error میدهد که جای آن عوض شده است.
سوال اینکه چکار کنم که اگر محل آن عوض شد هم خود برنامه آن را پیدا کرده و ما دیگر Database Name را تغییر ندهیم.

دوستان عزیز ممنون میشم منو راهنمایی کنید.
مرسی :40:

کسی نمیتونه راهنمایی کنه ؟؟

نقل قول:

---

نوشته شده توسط MatinCracker [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کسی نمیتونه راهنمایی کنه ؟؟

---

اول توي قسمت جنرال اين دو متغير رو تعريف کن
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
===============================
Private Sub Form_Load()
On Error Resume Next
Dim NmDatabase As String
With rs
NmDatabase = App.Path & "\mdb\name your data base.mdb"
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & NmDatabase & ";Persist Security Info=False"
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenStatic
.Source = "select*from TabelPB"
.Open
End With

خیلی ممنون دوست عزیز