vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Brandneu! sevEingabe v3.0 - Das Eingabecontrol der Superlative!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

VB & Datenbanken
SQL-Server-DB 
Autor: hobbiprogrammierer
Datum: 17.10.06 10:11

Hi,

wie kann ich die Anzahl der Datensätze aller Tabellen in einer SQL_Server DB auslesen? Ich möchte z.B. pro Tabelle eine Zeile:"Tabellnname vbtab & AnzDS"

MfG
AnGe
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  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
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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-2024 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