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 |