ConnectionString (ADO)

[Battousay_X 0]

Olá galera, estou com um problema..

 

tenho uma aplicação que pega o caminho do banco de dados em MDB e tenta conectar em tempo de execução

atravéz de um caminho especificado no campo no form.

 

só que eu mudo a ConnectionString do meu ADO e não funciona, não muda de banco, eu pego o meu ConnectionString

e fiz isso:

 

procedure TSDIAppForm.Bt_ConectarACCESSClick(Sender: TObject);

 

begin

ADOConnectionAccess.Connected := False;

ADOConnectionAccess.ConnectionString :=

'Provider=Microsoft.Jet.OLEDB.4.0;'

+'User ID=Admin;Data'

+'Source='+Campo_BancoAccess.Text+';'

+'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'+chr(39)+'t Copy Locale on Compact=False;'

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

+'Jet OLEDB:SFP=False';

ADOConnectionAccess.Connected := True;

end;

 

Dá esse erro:

---------------------------

Debugger Exception Notification

---------------------------

Project SDIAPP.exe raised exception class EOleException with message 'Não foi possível encontrar ISAM instalável'.

---------------------------

Break Continue Help

---------------------------

 

 

Como que eu mudo ou crio uma ConnectionString em tempo de execução?

 

To desesperado já.. já caçei em tudo conté lugar! :wacko: :wacko:

[Battousay_X 0]

Nenhuma ajuda?

[marcio.theis 3]

Faz um teste, salva esta string que ele gera dentro de um edit ou algo do tipo, depois copia, coloca em um ADOConnection e testa a conexão...