Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: SQL-Server-DB
Autor: Prian0815
Datum: 17.10.06 14:46
Mal ein Versuch(nicht getestet!) Dim oConn As New ADODB.connection Dim RS As New ADODB.Recordset ' Connection-Objekt erstellen Set oConn = New ADODB.connection With oConn .Provider = "SQLOLEDB.1" .Properties("Data Source") = "MSSQL" .Properties("User ID") = "maTestuser" .Properties("Password") = "ma" .CursorLocation = adUseClient .Open End With ' Search for open AccessObject objects in AllTables collection. For Each obj In Cn.AllTables If Left(obj.Name, 4) <> "MSys" Then' zumindest in Access fangen die Sysstemtabellen so an Tabname = obj.Name set rs = new adodb.recordset RS.Open Tabname, oConn, adOpenDynamic, adLockReadOnly Anz = rs.recordcount msgbox Tabname & "hat " & Anz & "Datensätze" Aber wie gesagt, das is jetzt ziemlich frei Schnauze. aber fürs erste wirds weiterhelfen. Gruß Armin P.S.: always look on the bright side of Life! End If Next obj MsgBox "Anzahl der ermittelten Tabellen: " & Anzahl

SQL-Server-DB	1.300	hobbiprogrammie...	17.10.06 10:11
Re: SQL-Server-DB	862	Prian0815	17.10.06 14:46

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