Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Abfrage
Autor: Prian0815
Datum: 21.09.05 09:23
Private Sub List1_Click() On Error Resume Next Dim rs As New ADODB.Recordset Dim res, res1 Dim strSQL res1 = List1.Text strSQL = "Select * from lease where Produktname = '" & List1.List(List1.ListIndex) & "'" set rs = newadodb.recordset rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic Call darstellen res = rs!Produktname MsgBox res rs.close set rs = nothing End Sub Gruß Armin P.S.: always look on the bright side of Life!

Abfrage	697	f_mal	20.09.05 16:12
Re: Abfrage	488	wincnc	20.09.05 16:26
Re: Abfrage	492	f_mal	20.09.05 16:46
Re: Abfrage	504	Prian0815	21.09.05 09:23

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