[ Neznalica_sa_ugla @ 18.10.2006. 12:37 ] @
Kako najjednostavnije do popisa tablica u jednoj bazi , te strukture tablice , bilo bi lepo kada bi povretna informacia bila polje . Hvala
[ aleksandarpopov @ 18.10.2006. 13:25 ] @
Za koji SUBP?
[ ismilovic @ 18.10.2006. 14:57 ] @
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";
[ Neznalica_sa_ugla @ 18.10.2006. 21:32 ] @
Paraleno za Access i MS SQL 2000 , cak mislim da verovatno je to slican kod inace aplikacija je u ASP -net
[ aleksandarpopov @ 19.10.2006. 13:21 ] @
probaj www.google.com
sa ovim kljucnim recima : get tablenames mssql

Brdo rezultata :) . Verovatno zna google i za Access...
Poz
[ mika @ 19.10.2006. 13:42 ] @
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.
[ Zidar @ 19.10.2006. 14:12 ] @
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


[ Neznalica_sa_ugla @ 21.10.2006. 00:23 ] @
Zidar , hvala . Bilo je to jednostavno ,kratko i učinkovito .
[ Zidar @ 24.10.2006. 13:53 ] @
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.