Parsi Coders
مشکل در ادرس دهی بانک با کنترل adodc - نسخه قابل چاپ

+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: مشکل در ادرس دهی بانک با کنترل adodc (/showthread.php?tid=2170)



مشکل در ادرس دهی بانک با کنترل adodc - parvin - 04-24-2012

برای اینکه برنامه توی سیستم هایی غیر از سیستم خودمون هم اجرا بشه باید ادرس بانک اطلاعاتی رو به کنترل بدیم. تو کنترل دیتا با app.path این کارو میکنم و مشکلی پیش نمیاد ولی هر کاری کردم برای کنترل adodcنتونستم این کار رو بکنم. میشه کمک کنید؟


RE: مشکل در ادرس دهی بانک با کنترل adodc - Ghoghnus - 04-24-2012

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


RE: مشکل در ادرس دهی بانک با کنترل adodc - Amin_Mansouri - 04-24-2012

(04-24-2012، 07:53 AM)parvin نوشته: برای اینکه برنامه توی سیستم هایی غیر از سیستم خودمون هم اجرا بشه باید ادرس بانک اطلاعاتی رو به کنترل بدیم. تو کنترل دیتا با app.path این کارو میکنم و مشکلی پیش نمیاد ولی هر کاری کردم برای کنترل adodcنتونستم این کار رو بکنم. میشه کمک کنید؟



متاسفانه اصلا دقت نداری و اصلا فعال نیستی فکر کنم پروژه هات تمام بشه دیگه عمران سراغ برنامه نویسی بیایید



چون که من در چند پست قبل یه پروژه ساده برات گذاشتم یه نگاه بهش نکردی
اگر نگاه کرده بودی این جوابت بود :

یه سمپل کد واسه کانکشن استرینگ



کد:
Private Sub Form_Load()

On Error Resume Next

Text1.SetFocus

With Adodc1

      .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\BOOK.mdb"

      .CursorLocation = adUseClient

      .CursorType = adOpenDynamic

      .CommandType = adCmdText

      .RecordSource = "SELECT * FROM LG"

      .Refresh



End With

End Sub
یه سمپل دیگه :

کد:
cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\parvin.mdb"
    cn.Open
    Debug.Print "Connection Object Created"

بدرود