Fórum BD em mdb no mesmo diretório do exe #456943

coloquei assim no formulário principal pessoal e dá erro de : Não foi possível encontrar ISAM instalável. Será que posso colocar no onCreate do DataModule??? O que está errado no código???

con_string := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=ExtractFilePath(Application.ExeName)' + 'Mello_Andaimes.mdb;';
con_string := 'Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";';
con_string := 'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;';
con_string := 'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;';
con_string := 'Jet OLEDB:Encrypt Database=False;Jet OLEDB:Dont Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';
Data_Module.Connection_Clientes.Close;
Data_Module.Connection_Clientes.ConnectionString := con_string;
Data_Module.Connection_Clientes.Open();

Na parte do DataSource você esqueceu uma aspa e um sinal de +. Veja como está:

Quando o correto seria:


Da forma como está, "ExtractFilePath(Application.ExeName)" está indo como texto para a string de conexão e não pegando o valor correto.

Concerto feito, coloquei a aspas simples e o sinal de concatenação ficando assim:(con_string := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' + ExtractFilePath(Application.ExeName) + 'Mello_Andaimes.mdb;';), mas o erro permanece.

Olá Fabricio,

tente da seguinte forma:

Não meu amigo...não funcionou. deu um erro maluco com um numero enorme como de memória.....afff já tô doido com isso pq pesquisando na net esse problema é frequente mas ninguém posta uma solução.....mas, vamos continuando.