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

واضح آرشیو وب فارسی:سایت ریسک: MatinCracker10-12-2008, 10:21 PMسلام دوستان. من توی ویژوال وارد نیستم. اگر میشه اساتید لطف کنن به سوال من جواب بدن. پیشاپیش ممنون :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: MatinCracker12-12-2008, 01:10 AMکسی نمیتونه راهنمایی کنه ؟؟ H A M A S12-12-2008, 10:00 AMکسی نمیتونه راهنمایی کنه ؟؟ اول توي قسمت جنرال اين دو متغير رو تعريف کن 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 ame 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 MatinCracker14-12-2008, 03:17 PMخیلی ممنون دوست عزیز سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 363]