ListView - Fehler:Typen unverträglich

18/02/2009 - 14:37 von Andreas Ahrens | Report spam
Hi NG,

wo liegt beim Listing der Fehler für die Meldung: Typen unvertràglich?

Private Sub TreeView3_NodeClick(ByVal Node As Object)
'beim Klicken auf einen Namen
Dim daten, strFirstName, strLastName As String
Dim strSQL As String
Dim lst As ListItem

Set db = CurrentProject.Connection
Set rs = New ADODB.Recordset
Me.ListView5.ListItems.Clear
With Me.ListView5.ColumnHeaders
.Clear
.Add , , "Name", 1000
.Add , , "Vorname", 1000
.Add , , "Straße", 1000
.Add , , "Plz", 500
.Add , , "Ort", 1000
End With
Me!ListView5.HideColumnHeaders = False

strSQL = "SELECT * FROM Kunden WHERE (NName = """ &
TreeView3.SelectedItem.Text & """);"
rs.Open (strSQL), db

Static intPrevNode As Integer

'Klick auf Root abfangen
If Node.Parent Is Nothing Then Exit Sub

While Not rs.EOF

'Typen unvertràglich
Set lst = ListView5.ListItems.Add()

lst.Text = rs!NName
lst.SubItems(1) = rs!NName
lst.SubItems(2) = rs!VName
lst.SubItems(3) = rs!Straße
lst.SubItems(4) = rs!Plz
lst.SubItems(5) = rs!Ort
rs.MoveNext
Wend



rs.Close
db.Close
End Sub

Gruß
Andy
 

Lesen sie die antworten

#1 Heinz Gimmler
18/02/2009 - 15:02 | Warnen spam
Andreas Ahrens schrieb:
Hi NG,

wo liegt beim Listing der Fehler für die Meldung: Typen unvertràglich?

Private Sub TreeView3_NodeClick(ByVal Node As Object)
'beim Klicken auf einen Namen
Dim daten, strFirstName, strLastName As String
Dim strSQL As String
Dim lst As ListItem

Set db = CurrentProject.Connection
Set rs = New ADODB.Recordset
Me.ListView5.ListItems.Clear
With Me.ListView5.ColumnHeaders
.Clear
.Add , , "Name", 1000
.Add , , "Vorname", 1000
.Add , , "Straße", 1000
.Add , , "Plz", 500
.Add , , "Ort", 1000
End With
Me!ListView5.HideColumnHeaders = False

strSQL = "SELECT * FROM Kunden WHERE (NName = """ &
TreeView3.SelectedItem.Text & """);"
rs.Open (strSQL), db

Static intPrevNode As Integer

'Klick auf Root abfangen
If Node.Parent Is Nothing Then Exit Sub

While Not rs.EOF

'Typen unvertràglich
Set lst = ListView5.ListItems.Add()

lst.Text = rs!NName
lst.SubItems(1) = rs!NName
lst.SubItems(2) = rs!VName
lst.SubItems(3) = rs!Straße
lst.SubItems(4) = rs!Plz
lst.SubItems(5) = rs!Ort
rs.MoveNext
Wend



rs.Close
db.Close
End Sub

Gruß
Andy


Hallo Andy

Wàre super wenn Du uns verraten könntest wo der Debugger stehen bleibt.

mfG
Heinz

Ähnliche fragen