Hallo,
ich will eine ListBox mit Daten aus einer Tabelle eines SQL-Servers füllen...
Allerdings bekommt ich nach dem ersten Eintrag einen Fehler: Invalid Property Value...
Ich bin total aufgeschmisse, da ich nciht verstehe warum das nicht funktioniert
Hier der Code:
Ich benutze SQL-Server 2008 und MS Access 2003.
ich will eine ListBox mit Daten aus einer Tabelle eines SQL-Servers füllen...
Allerdings bekommt ich nach dem ersten Eintrag einen Fehler: Invalid Property Value...
Ich bin total aufgeschmisse, da ich nciht verstehe warum das nicht funktioniert
Hier der Code:
Option Compare Database
Private Sub fuellen_Click()
On Error GoTo ProcErr
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim lvxobj As MSComctlLib.ListView
Dim lstItem As MSComctlLib.ListItem
Dim i As Integer
Dim strSQL As String
Set conn = CurrentProject.Connection
strSQL = "SELECT [ComputerIP], [Computername], [Benutzername], [Zeitstempel], [Domain], [Url] " & _
"FROM tblSESecurePointDaten " & _
"GROUP BY [ComputerIP], [Computername], [Benutzername], [Zeitstempel], [Domain], [Url] " & _
"ORDER BY [Zeitstempel]"
rs.Open strSQL, conn, adOpenKeyset
Set lvxobj = Me.liste.Object
lvxobj.ListItems.Clear
If rs.BOF Then
Else
rs.MoveFirst
While Not rs.EOF
For i = 0 To rs.Fields.Count
If i = 0 Then
Set lstItem = lvxobj.ListItems.Add(, , rs(i))
ElseIf i < rs.Fields.Count Then
lstItem.SubItems(i) = rs(i)
End If
Next i
rs.MoveNext
Wend
End If
rs.Close
ProcExit:
Exit Sub
ProcErr:
gShowRunTimeError ("fuellen_Click()")
Resume ProcExit
End Sub
Private Sub fuellen_Click()
On Error GoTo ProcErr
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim lvxobj As MSComctlLib.ListView
Dim lstItem As MSComctlLib.ListItem
Dim i As Integer
Dim strSQL As String
Set conn = CurrentProject.Connection
strSQL = "SELECT [ComputerIP], [Computername], [Benutzername], [Zeitstempel], [Domain], [Url] " & _
"FROM tblSESecurePointDaten " & _
"GROUP BY [ComputerIP], [Computername], [Benutzername], [Zeitstempel], [Domain], [Url] " & _
"ORDER BY [Zeitstempel]"
rs.Open strSQL, conn, adOpenKeyset
Set lvxobj = Me.liste.Object
lvxobj.ListItems.Clear
If rs.BOF Then
Else
rs.MoveFirst
While Not rs.EOF
For i = 0 To rs.Fields.Count
If i = 0 Then
Set lstItem = lvxobj.ListItems.Add(, , rs(i))
ElseIf i < rs.Fields.Count Then
lstItem.SubItems(i) = rs(i)
End If
Next i
rs.MoveNext
Wend
End If
rs.Close
ProcExit:
Exit Sub
ProcErr:
gShowRunTimeError ("fuellen_Click()")
Resume ProcExit
End Sub
Comment