Domino 9 und frühere Versionen > ND7: Entwicklung

Artikelbilder anzeigen mittels ID, ID-Datensätze liegen auf i5

<< < (2/2)

Thomas Schulte:
Aus der Zeit als IBM noch Redbooks geschrieben hat ....
Enabling Web Services for the
IBM iSeries Server

Klaas:
Sorry Thomas aber damit komme ich leider nicht weiter.

Ich habe jetzt nochmal alles durchgeschaut und meine Code mit dem Beispielcode der Notes-Hilfe verglichen.
Aber leider habe ich nichts gefunden.

Viele Grüße

Klaas

m3:
Klaas, da fehlt eine Fehlerbehandlung, desweiteren die Info, ich welchem User-Kontext der Code ausgeführt wird und ob dieser Zugriff auf die ODBC-Verbindung hat, ...

Klaas:
Neuer Tag, neue Ideen.

Und es Funktioniert. es lag warscheinlich an sehr vielen Sachen.
Doch das schlimmste war wohl ich.


Vielen Dank für eure Hilfe, ich werde jetzt öffter Fehlerbehandlungen mit einbauchen.

--- Code: ---Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument

On Error Goto errorhdl

Set con = New ODBCConnection
Set qry = New ODBCQuery
Set result = New ODBCResultSet
Set qry.Connection = con
Set result.Query = qry
If uidoc.FieldGetText( "fdMAWTeilID") ="" Then Exit Sub
qry.SQL =  "SELECT IDIDNR , IDKUND , IDARTN FROM ANWDTA.IDSTAP WHERE IDIDNR = "+ uidoc.FieldGetText( "fdMAWTeilID")
If Not con.ConnectTo( "Test" , "DBLREIM" , "MAW" ) Then
Messagebox "Could not connect to " & dataSource
End If
If Not result.Execute Then
Messagebox _
result.GetExtendedErrorMessage,, result.GetErrorMessage
End If
If result.GetValue("IDKUND") ="" Then
Messagebox "keine Daten gefunden"
Exit Sub
End If
Call uidoc.FieldSetText("fdMAWKdnr", Cstr(result.GetValue("IDKUND")))
Call uidoc.FieldSetText("fdMAWArtnr", Cstr(result.GetValue("IDARTN")))
Exit Sub
errorhdl:
Print "Fehler in StartConnection: " + Error$ + ", Zeile: " + Str(Erl)
End Sub

--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete