TOPIC:

Hi

In a console application that uses MySQL, I get a "DatabaseError Cannot open a non-select statement" when I try to open a Select statement. I am using CodeTyphon 4.3.

Here is the console output:
Connected
stSelect

Here is a summary of the code:
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp,
{ you can add units after this }
mimemess, mimepart, smtpsend, synachar, // Synapse
// ZConnection, ZDataset, Interfaces, // Zeosdbo - after adding pl_zeosdbocomp you have to add interfaces
mysql55conn, sqldb, // MySQL
pl_dcpcomp, DCPrijndael, dcpsha256;

var
cnMain : TMySQL55Connection;
QryGeneral : TSqlQuery;
QrySync : TSqlQuery;
T_Transact : TSQLTransaction;

cnMain := TMySQL55Connection.Create(nil);
T_Transact := TSQLTransaction.Create(nil);
QryGeneral := TSQLQuery.Create(nil);
QrySync := TSQLQuery.Create(nil);

Try
With cnMain Do
Begin
HostName := 'ipadres';
DatabaseName := 'dbname';
UserName := 'username';
Password := 'password';
End;


//Attempt connection
Try
cnMain.Open;
Except
On E: Exception Do
Begin
writeln('CONNECTION ERROR: Please verify your connection settings.');
Terminate;
End;
End;

if cnMain.Connected then
begin
writeln('Connected');
end;

cnMain.Transaction := T_Transact;

QryGeneral.DataBase := cnMain;
QrySync.DataBase := cnMain;

QryGeneral.Close;
QryGeneral.SQL.Clear;
QryGeneral.SQL.Add('Select COUNT(*) as SlaveThreads from information_schema.processlist where user = ''system user'' ');

QryGeneral.Prepare;
writeln(QryGeneral.StatementType);

QryGeneral.Open;


This code is based on a previous Zeos based application, the previous application worked without a problem.

Please help.

Please Sir
test this post

Hi Sternas

Thank you that helped, however the next problem cropped up.

The select
QryGeneral.SQL.Add('Select COUNT(*) as slaveshreads from information_schema.processlist where user = ''system user'' ');
runs and I can see it in the mysql.log.

However the debugger give the following message:
Field not found: "slaveshreads"
as response to:
If QryGeneral.FieldByName('slaveshreads').AsInteger <> 2 Then

Hi Sternas

The error
Field not found: "slaveshreads"
is also in CT4.2

I tried
QryGeneral.SQL.Add('Select COUNT(*) from information_schema.processlist where user = ''system user'' ');
And
If QryGeneral.Fields[0].AsInteger <> 2 Then
This produced the following error:
List index (0) out of bounds

Hi Sternas

Seems as if the
Field not found: "slaveshreads"
problem is coming from:
QryGeneral := TSQLQuery.Create(nil);
QrySync := TSQLQuery.Create(nil);