vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: SQL Abfrage Problem 
Autor: firemike
Datum: 28.04.06 22:34

HAllo,
und danke für die Antwort, aber leider funzt das auch net.

Es geht um diesen Codeabschnitt:

Dim dbFile As String
Dim anzahl As Integer
Dim i As Integer
Dim zahl As Integer
Dim rs As Recordset
Dim db As Database
Dim SQL As String
 
dbFile = App.Path + "\bhdb.mdb"
Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
 
SQL = "SELECT * FROM txtstone"
Set rs = db.OpenRecordset(SQL)
 
If rs.RecordCount > 0 Then
  While Not rs.EOF
    anzahl = rs.RecordCount
    rs.MoveNext
  Wend
End If
 
zahl = Combo1.Text
 
For i = 1 To zahl
Randomize
 
SQL = "SELECT * FROM txtstone WHERE ID =" & Int(Rnd * anzahl) + 1 & ";"
 
Set rs = db.OpenRecordset(SQL)
 
Load Text1(i)
With Text1(i)
      ' Neues Textfeld positionieren
      ' (immer unterhalb des vorigen Textfeldes)
      .Top = Text1(i - 1).Top + Text1(i - 1).Height + 105
 
      ' Wichtig! Neues Textfeld sichtbar machen!
      .Visible = True
 
      ' Text-Eigenschaft setzen
      .Text = "Textfeld " & CStr(i + 1)
      End With
 
Text1(i).Text = rs("text")      '<----Hier bekomm ich Fehler 3021, Kein 
' aktueller Datensatz
Next i
Grüsse Mike
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
SQL Abfrage Problem1.010firemike27.04.06 20:21
Re: SQL Abfrage Problem677spike2428.04.06 09:04
Re: SQL Abfrage Problem634firemike28.04.06 22:34
Re: SQL Abfrage Problem592firemike02.05.06 14:50
Re: SQL Abfrage Problem605spike2402.05.06 18:08
Re: SQL Abfrage Problem631firemike02.05.06 22:52
Re: SQL Abfrage Problem657spike2403.05.06 00:48

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel