Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Frage zu Array und Datenbank
Autor: firemike
Datum: 11.04.06 19:29
HAllo, nochmals danke aber irgendwie peil ich das heute nicht mehr sorry. Ich bekomme immer Syntaxfehler. Bei mir sieht das jetzt so aus: Private Sub Command1_Click() Randomize 'Datenbank öffnen '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) 'Recordset auf Basis einer SQL-Abfrage erstellen und öffnen Dim SQL As String 'Dim rs As Recordset SQL = "SELECT * FROM txtstone" Set rs = db.OpenRecordset(SQL) 'wenn die Ergebnisliste Datensätze enthält If rs.RecordCount > 0 Then While Not rs.EOF Anzahl = rs.RecordCount rs.MoveNext Wend End If Dim rnd As Integer rnd = CDbl("Text2.Text") ReDim Array (1 to rnd) For i = 1 To rnd SQL = "SELECT * FROM txtstone WHERE ID =" & Int(rnd * Anzahl) + 1 & ";" Array (i) = ID Next i Set rs = db.OpenRecordset(SQL) Text1(0).Text = rs("text") End Sub danke für deine Geduld grüsse mike

Frage zu Array und Datenbank	1.034	firemike	11.04.06 10:48
Re: Frage zu Array und Datenbank	603	Zero-G.	11.04.06 12:36
Re: Frage zu Array und Datenbank	568	firemike	11.04.06 14:49
Re: Frage zu Array und Datenbank	636	Zero-G.	11.04.06 14:54
Re: Frage zu Array und Datenbank	592	firemike	11.04.06 15:03
Re: Frage zu Array und Datenbank	613	Zero-G.	11.04.06 15:29
Re: Frage zu Array und Datenbank	608	firemike	11.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übersicht

Suchen