ADO og accessdatabase

Tags:    delphi

User
Bruger #353 @ 21.10.04 16:47
Jeg skal hente nogle ting i min DBgrid og bruger følgende kode til det:

path := (ExtractFilePath(ParamStr(0))+'Skema.mdb');
adoconnection1.Connected := false;
connstr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source=' +
Path +
';Mode=Share Deny None;'+
'Persist Security Info=False;';

adoconnection1.ConnectionString := connstr;
adoconnection1.Connected := true;
adotable1.TableName := 'dag';
adotable1.Active := true;


Det virker fint nok.
Nu vil jeg så hente data ind i en anden dbgrid og sætter derfor en dbgrid på min form samt endnu en Datasource og en ADOTable, nu ville jeg så mene at min kode skulle se sådan ud:

path := (ExtractFilePath(ParamStr(0))+'Skema.mdb');
adoconnection1.Connected := false;
connstr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source=' +
Path +
';Mode=Share Deny None;'+
'Persist Security Info=False;';

adoconnection1.ConnectionString := connstr;
adoconnection1.Connected := true;
adotable1.TableName := 'dag';
adotable1.Active := true;
adotable2.TableName := 'time';
adotable2.Active := true;


Men det virker bare ikke, jeg får besked om at der er syntax fejl i from sætningen??
Kan nogen hjælpe mig her?!



3 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 4 karma
Sorter efter stemmer Sorter efter dato
User
Bruger #67 @ 08.11.04 11:39
Jeg skal hente nogle ting i min DBgrid og bruger følgende kode til det:

path := (ExtractFilePath(ParamStr(0))+'Skema.mdb');
adoconnection1.Connected := false;
connstr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source=' +
Path +
';Mode=Share Deny None;'+
'Persist Security Info=False;';

adoconnection1.ConnectionString := connstr;
adoconnection1.Connected := true;
adotable1.TableName := 'dag';
adotable1.Active := true;


Det virker fint nok.
Nu vil jeg så hente data ind i en anden dbgrid og sætter derfor en dbgrid på min form samt endnu en Datasource og en ADOTable, nu ville jeg så mene at min kode skulle se sådan ud:

path := (ExtractFilePath(ParamStr(0))+'Skema.mdb');
adoconnection1.Connected := false;
connstr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source=' +
Path +
';Mode=Share Deny None;'+
'Persist Security Info=False;';

adoconnection1.ConnectionString := connstr;
adoconnection1.Connected := true;
adotable1.TableName := 'dag';
adotable1.Active := true;
adotable2.TableName := 'time';
adotable2.Active := true;


Men det virker bare ikke, jeg får besked om at der er syntax fejl i from sætningen??
Kan nogen hjælpe mig her?!



Det er et fuldstændig vildt gæt, men jeg synes at jeg før har været ude for at ADO i forbindelse med Access-databaser knækker sammen hvis felter eller tabeller hedder noget der kunne være "reserverede ord", hvilket i dit tilfælde kunne være "time"...
prøv at ændre tabellens navn til "tblTime" istedet, og så tror jeg næsten at det vil virke....



Du skal vel også have ADOConnection2 til at connecte?

adoconnection2.ConnectionString := connstr;
adoconnection2.Connected := true;

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------



User
Bruger #67 @ 07.01.05 11:46
Du skal vel også have ADOConnection2 til at connecte?

adoconnection2.ConnectionString := connstr;
adoconnection2.Connected := true;



Nu behøver han jo ikke nødvendigvis ha' en Connection til hver Query...




t