Kako najjednostavnije do popisa tablica u jednoj bazi , te strukture tablice

  • 8 odgovora
  • 6.611 pregleda
Re: Kako najjednostavnije do popisa tablica u jednoj bazi , te strukture tablice 18.10.2006. u 14:57 · pre 243 meseci #3
Ako imaš IB onda ti ovo može pomoć...

// Očitavanje popis svih datoteka u bazi
BdpDataAdapter da = new BdpDataAdapter();
string cmdString = "SELECT RDB$RELATION_NAME FROM RDB$RELATIONS WHERE
RDB$SYSTEM_FLAG=0";
da.SelectCommand = new BdpCommand(cmdString, ibConn);
DataTable dt = new DataTable();
da.Fill(dt);
DataView dv = new DataView(dt);
dv.Sort = "RDB$RELATION_NAME";
Re: Kako najjednostavnije do popisa tablica u jednoj bazi , te strukture tablice 19.10.2006. u 13:42 · pre 243 meseci #6
Na primer:

Code:

Public Sub GetTableInfo()
   Dim db As Database, tbl As TableDef, fld As Field
   Set db = CurrentDb
   Debug.Print "            ", db.name
   Debug.Print "      "
   Debug.Print "Table         Created          Modified              # Recs"
   Debug.Print "-----         -------          --------              ------"
   For Each tbl In db.TableDefs
     If Left$(tbl.name, 4) <> "MSys" Then
       Debug.Print tbl.name & Chr(9) & tbl.DateCreated & Chr(9) & _
        tbl.LastUpdated & Chr(9) & tbl.RecordCount
       ' optional code to print all the fields
         'For Each fld In tbl.Fields
         '   Debug.Print fld.Name
         'Next fld
     End If
   Next tbl
End Sub


Radi u MS Accessu.
Potpis
Bolje 100 godina biti milioner nego nedelju dana siromašak
(c) Alan ford
Re: Kako najjednostavnije do popisa tablica u jednoj bazi , te strukture tablice 19.10.2006. u 14:12 · pre 243 meseci #7
U MS SQL imas tabele sysobjects, syscolumns, systypes koje cuvaju informaciju o objektima. Posto su tabele objekti, mozes da napises ovo:

SELECT
TableName = O.name, ObjectType = O.xtype, ObjectID = O.id ,
ColumnName = C.name, C.Xtype, ColumnOrder = C.colorder,
ColumnType = T.Name, C.Length, C.Xprec, C.scale
FROM sysobjects AS O
JOIN syscolumns AS C ON C.Id = O.ID
JOIN systypes AS T ON t.xtype = C.xtype
WHERE O.xtype = 'U'
---AND O.Name = 'Students'
ORDER BY O.name, C.colorder


Re: Kako najjednostavnije do popisa tablica u jednoj bazi , te strukture tablice 24.10.2006. u 13:53 · pre 243 meseci #9
Nema na cemu, ali nije samo "Zidar hvala", negi treba i "Miko, hvala". Mika ti je dao resenja za Access. Ako pogledas njegovo resenje, videces nardbu koja kaze

If Left$(tbl.name, 4) <> "MSys" Then

Negde u Access Tools/Options mozes da kliknes View System Objects. Prikazace ti se sistemske tabele, a jedna se zove MSysObjects. Dalje je veoma slicno kao u MS SQL. Microsoft podrzava kod, kao sto je Mika napisao, jer navodno MSysObjects ne mora da bude isti od verzije do verzije Accessa. Ja koristim Access od verzije 2.0 i MSysObjects me nije izneverila nikada.

Jos jednom, hvala Miki na trudu.

Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme