Domino 9 und frühere Versionen > Entwicklung

SQL mit Notes kommunizieren über ODBC

<< < (2/4) > >>

flaite:
Also statt da selbst rumzubasteln würd ich mir einfach code aus der Hilfe kopieren und den mit Errorhandling versehen.


--- Code: ---Uselsx "*LSXODBC"
Sub Initialize
  on error goto Errorhandler
  Dim con As New ODBCConnection
  Dim qry As New ODBCQuery
  Dim result As New ODBCResultSet
  Dim firstName As String
  Dim lastName As String
  Dim msg As String
  Set qry.Connection = con
  Set result.Query = qry
  con.ConnectTo("ATDB")
  qry.SQL = "SELECT * FROM STUDENTS"
  result.Execute
  msg = "Student names:" & Chr(10)
  If result.IsResultSetAvailable Then
    Do
      result.NextRow
      firstName = result.GetValue("FIRSTNAME", _
      firstName)
      lastName = result.GetValue("LASTNAME", _
      lastName)
      msg = msg & Chr(10) & firstName & " " & _
      lastName
    Loop Until result.IsEndOfData
    Messagebox msg,, "Student Names"
    result.Close(DB_CLOSE)
  Else
    Messagebox "Cannot get result set for STUDENTS"
    Exit Sub
  End If
  con.Disconnect

  Ende:
  exit sub
  Errorhandler:
   print Error$ & "(" & Cstr(Err) & ") in Zeile: " & Cstr(Erl)
   resume Ende
End Sub

--- Ende Code ---

sculer:
@m3:

bisher kam da ein Popup, wo man die Zugangsadaten eintragen sollte.
hab es nun mal im Code impl.

@Axel:
werde gleich mal den Code ausprobieren. bin mal gespannt

sculer:
Hallo,

der schmeißt folgenden Fehler heraus

LS:DO- ODBC could not complete the requested operation.(720) in Zeile: 13


bei folgenden Befehl...
result.Execute

Ist die Menge zu groß oder wie soll den Fehler interpretieren!?

Danke
Gruß
stan

m3:
a) Auch "odbcResultSet.Execute" liefert einen Status zurück

b) "Handling an ODBC error" in der Designer-Hilfe sollte etwas Licht ins Dunkel bringen.

c) Dein aktueller Code würde auch helfen.

sculer:
zu a ) den Status hab ich mir zurückgeben lassen = 0
zu b ) da hab ich nichts brauchbares gefunden

zu c ) ist eigetnlich nur der Code mit der Error Meldung, bloß etwas angepasst...

siehe

--- Code: ---On Error Goto Errorhandler
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim firstName As String
Dim lastName As String
Dim msg As String
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("SDE_SQL")
qry.SQL = "SELECT * FROM _SMDBA_Incident"
result.Execute                                                    'hier kommt der Fehler
msg = "Student names:" & Chr(10)
If result.IsResultSetAvailable Then
Do
result.NextRow
firstName = result.GetValue("FIRSTNAME", _
firstName)
lastName = result.GetValue("LASTNAME", _
lastName)
msg = msg & Chr(10) & firstName & " " & _
lastName
Loop Until result.IsEndOfData
Messagebox msg,, "Student Names"
result.Close(DB_CLOSE)
Else
Messagebox "Cannot get result set for STUDENTS"
Exit Sub
End If
con.Disconnect

Ende:
Exit Sub
Errorhandler:
Print Error$ & "(" & Cstr(Err) & ") in Zeile: " & Cstr(Erl)
Resume Ende

--- Ende Code ---


gruß
stan

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete