چگونه میتوان بطور داینامیک مسیر را تعریف کرد

چگونه میتوان بطور داینامیک مسیر را تعریف کرد(در زمان اجرا)
من از دستور AdfoConnection1.Connection.String :=' مسیر فایل. ';
استفاده میکنم خطا میده به تعداد کاراکترها

نه به این راحتی ها نیست یک سری پیش فرض ها دارد.

موفق باشید :flower:

نوع بانکی رو که می خواید بهش وصل بشید رو مشخص کنید

اگه چند صفحه بری عقب حتما پیدا می کنی

آقای کشاورز این سوال رو جواب داده ولی در شرایط متفاوت باید متن پرووایدر رو عوض کرد که اگه اون هم اینجا بگن خیلی خوب میشه
جواب قبلی آقای کشاورز


اگر فرض بگیریم که کاربر آدرس سرور رو در Edit1 تایپ کرده و برنامه هم این آدرس رو در متغیر DataPath ذخیره کرده:

var 

  ConnectionStr : WideString; 

begin 

  DataPath := Edit1.Text; 

  ConnectionStr := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 

                   'User ID=Admin;' + 

                   'Data Source='+ DataPath + 

                   ';Mode=Share Deny None;' + 

                   'Extended Properties="";' + 

                   'Jet OLEDB:System database="";' + 

                   'Jet OLEDB:Registry Path="";' + 

                   'Jet OLEDB:Database Password="";' + 

                   'Jet OLEDB:Engine Type=5;' + 

                   'Jet OLEDB:Database Locking Mode=1;' + 

                   'Jet OLEDB:Global Partial Bulk Ops=2;' + 

                   'Jet OLEDB:Global Bulk Transactions=1;' + 

                   'Jet OLEDB:New Database Password="";' + 

                   'Jet OLEDB:Create System Database=False;' + 

                   'Jet OLEDB:Encrypt Database=False;' + 

                   'Jet OLEDB:Don' + '''t Copy Locale on Compact=False;' + 

                   'Jet OLEDB:Compact Without Replica Repair=False;' + 

                   'Jet OLEDB:SFP=False'; 



      ADOConnection1.ConnectionString := ConnectionStr; 

      ADOConnection1.Connected := True; 

در ضمن نیازی نیست که از تمامی پارامترهایی که در بالا ذکر شده برای ConnectionString استفاده کنید. هر کدوم رو که احتیاج به تغییرشون از حالت پیش فرض ندارید از کد بالا می تونید حذف کنید

بانکم اکسس است
لطفا توضیح بیشتر بدین

درود

شاید این کمکت کنه:

procedure TForm1.Button1Click(Sender: TObject);

Const

  ConnStr = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s ;Persist Security Info=False';

begin

  if OpenDialog1.Execute then

  begin

    Edit1.Text := OpenDialog1.FileName;

    ADOConnection1.ConnectionString := Format(ConnStr, [Edit1.Text]);



    ADOTable1.Active := True;

  end;

end;