paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Joost van der Sluis

Browse Source 
- Made it possible to run 'show' queries for MySQL
This commit is contained in:
michael 2005-01-24 10:52:43 +00:00
parent d0a651c990
commit f04a7f8f86
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
fcl/db/sqldb/sqldb.pp
View File

@ -60,6 +60,7 @@ type
procedure SetTransaction(Value : TSQLTransaction);
protected
function StrToStatementType(s : string) : TStatementType; virtual;
procedure DoInternalConnect; override;
procedure DoInternalDisconnect; override;
function GetAsSQLText(Field : TField) : string; virtual;
@ -219,6 +220,17 @@ uses dbconst;
{ TSQLConnection }
function TSQLConnection.StrToStatementType(s : string) : TStatementType;
var T : TStatementType;
begin
S:=Lowercase(s);
For t:=stselect to strollback do
if (S=StatementTokens[t]) then
Exit(t);
end;
procedure TSQLConnection.SetTransaction(Value : TSQLTransaction);
begin
if FTransaction = nil then
@ -655,7 +667,6 @@ Var
cmt : boolean;
P,PE,PP : PChar;
S : string;
T : TStatementType;
begin
Result:=stNone;
@ -691,10 +702,11 @@ begin
Inc(PE);
Setlength(S,PE-P);
Move(P^,S[1],(PE-P));
S:=Lowercase(s);
result := (DataBase as TSQLConnection).StrToStatementType(s);
{ S:=Lowercase(s);
For t:=stselect to strollback do
if (S=StatementTokens[t]) then
Exit(t);
Exit(t);}
end;
procedure TSQLQuery.SetReadOnly(AValue : Boolean);
@ -808,7 +820,11 @@ end.
{
$Log$
Revision 1.11 2005-01-12 10:30:33 michael
Revision 1.12 2005-01-24 10:52:43 michael
* Patch from Joost van der Sluis
- Made it possible to run 'show' queries for MySQL
Revision 1.11 2005/01/12 10:30:33 michael
* Patch from Joost Van der Sluis:
- implemented TSQLQuery.UpdateIndexDefs
- implemented TSQLQuery.ReadOnly