Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: DB Abfrage
Autor: Norbert
Datum: 15.05.02 15:06
Private Ws As Workspace Public Db As Database Set Ws = Workspaces(0) Set Db = Ws.OpenDatabase("test", False, False, "ODBC;DATABASE=test;UID="+user+";PWD="+passwd+";DSN="+host) Für DSN mußt Du was anders einfügen, war nur ein Beispiel Public Function SelectCmd(Cmd As String) As String Dim rsTabInh As String On Error GoTo mrkError SelectCmd = "" rsTabInh = OpenRs(CEREAD, Cmd) If Not (rsTabInh = "") Then SelectCmd = GetRsW(rsTabInh, CollRs.Item(rsTabInh).Fields(0).Name, True) CloseRs rsTabInh End If GoTo mrkEnde mrkError: msgbox "Fehler" mrkEnde: End Function Damit kannst Du z.B. die Anzahl ermitteln, brauchst aber in dem Fall nicht, Du kannst mit Recordset alle Datensätze durchwandern: Public Function SelectCmdLis(Cmd As String, Lis() As String) As Boolean Dim rsTabInh As Recordset Dim IndexRec As Integer, IndexFe As Integer, AnzRec As Integer, AnzFe As Integer Dim MP As MousePointerConstants Dim Found As Boolean On Error GoTo mrkError SelectCmdLis = True MP = Screen.MousePointer Screen.MousePointer = vbHourglass rsTabInh = Db.OpenRecordset(Cmd) If Not (rsTabInh.EOF) Then rsTabInh.MoveLast rsTabInh.MoveFirst AnzRec = rsTabInh.RecordCount AnzFe = rsTabInh.Fields.Count ReDim Lis(AnzFe, AnzRec) IndexRec = 0 Found = True While Not (rsTabInh.EOF) For IndexFe = 0 To AnzFe - 1 Lis(IndexFe, IndexRec) = rsTabInh.Fields(IndexFe) Next IndexFe IndexRec = IndexRec + 1 rsTabInh.MoveNext Wend rsTabInh.Close Else SelectCmdLis = False End If GoTo mrkEnde mrkError: MsgBox "Fehler!" mrkEnde: Screen.MousePointer = MP End Function

DB Abfrage	45	Daniel	15.05.02 13:57
Re: DB Abfrage	39	Norbert	15.05.02 15:06

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