TSQLConnection & TSQLQuery

sqlquery.open

Hvis du vil inserte,delte,update er der sqlqyery.execsql

Stoney

der = det

Stoney

hmm.

Dette virker ikke:

SQLQuery.Open;
sql := 'select * from kunde';
SQLQuery.SQL.Clear;
SQLQuery.SQL.Add(sql);
SQLQuery.ExecSQL(true);

while not SQLQuery.Eof do
begin
  res := SQLQuery.FindField('ID');
  ShowMessage(res.AsString);
  SQLQuery.Next;
end;



Det bliver kastet en "missing query"....

with sqlquery do begin

  with SQL do begin
    Clear;

Add('SELECT * from kunde');
   
  end;
  Open;
  end;

Stoney

Hvorfor skal "Open" kaldes efter ExecSQL?

Det har jeg heller ikke sagt.
ExecSQL bruges ved insert,delete,update.
Altså kommandoer der IKKE returnere et recordset.
Open bruges ved select.

Stoney

Ok, nu er jeg med.

Kan der ikke lade sig gøre at lave en database klasse uden at man smider TSQLConnection og TSQLQuery på en form?



F.eks:

unit Database;

interface

uses
  DBXpress, SqlExpr;

type
TDatabase = class  //database klasse

private
  mySQLConnection: TSQLConnection;
  SQLQuery: TSQLQuery;

public
  function doSelect(SqlStr : String): String;
  constructor create();

end;



implementation


constructor TDatabase.create();
begin
mySQLConnection.Connected := true;
SQLQuery.SQLConnection := mySQLConnection;
end;



function TDatabase.doSelect(SqlStr : String): String;
begin
Result := '';
SQLQuery.SQL.Clear;
SQLQuery.SQL.Add(SqlStr);
SQLQuery.Open;
end;


end.




Når jeg kalder metoden, så får jeg en fejl:

EAccessViolation with message 'Access violation at adress.....

Jeg ønsker en unit uden form, som håndterer database adgang.

Du kan lave et datamodule

File->New->DataModule

Stoney

takker