'==============================================================
function getEinst( Abk as string ) as string
'Einstellung aus tb_Einst lesen
dim SQL as string,ResultSet as object
SQL = "SELECT ""Wert"" FROM ""tbl_Einst"" WHERE ""Abk""='" & Abk & "'"
on error goto err_getEinst
ResultSet = getStatement().executeQuery(SQL)
ResultSet.next
getEinst = ResultSet.getString(1)
err_getEinst:
end function
'==============================================================
function setEinst( Wert as string, Abk as String ) as boolean
'Einstellung aus tb_Einst speichern
dim SQL as string, ResultSet as object
setEinst=false
SQL = "UPDATE ""tbl_Einst"" SET ""Wert"" = '" & Wert & "' WHERE ""Abk""='" & Abk & "'"
on error goto err_setEinst
setEinst = getStatement().executeUpdate(SQL)
err_setEinst:
end function
'==============================================================
Meine Arbeitskollegin hat das auch nur aus dem Inet:( Ich werde mich nach diesem Projekt glaube ich mal weiter über Technisches informieren. So heftig müssen als Kauffleute so ein Projekt machen.
