... or so I thought - same error with revised code (my old code commented=
out)
Please bear with me one more time...
Thanks
Kai
;---------------------------------------------------------------------------=
-----------------------
mysql-query: function [ {Either returns [["ERROR"]], [["EMPTY"]] or=
[[<cursor>]}
querystr [string!] statusbar [object! none!]] [=
cursor ] [
print "about to open port"
if error? set/any 'mysql-error try [ mysqlport: open mysql-url =
cursor: send-sql mysqlport querystr close mysqlport ][
disarm mysql-error
if statusbar <> none [ stat-upd statusbar reform [ "MySQL-Connection=
error: " mysql-error/arg1 ]] return [["ERROR"]]
]
either cursor =3D [] [ return [[ "EMPTY" ]] ] [ return cursor ] =
]
; mysql-error: try [
; mysqlport: open mysql-url
; cursor: send-sql mysqlport querystr
; close mysqlport
; ]
; either error? mysql-error [
; mysql-error: disarm mysql-error
; if statusbar <> none [ stat-upd sbar reform [ "MySQL-Connection=
error: " mysql-error/arg1 ]]
; return [["ERROR"]]
; ][ either cursor =3D [] [ return [[ "EMPTY" ]] ] [ return cursor ]]
;]
about to open port
** Access Error: Cannot connect to 192.168.1.220
** Where: open-proto
** Near: mysqlport: open mysql-url cursor: send-sql
>>
--
To unsubscribe from the list, just send an email to
lists at rebol.com with unsubscribe as the subject.
