Σύνδεση με mySQL

[Mike Nakos]

Καλησπέρα σας.
Σε S1 import script προσπαθούμε να συνδεθούμε σε mySQL database με τον
εξής τρόπο:

Connect DBDriver OtherData {
connect( 'XADODrv.bpl', 'CUSTOM', 'Driver={MySQL ODBC 3.51
Driver};Server=mydomainname;Database=mydb;User=myusername;
Password=mypass;Option=3;' );
eShopData= select '1' as code;
}

και παρακάτω τρέχουμε ένα:
fetch eShopData
{
x=RaiseException('Test Debug');
}


Πριν καν τρέξει η γραμμή x=RaiseException('Test Debug'); το πρόγραμμα
βγάζει exception.
Άρα το exception προκύπτει από την εκτέλεση της fetch.
Παρακάτω σας παραθέτω όλο το αρχείο.

Τι μπορεί να πάει στραβά;




CODE =====================================

//---------------------------------------------------------------------------------------------------------------------------
// Terracom Informatics LTD
// Update Inst.GDATETO (Created by John Vrakas, jvr...@terracom.gr -
johnv...@hotmail.com)
//---------------------------------------------------------------------------------------------------------------------------

form {
[TABLES]
ImpTable=;;;;Master;3;0

[ImpTable]
vWhere=16;80000;0;1;0;Έλεγχος;;;&SELRECS;&SELRECS
lastTemplate=2;0;0;1;0;Τελευταία τιμή template;;;;
StageNo=3;30;1;1;0;'';0;;1;
vYears=6;5;0;1;0;Πλήθος ετών;;;0
vCCCTerraKAlarmActivDate=2;15;1;1;0;Με βάση την ημερομηνία
εγκατάστασης;$Y;;0;1
vFROMDATE=2;15;1;1;0;Με βάση την ημερομηνία ενεργοποίησης;$Y;;0;1


[PANELS]
PANEL01=0;Γενικοί παράμετροι;0;45
ProgressPanel=6;'Στάδια εκτέλεσης';0;H45,N;PROGRINFO=1

[ProgressPanel]
ImpTable.StageNo

[STRINGS]
TYPE=1
STAGESTRS=1

[TYPE]

[STAGESTRS]
1='Έναρξη εργασίας'
2='Τέλος εργασίας'
}


}

var
vTot, x, vRow, vRowCancel, UserResp, SQL, tmpDS, progressText,
vMess,x1;

// ##################### C O N N E C T T O X

Connect DBDriver OtherData {
connect( 'XADODrv.bpl', 'CUSTOM', 'Driver={MySQL ODBC 3.51
Driver};Server=mydomainname;Database=mydb;User=myusername;
Password=mypass;Option=3;' );
eShopData= select '1' as code;
}

Connect Xplorer DocData {
connect();
eShopData1 = select '1' as code;
}


//------------------------------------------------------------------------
define ShowError
{
x=AddMessage(%1);
x=RaiseException(%1);
}
//------------------------------------------------------------------------
{
UserResp=SendResponse(1, 'ImpTable.StageNo');
UserResp=SendResponse(0, 'ImpTable.StageNo');
vTot=1;
vRow=0;
vRowCancel=0;
progressText = '';


UserResp=SendResponse( vTot, vRow, vRowCancel, 'Έναρξη ανανέωσης των
εγγραφών...',
'RESULTS.TOTREC;RESULTS.CURREC;RESULTS.CANREC;RESULTS.LABELTEXT');

SQL = 'delete CCCTerraEShopTbl ';

x=ExecSql('DocData', SQL, null);

fetch eShopData
{
x1=RaiseException('4');
//x=RaiseException(eShopData.code);
//SQL = 'INSERT INTO CCCTerraEShopTbl (CCCTerraEShopTbl) ' +
// 'VALUES(' + VarToStr(eShopData.code) + ') ,
0);';
// x=ExecSql('DocData', SQL, null);
}

SQL = 'update a set a.mtrl=b.mtrl from CCCTerraEShopTbl a left join
mtrl b on a.CCCTerraEShopTbl=b.code where b.sodtype=51';
x=ExecSql('DocData', SQL, null);


vRow = 1;
UserResp=SendResponse(2, 'ImpTable.StageNo');
UserResp=SendResponse(0, 'ImpTable.StageNo');
UserResp=SendResponse( vRow, vRowCancel, 'Η διαδικασία έχει
τελειώσει...', 'RESULTS.CURREC;RESULTS.CANREC;RESULTS.LABELTEXT');

} // End Script