Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fehler 13 ( sehr merkwürdig )
Autor: Markus (*PROBLEMKIND*)
Datum: 07.04.03 21:41
Hi Jungs, Dim RsT As New ADODB.Recordset Dim sSQL As String Dim Li As ListItem Dim TB_ID As Long Dim TB_Nummer As Long sSQL = "Select TB_ID, TB_Nummer, TB_Key, TB_Text " & _ "From Textbausteine Order by TB_Nummer" ' On Error GoTo Fehler With RsT .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockReadOnly .ActiveConnection = Cn .Open sSQL lvwTB.ListItems.Clear Do While Not .EOF TB_ID = .Fields("TB_ID").Value TB_Nummer = .Fields("TB_Nummer").Value Set Li = lvwTB.ListItems.Add(, TB_ID & "x", TB_Nummer) Li.SubItems(1) = .Fields("TB_Key").Value & vbNullString Li.SubItems(2) = .Fields("TB_Text").Value & vbNullString .MoveNext Loop .Close End With Set RsT = Nothing Exit Function Fehler: FehlerAnzeige Err.Number, Err.Description, "ADO_GetTextbausteine" Set RsT = Nothing End Function hmmm ich möchte dinge die aus einer angebundenen Datenbank abgerufen werden in der Listview darstellen. Das Script stoppt aber an der Stelle : Set Li = lvwTB.ListItems.Add(, TB_ID & "x", TB_Nummer) Li.SubItems(1) = .Fields("TB_Key").Value & vbNullString Li.SubItems(2) = .Fields("TB_Text").Value & vbNullString Mit dem Hinweis " Fehler 13 " Wie kann ich diesen Fehler verhindern ? Das merkwürdige ist, das es in einem neuen Projekt funktioniert ... Danke mfg. Markus

Fehler 13 ( sehr merkwürdig )	557	Markus (*PROBLE...	07.04.03 21:41
Re: Fehler 13 ( sehr merkwürdig )	349	Dieter	08.04.03 09:41
Re: Fehler 13 ( sehr merkwürdig )	328	Markus (*PROBLE...	08.04.03 10:05
Re: Fehler 13 ( sehr merkwürdig )	341	Dieter	08.04.03 10:46
Re: Fehler 13 ( sehr merkwürdig )	328	Markus (*PROBLE...	08.04.03 10:59
Re: Fehler 13 ( sehr merkwürdig )	325	Dieter	08.04.03 11:05
Re: Fehler 13 ( sehr merkwürdig )	321	Markus (*PROBLE...	08.04.03 11:20
Re: Fehler 13 ( sehr merkwürdig )	343	Dieter	08.04.03 11:29
Re: Fehler 13 ( sehr merkwürdig )	315	Markus (*PROBLE...	08.04.03 12:10
Re: Fehler 13 ( sehr merkwürdig )	339	Dieter	08.04.03 13:18
Re: Fehler 13 ( sehr merkwürdig )	313	Markus (*PROBLE...	08.04.03 17:27
Re: Fehler 13 ( sehr merkwürdig )	349	Dieter	08.04.03 17:31
Re: Fehler 13 ( sehr merkwürdig )	317	Markus (*PROBLE...	08.04.03 18:27

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen