Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Doch noch eine Frage zu "Virtuelle Recordsets" - Wie realisiert man "order by"?
Autor: kali
Datum: 09.04.03 17:09
Hi Lordchen, danke für den Kontakt. Bei, virtualRs.open "batschts". Hier der Code: Option Explicit Private virtualRs As New ADODB.Recordset Private dynFields() As Variant Private Sub CreateVirtualRecord() dynFields = Array("Nachname", "Vorname", "Geburtsdatum", _ "Strasse", "Plz", "Ort", "Telefon") 'Set virtualRs = New ADODB.Recordset With virtualRs Set .ActiveConnection = Nothing .CursorLocation = adUseClient .LockType = adLockBatchOptimistic End With With virtualRs.Fields .Append "Nachname", adVarChar, 75 .Append "Vorname", adVarChar, 50 .Append "Geburtsdatum", adDBDate .Append "Strasse", adBSTR, 75 .Append "Plz", adBSTR, 10 .Append "Ort", adBSTR, 75 .Append "Telefon", adBSTR, 20 End With End Sub Private Sub SaveVirtualRS() Dim dynV As Variant Dim i As Long With virtualRs .Open dynV = Array("Müller", Vorname.Text, Geburtsdatum.Text, _ Strasse.Text, Plz.Text, Ort.Text, Telefon.Text) .AddNew dynFields, dynV .Update dynV = Array("Meyer", Vorname.Text, Geburtsdatum.Text, _ Strasse.Text, Plz.Text, Ort.Text, Telefon.Text) .AddNew dynFields, dynV .Update dynV = Array("Konrad", Vorname.Text, Geburtsdatum.Text, _ Strasse.Text, Plz.Text, Ort.Text, Telefon.Text) .AddNew dynFields, dynV .Update dynV = Array("Kienzle", Vorname.Text, Geburtsdatum.Text, _ Strasse.Text, Plz.Text, Ort.Text, Telefon.Text) For i = 1 To 10000 .AddNew dynFields, dynV .Update If i Mod 1000 = 0 Then DoEvents End If Next i .Sort = "Nachname,Vorname" End With End Sub Private Sub Command1_Click() Call CreateVirtualRecord Call SaveVirtualRS virtualRs.Save "c:\virtrecset.dat", adPersistADTG End Sub Private Sub LoadVirtualRS(ByVal sFileName As String) 'virtualRs.Filter = "Nachname > 'L'" virtualRs.Sort = "Nachname" ' hier gibts müsli virtualRs.Open sFileName, "Provider = MSPersist" End Sub Private Sub Command2_Click() Dim field As Variant Dim i As Long Call LoadVirtualRS("c:\virtrecset.dat") i = 0 Do Until virtualRs.EOF If i < 10 Then MsgBox virtualRs.Fields("Nachname").Value End If i = i + 1 'For Each field In virtualRs.Fields 'MsgBox field.Value ' virtualRs.MoveNext ' MsgBox virtualRs.Fields("Nachname").Value ' virtualRs.MoveNext ' MsgBox virtualRs.Fields("Nachname").Value ' virtualRs.MoveNext 'Next virtualRs.MoveNext Loop MsgBox i 'virtualRs.Filter MsgBox "hallo" End Sub Im voraus mal Danke! cu Michael

Doch noch eine Frage zu "Virtuelle Recordsets" - W...	410	kali	09.04.03 09:05
Re: Doch noch eine Frage zu "Virtuelle Recordsets"...	383	kali	09.04.03 15:53
Re: Doch noch eine Frage zu "Virtuelle Recordsets"...	357	unbekannt	09.04.03 16:54
Re: Doch noch eine Frage zu "Virtuelle Recordsets"...	396	kali	09.04.03 17:09
Hab den Fehler gefunden!	291	kali	11.04.03 11:10

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