Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: recordset in array
Autor: paul123
Datum: 02.07.03 12:20
recordset: 1.Sp.'Zeit'; 2.Sp.[0ERB01CL001XM31] am besten mit code: Option Explicit Option Base 1 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim a As String Dim b As String Dim arr() As Variant Dim c As Variant Dim d As Integer Dim e As Integer Private Sub Form_Load() a = "Select Zeit, [0ERB01CL001XM31] from [2606]Where Zeit>'30.01.2003 06:15:00' And Zeit <'30.01.2003 08:15:00'" With cn .Provider = "SQLOLEDB.1" .Properties("Persist Security Info") = True .Properties("Data Source") = "***" .Properties("Initial Catalog") = "****" .Properties("User ID") = "*****" .Properties("Password") = "****" .CursorLocation = adUseClient .Open End With With rs .ActiveConnection = cn .LockType = adLockOptimistic .CursorType = adOpenDynamic .Source = a .Open a, cn, Options:=adCmdText End With Set DataGrid1.DataSource = rs Label1.Caption = rs.RecordCount d = Label1.Caption For e = 0 To d If rs.EOF Then Exit For arr(e, 0) = "Select Zeit from [2606]Where Zeit>'30.01.2003 06:15:00' And Zeit <'30.01.2003 08:15:00'" arr(e, 1) = "Select [0ERB01CL001XM31] from [2606]Where Zeit>'30.01.2003 06:15:00' And Zeit <'30.01.2003 08:15:00'" Next e End Sub

recordset in array	602	paul123	02.07.03 11:49
Re: recordset in array	411	JOMA	02.07.03 12:02
Re: recordset in array	398	paul123	02.07.03 12:20
Re: recordset in array	458	paul123	02.07.03 12:45
Re: recordset in array	392	JOMA	02.07.03 12:53
Re: recordset in array	394	paul123	02.07.03 14:34
Re: recordset in array	379	JOMA	02.07.03 14:37
Re: recordset in array	383	paul123	02.07.03 14:50
Re: recordset in array	384	paul123	02.07.03 14:57

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