vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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
Frage zu Array und Datenbank 
Autor: firemike
Datum: 11.04.06 10:48

Hallo,
ich wähle aus einer Access DB (DAO) zufällig Daten aus, das funzt auch perfekt.
Nun würde ich gerne wissen, ob man die gewählten DB Einträge in ein Array schreiben kann und wie ?

Ich möchte erreichen, das ich mehrere Felder aus der Datenbank, nacheinander in das Array schreibe, um diese dann aus dem Array in einem Multiline Textfeld anzuzeigen.

Hier mein Code bis jetzt:

Private Sub Command1_Click()
Randomize

Dim Db As Database
Dim dbFile As String
Dim Anzahl As Integer

dbFile = App.Path + "\bhdb.mdb"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)

Dim SQL As String
Dim rs As Recordset

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

SQL = "SELECT * FROM txtstone WHERE ID =" & Int(Rnd * Anzahl) + 1 & ";"
Set rs = Db.OpenRecordset(SQL)

Text1(0).Text = rs("text")
End Sub


Danke für die Hilfe im vorraus
Grüsse Mike
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Frage zu Array und Datenbank1.033firemike11.04.06 10:48
Re: Frage zu Array und Datenbank601Zero-G.11.04.06 12:36
Re: Frage zu Array und Datenbank567firemike11.04.06 14:49
Re: Frage zu Array und Datenbank635Zero-G.11.04.06 14:54
Re: Frage zu Array und Datenbank591firemike11.04.06 15:03
Re: Frage zu Array und Datenbank612Zero-G.11.04.06 15:29
Re: Frage zu Array und Datenbank607firemike11.04.06 19:29

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