BorlandTalk.com

Tommi Prami · Guest

Hello,

I get error message

Column unknown
SYNCVERSION
Client SQL dialect 1 does not support reference to BIGINT datatype

First of all SYNCVERSION is there, and there is no BIGINT datatype.

code is bit of a mess because I've tryed almost everything I can think of..

Connection params

AConnection.Params.Values['ServerCharSet'] :=
'ISO8859_1';
AConnection.Params.Values['Interbase TransIsolation'] :=
'ReadCommitted';
AConnection.Params.Values['SQLDialect'] := '3';
AConnection.Params.Values['CommitRetain'] := 'False';
AConnection.Params.Values['BlobSize'] := '-1';
AConnection.Params.Values['WaitOnLocks'] := 'True';

AConnection.Params.Values['Interbase TransIsolation'] :=
'ReadCommited';
AConnection.Params.Values['DriverName'] :=
LIni.ReadString('Database', 'DriverName', '');
AConnection.DriverName := LIni.ReadString('Database',
'DriverName', '');

AConnection.Params.Values['LibraryName'] :=
LIni.ReadString('Database', 'LibraryName', '');
AConnection.LibraryName := LIni.ReadString('Database',
'LibraryName', '');

AConnection.Params.Values['VendorLib'] :=
LIni.ReadString('Database', 'VendorLib', '');
AConnection.VendorLib := LIni.ReadString('Database',
'VendorLib', '');

AConnection.Params.Values['GetDriverFunc'] :=
LIni.ReadString('Database', 'GetDriverFunc', '');
AConnection.GetDriverFunc := LIni.ReadString('Database',
'GetDriverFunc', '');

AConnection.Params.Values['Database'] :=
LIni.ReadString('Database', 'Database', '');

AConnection.Params.Values['UserName'] :=
LIni.ReadString('ROLE_5', 'User_name', '');
AConnection.Params.Values['User_Name'] :=
LIni.ReadString('ROLE_5', 'User_name', '');

AConnection.Params.Values['Password'] :=
emd_DecryptPassword(LIni.ReadString('ROLE_5', 'Password', ''));

And the Query it self

var
LTD : TTransactionDesc;
begin
Result := False;
try
if FLocalDBConnection.Connected = False then
begin
FLocalDBConnection.Connected := True;
end;

Inc(FTransActionID);
LTD.TransactionID := FTransActionID;
LTD.IsolationLevel := xilREADCOMMITTED;

FLocalDBConnection.StartTransaction(LTD);

FLocalSQLQuery.SQLConnection := FLocalDBConnection;

FLocalSQLQuery.SQL.Clear;
FSqlErrorMsg := '';

FLocalSQLQuery.SQL.Text := ASQL;

FLocalSQLQuery.Prepared := True;

if not ADoExecute then
FLocalSQLQuery.Open
else
FLocalSQLQuery.ExecSQL;

FLocalDBConnection.Commit(LTD);

Result := True;
except
on E:Exception do
begin
FSqlErrorMsg := E.Message + ' with query "' + ASQL + '"';
Result := False;
FLocalDBConnection.Rollback(LTD);
end;
end;
FLocalDBConnection.CloseDataSets;

Simple Delete from *** queries seem to work.

but insert into ... will not

Any ideas??? ( I am out of ideas... Sad

)

I use Delphi 6 and dxexpress is shipped with it (v. 2??)

We have our own server which works like a charm, but now I have to
bypass it to do some special stuff (our server uses same dbexpress etc)

and query works to same db if I use IBOConsole

-Tommi Prami-

-TP-