Eigenschaften einer Access Tabelle ermitteln

LEOGOLD · 23. Dezember 2020, 13:24

Hallo,
ich benötige einen Code um die Tabelleneigenschaften einer Access Datenbank zu ermitteln (Besitzer, Erstellt, Geändert)

*Topic verschoben*

petaod · 23. Dezember 2020, 13:30

Hast du dir mal die Tabelle MSysObjects angeschaut?
access.mvps.org/access/queries/qry0002.htm

LEOGOLD · 23. Dezember 2020, 13:33

Das ist doch Access direkt, oder?.
Ich möchte gern mit Visual Studio 2019 die Eigenschaften ermitteln.

petaod · 23. Dezember 2020, 14:03

Du kannst doch auch mit VB.Net einen SQL-Befehl absetzen.

LEOGOLD · 23. Dezember 2020, 14:07

Der SQL Befehl ist aber nicht kommentiert.
Leider weis ich nicht was die im SQL einzelnen Select Befehle machen.

petaod · 23. Dezember 2020, 15:09

Deine eigentliche Frage lautet also:
Wie spreche ich mit VB.Net eine Access-Datenbank an?
Das klingt dann schon etwas grundlegender als deine ursprüngliche Frage.

Was hast du denn bisher?
Wo muss die Hilfe anfangen?

LEOGOLD · 23. Dezember 2020, 16:02

Nein, wie ich eine Datenbank anspreche habe ich schon programmiert.
Ich möchte gern die Eigenschaften der einzelnen Tabellen in Access ermitteln.
Erstellt am
Geändert am
Besitzer

petaod · 23. Dezember 2020, 17:12

Dann ruf doch mal die Informationen aus der Systemtabelle ab.

SQL-Abfrage

SELECT * FROM MSysObjects

und schau, was zurück kommt.

LEOGOLD · 23. Dezember 2020, 18:44

Hmmm, keine Ahnung wie das geht

Kasi · 23. Dezember 2020, 19:46

LEOGOLD schrieb:

die Tabelleneigenschaften einer Access Datenbank zu ermitteln (Besitzer, Erstellt, Geändert)

Post#1
hört sich eher an wie die Datei Eigenschaften/Details der Datenbank (im Explorer)

Post#7
hört sich wieder anders an

was willst du nun wissen?

LEOGOLD · 24. Dezember 2020, 13:05

wenn man in Access auf die Tabellen mit der rechten Maus klickt und dann auf Objekteigenschaften geht.
Genau diese Informationen wollte ich mit VB auslesen.
Erstellt:
Geändert:
Besitzer:

petaod · 24. Dezember 2020, 13:45

Und, kriegst du diese Infos, wenn du den Befehl aus Post #8 ausführst?
Kannst ja erst mal in Access selbst testen.

LEOGOLD · 24. Dezember 2020, 14:21

Tja, das ist ja mein Problem.
Wie kann ich den Befehl ausführen

petaod · 24. Dezember 2020, 14:28

Entweder in VB mit DoCmd.RunSql
docs.microsoft.com/de-de/office/vba/api/access.docmd.runsql

Oder im Query-Designer
dummies.com/programming/sql/ho…ql-with-microsoft-access/

LEOGOLD · 24. Dezember 2020, 14:38

Das weis ich ja, aber wie lautet der vollständige Select Befehl
z.b. Angabe der Tabelle

ErfinderDesRades · 24. Dezember 2020, 14:38

Du startest Access, und tippst folgendes ein: SELECT * FROM MSysObjects
Und dann [Enter] drücken.

Wenn da für dich interessante Ergebnisse bei rauskommen hast du quasi "den Fuss in der Tür", und man kann überlegen, wie man diese Abfrage codeseitig auf die Schiene bringt.

Edit:

LEOGOLD schrieb:

Das weis ich ja, aber wie lautet der vollständige Select Befehl
z.b. Angabe der Tabelle

Hä?
Der Befehl ist vollständig. Wenn du nicht weisst, welche Tabelle da angegeben ist, dann solltest du auf w3Schools gehen, und Grundlagen von Sql erlernen.
Also mach doch einfach mal, was man dir vorschlägt.

LEOGOLD · 24. Dezember 2020, 14:41

Das kommt die Fehlermeldung Erwartet: Case

petaod · 24. Dezember 2020, 14:49

Du setzt das Select in VBA ab und der kennt das natürlich nur als Select Case.
Du sollst das als Parameter für RunSQL mitgeben.
Zeig mal deinen Code.

LEOGOLD · 24. Dezember 2020, 15:16

Dim SQL As String
SQL = "SELECT * FROM MSysObjects"
DoCMDRunSQL SQL

Kasi · 24. Dezember 2020, 15:31

es gibt verschiedene Methoden Access Informationen auszulesen

DAO
ADO bzw. ADOX
die neuste GetOleDbSchema

hier eine variante mit DAO

VB.NET-Quellcode

Option Strict On
Imports DAO
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Gettables()
End Sub
Public Sub Gettables()
Dim tbl As DAO.TableDef
Dim s As String
Dim databaseName As String = "E:\Cal.mdb"
Dim dbEngine As New DAO.DBEngine()
Dim db As DAO.Database = dbEngine.OpenDatabase(databaseName)
With DataGridView1
.Columns.Add("Tabelle", "Tabelle")
.Columns.Add("DateCreated", "DateCreated")
.Columns.Add("LastUpdated", "LastUpdated")
.Columns.Add("Recordcount", "Recordcount")
End With
For Each tbl In db.TableDefs
s = TabellenAttribute(tbl)
If s = "" Then
With tbl
DataGridView1.Rows.Add(.Name, .DateCreated, .LastUpdated, .RecordCount)
End With
End If
Next
End Sub
Public Function TabellenAttribute(tbl As DAO.TableDef) As String
Dim strResult As String = Nothing
With tbl
If CBool(.Attributes And DAO.TableDefAttributeEnum.dbSystemObject) Then
strResult = "SystemObject "
End If
If CBool(.Attributes And DAO.TableDefAttributeEnum.dbHiddenObject) Then
strResult = strResult + "HiddenObject "
End If
If CBool(.Attributes And DAO.TableDefAttributeEnum.dbAttachExclusive) Then
strResult = strResult + "AttachExclusive "
End If
If CBool(.Attributes And DAO.TableDefAttributeEnum.dbAttachSavePWD) Then
strResult = strResult + "AttachSavePWD "
End If
If CBool(.Attributes And DAO.TableDefAttributeEnum.dbAttachedTable) Then
strResult = strResult + "AttachedTable "
End If
If CBool(.Attributes And DAO.TableDefAttributeEnum.dbAttachedODBC) Then
strResult = strResult + "AttachedODBC "
End If
End With
TabellenAttribute = strResult
End Function
End Class

hier noch ein Image dazu

mit GetOleDbSchema

VB.NET-Quellcode

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim str As String = "Provider=Microsoft.jet.oledb.4.0;Data Source=E:\Cal.mdb"
Dim conn As New OleDb.OleDbConnection
conn.ConnectionString = str
conn.Open()
Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
New Object() {Nothing, Nothing, Nothing, "TABLE"})
DataGridView1.DataSource = schemaTable
conn.Close()
End Sub

Eigenschaften einer Access Tabelle ermitteln

Eigenschaften einer Access Tabelle ermitteln

SQL-Abfrage

LEOGOLD schrieb:

LEOGOLD schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben