Ich habe eine Funktion "getSQL" definiert
Code: Alles auswählen
Function getSQL(sSQL as String)
Dim Qu
Qu = ThisDataBaseDocument.CurrentController.ActiveConnection.CreateStatement.executeQuery(sSQL)
Qu.next
Msgbox(Count(Qu))
getSQL = Qu.getstring(1)
End Function
ändere ich aber die Funktion zu:
Code: Alles auswählen
Function getSQL(Optional Co, sSQL as String)
Ich kann die Funktion also ohne Fehlermeldung so definieren, aber sobald ich sie aufrufen will, sagt mir Basic, ich hätte diese bereits anders definiert :/
Danke