تغییر مسیر DATA

[شفیعی]

سلام
اگر بخواهیم از داخل برنامه نوع فایل و مسیر بانک اطلاعاتی (MDB) را تغییر دهیم باید چکار کنیم
اگر بخواهیم این کار را در DATAREPORT انجام دهیم باید چکار کنیم .
ایا ویژوال بیسیک چیزی شبیه ALIAS در دلفی دارد که مسیر بانکها را توسط آن به برنامه معرفی نمود .

[v_shalchian]

خاصیت Connect از Data را به ODBC تغییر دهید و برنامه رو اجرا کنید.شاید ایده ای به شما بده.
در هر حال فکر کنم شما از ADO استفاده کنید بهتر باشه.

[شفیعی]

سلام
من در برنامه این کار را انجام می دهد بعضی مواقع درست جواب نمی دهد

Private Sub Form_Load()

If Right(App.Path, 1) = "\" Then A = "" Else A = "\"

Data1.DatabaseName = App.Path & A & "INFOMAP.MDB"

Data1.RecordSource = "MAP"

Data2.DatabaseName = App.Path & A & "INFOMAP.MDB"

Data2.RecordSource = "AREA"

End Sub

[v_shalchian]

کد زیر رو هم به برنامه اضافه کنید.احتمالا مشکل حل بشه.

Data1.Refresh

Data2.Refresh

[شفیعی]

سلام
برای نمایش فایلهای DBF برنامه زیر را نوشته ام ولی پیغام خطا می دهد

Private Sub File1_Click()

If Right(Dir1.Path, 1) = "\" Then A = "" Else A = "\"

Data1.Connect = "FoxPro 2.6;"

Data1.DatabaseName = Dir1.Path + A + File1.FileName

Data1.RecordSource = File1.FileName

Data1.Refresh

End Sub

[شفیعی]

سلام
اگر بخواهیم مسیر فایلهای موجود در DATAREPORT را از داخل برنامه تغییر داد چکار باید کرد
ایا ویژوال بیسیک چیزی شبیه ALIAS در دلفی دارد که مسیر بانکها را توسط آن به برنامه معرفی نمود

[شفیعی]

سلام
لطفا کمک کنید نیاز فوری دارم

[asef-khan]

سلام خسته نباشید .
من از ado برای برنامه نویسی استفاده میکنم . برای گزارش های ساده که گروه بندی نداره از روش زیر رو بکار میبرم روی محیط degine ریپورد text box به صورت
unbound اضافه میکنم بعد به روش زیر اتصال برقرار میشه و مهم نیست بانک کجاست
l Private Sub mnuprint_Click()

Dim cnxn As ADODB.Connection
Dim rstchange As ADODB.Recordset
Dim strsql As String
Set cnxn = New ADODB.Connection
cnxn.Provider = "Microsoft.Jet.OLEDB.4.0


"", "",nxn.Open App.Path & "\smallvessels.md
Set rstchange = New ADODB.Recordset
strsql = "select * from vchange where fmnreg='" & Trim(frmmain.txtfno1.Text) & "' and fn1no='" & Trim(txtvno.Text) & "'"
rstchange.Open strsql, cnxn, adOpenKeyset, adLockOptimistic, adCmdText


Set report2.DataSource = rstchange


("With report2.Sections("info1

_. ( " controls("txttest1
" نام فیلد"= datafield




End With



'report2.Show (vbModal
report2.PrintReport True, rptRangeAllPages

بهتره که از active report 2.0 واسه گزارش سازی استفاده کنی
موفق باشی