Hello again,
I have a strange little problem with my database (Mysql) queries.
I make many queries and updates together with the click of a button.
When I make the queries and updates without using any of the results then
everything works fine !!
When I want to use a part of the results I get the invalid object error and
all of the results turn to red ( do not work).
AT the example below I get the error message "invalid object" at the PRINT
#hPrinter line and the problem is on the rsAPOD!arithmosAp result which is
LongInteger (at the end of the PRINT line).
here is the code:
PUBLIC SUB Kataxwrisi_Click()
DIM hPrinter AS File
DIM $Result5 AS Result
DIM $ResultAPOD AS Result
DIM rsAPOD AS Result
DIM rsGRAMMI AS Result
DIM $ResultE5 AS Result
DIM TrexousaGrammi AS Long
DIM proigoumenos AS Long
MODMain.Connect
MODMain.$Con.Begin()
$Result5 = MODMain.$Con.Create("BiblioPortas")
$Result5!trexousaHmerominia = Date(Now)
$Result5!Poson = Val(TextBox2.Text)
$Result5.Update()
MODMain.$Con.Commit()
MODMain.Connect()
rsAPOD = MODMain.$Con.exec("select * from AApodixi order by
arithmosAp desc")
MODMain.$Con.Close
MODMain.Connect
MODMain.$Con.Begin()
$ResultE5 = MODMain.$Con.Create("Ektyposis")
$ResultE5.Update()
MODMain.$Con.Commit()
MODMain.Connect()
rsGRAMMI = MODMain.$Con.exec("select * from Ektyposis order by
Grammi desc")
TrexousaGrammi = rsGRAMMI!Grammi
MODMain.$Con.Close
hPrinter = OPEN "/dev/lp1" FOR OUTPUT
hPrinter.EndOfLine = gb.Windows
PRINT #hPrinter, "Anaxorisi" & " " & Format$(Date(Now), "dd.mm.yyyy") & "
A/A " & tArithmos.Text & " " & tEpitheto.Text & " " & tOnoma.Text & " " &
tEthnikotita.Text & " " & "Poson " & TextBox2.Text & " Ar.Apodixis " &
rsAPOD!arithmosAp
IF TrexousaGrammi MOD 55 = 0 THEN
PRINT #hPrinter, Chr$(12);
PRINT #hPrinter, " "
PRINT #hPrinter, " "
PRINT #hPrinter, " "
PRINT #hPrinter, " "
ENDIF
CLOSE hPrinter
MODMain.Connect
MODMain.$Con.Begin()
'MODMain.$Con.exec("UPDATE `pelates`.`egrafes` SET
`anaxwrisi` = '" & Date(Now) & "' WHERE `egrafes`.`AA` = '" & tArithmos.Text &
"' LIMIT 1 ")
MODMain.$Con.exec("UPDATE `pelates`.`egrafes` SET
`egrafes`.`epitheto` = '" & tEpitheto.Text &
"',........................................etc...................................',
`egrafes`.`timifix` = '" & CFloat(ttimifix.Text) & "' WHERE `egrafes`.`AA` =
'" & tArithmos.Text & "' LIMIT 1 ")
MODMain.$Con.exec("UPDATE `pelates`.`egrafes` SET
`egrafes`.`ekptosi` = '" & tekptosi.Text & "', `egrafes`.`elenchosAnax` = 1,
`egrafes`.`xreosi` =0, `egrafes`.`prokatavoli` = '" &
CFloat(tprokatavoli.Text) & "' WHERE `egrafes`.`AA` = '" & tArithmos.Text & "'
LIMIT 1 ")
MODMain.$Con.Close
MODMain.Connect
MODMain.$Con.Begin()
$ResultAPOD = MODMain.$Con.Create("AApodixi")
$ResultAPOD!Hmerominia = Date(Now)
$ResultAPOD!arithmosAp = rsAPOD!arithmosAp + 1
$ResultAPOD.Update()
MODMain.$Con.Commit()
ME.Close
END
------------------------------------------------------------------------------
Come build with us! The BlackBerry(R) Developer Conference in SF, CA
is the only developer event you need to attend this year. Jumpstart your
developing skills, take BlackBerry mobile applications to market and stay
ahead of the curve. Join us from November 9 - 12, 2009. Register now!
http://p.sf.net/sfu/devconference
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
