Questo sito contribuisce alla audience di

Connessione ad un db non protetto

Questa funzione crea una connessione ad un db ed utilizza i componenti: TAdoconnection , TDatasource, TDataGrid

String fil,mm;
        fil=ExtractFilePath(Application->ExeName);
        fil+=”db1.mdb”;

        mm=”Provider=Microsoft.Jet.OLEDB.4.0;”;
        mm+=”Data Source=”;
        mm+=fil;
        mm+=”;Persist Security Info=False;”;
       // Login Prompt serve a non visualizzare la finesta con il login di nome Utente e pasword…
        AdoConnection1->LoginPrompt=false;
       AdoConnection1->ConnectionString=mm;
       AdoConnection1->Connected=true;
TADOQuery *aa=new TADOQuery(Form1);
aa->SQL->Add(”Select * from Tabella”);
aa->Connection=Mao;
aa->Active=true;
DataSource1->DataSet=aa;

Ultimi interventi

Vedi tutti