Hallo zusammen,
ich habe hier eine MS SQL Server 2005 Express Datenbank auf einem Testrechner mit Windows Vista 32 Bit Business.
Auf dem gleichen Rechner wurde eine ODBC Verbindung (System DSN) auf diese Datenbank eingerichtet. ( Server -> Datenbank "IDCard" ). Die Authentifizierung steht auf Windows NT Anmeldekonto.
Nun habe ich mir aus der Designer 8 Hilfe ein Bespiel kopiert und in das Click-Event einer Schaltfläche in einer Maske platziert.
Wenn ich das unten aufgeführte Beispiel ausführe, dann klappt alles bis hin zur Abfrage
If result.IsResultSetAvailable Then
Dann stürzt der Lotus Notes Client böse ab ( Fenster, Hinweis auf Sammlung von Informationen für den Support ). Der Client ist ein 8.0.2 Standard Client.
Das interessante ist, das ich jedoch die vorhandenen Tabellen z.B. aus der Datenbank auslesen kann.
Die Datenbanktabelle im MS SQL Server ist dabei nicht wirklich komplex ( 4 Spalten, alle Text, nur 2 Datenbankeinträge vorhanden )
Kann mir jemand einen Schubs in die richtige Richtung geben woran das liegen könnte, bzw. kann das jemand bestätigen ?
Sub Click(Source As Button)
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
Dim ConnResult As Boolean
On Error Goto errorHandler
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("IDCard")
qry.SQL = "SELECT * FROM StaffInfo"
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
Exit Sub
errorHandler:
Messagebox con.GetExtendedErrorMessage,, _
con.GetErrorMessage
con.Disconnect
Exit Sub
End Sub