[es] - Asp i access

ljuba
Aleksandar Ljubojevic
Marketing Director
Sid/Novi Sad/Malta/Cyprus

Član broj: 1475
Poruke: 203
*.telemail.com.mt

ICQ: 21352441
Sajt: www.linkedin.com/in/aleks..

Profil

Asp i access

^{28.10.2002. u 14:54 - pre 261 meseci}

Cao svima,

Pokusavam da napravim neki svoj wizard za administraciju Access baze, pa imam problem.

Imam skripte koje mi izlistaju sve tabele i sva polja po tabelama.

Zelim da pored imena polja ispisem tip polja, eventualno size (za text) i da li je kljuc.

Trenutno nalazim koji je tip na sledeci nacin:

if (objRS.Fields(I).Type = 3) then Fja("AutoNumber or Numeric")
if (objRS.Fields(I).Type = 6) then Fja("Currency")
if (objRS.Fields(I).Type = 11) then Fja("Yes/No")
if (objRS.Fields(I).Type = 135) then Fja("Date/Time")
if (objRS.Fields(I).Type = 202) then Fja("Text")
if (objRS.Fields(I).Type = 203) then Fja("Memo or Hyperlink")
if (objRS.Fields(I).Type = 205) then Fja("OLE Object")

Interesuje me:

1. Kako da pronadjem koji je tip ako je type=3 i ako je type=203
2. Kako da pronadjem Size/Length/... od polja
3. Kako da pronadjem da je neko polje kljuc

Hvala unapred na pomoci

Ljuba

Pozdrav

LJUBA

Odgovor na temu

ljuba
Aleksandar Ljubojevic
Marketing Director
Sid/Novi Sad/Malta/Cyprus

Član broj: 1475
Poruke: 203
*.telemail.com.mt

ICQ: 21352441
Sajt: www.linkedin.com/in/aleks..

Profil

Re: Asp i access

^{28.10.2002. u 15:17 - pre 261 meseci}

Nadjoh jedno:

Da li je AutoIncrement ispitam sa uslovom:

objRS.Fields(I).properties("IsAutoIncrement")

LJUBA

Pozdrav

LJUBA

Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096

+51 Profil

Re: Asp i access

^{28.10.2002. u 18:51 - pre 261 meseci}

Za velicinu polja pogledaj svojstva field objekta

Code:

.DefinedSize
.ActualSize

.DefinedSize je ono sta tebi treba ako sam dobro razumeo.
Potrazi recordset.fields.field objekt na MSDN-u.

Za PK ovako nekako:

Code:

<%
Dim cat, idx, col

Set cat = Server.CreateObject("ADOX.Catalog")
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("test.mdb")

For Each idx In cat.Tables("data").Indexes
    If idx.PrimaryKey Then
        For Each col In idx.Columns
            Response.Write col.Name & "<br />"
        Next
    End If
Next

Set cat = Nothing

%>

Commercial-Free !!!

Odgovor na temu

ljuba
Aleksandar Ljubojevic
Marketing Director
Sid/Novi Sad/Malta/Cyprus

Član broj: 1475
Poruke: 203
*.telemail.com.mt

ICQ: 21352441
Sajt: www.linkedin.com/in/aleks..

Profil

Re: Asp i access

^{29.10.2002. u 10:33 - pre 261 meseci}

Hvala puno ... Puno si mi pomogao ... Sredio sam preko ove petljice ...

Sve sam sredio osim onog razdvajanja da li je Memo ili je Hyperlink

Kad sam napravio bezveze tabelu u Access-u sa onoliko polja koliko je tipova i kad ih izlistam za ova dva tipa imam isti broj - 203.

Ali i to cu vec nekako videti ...

Hvala jos jednom

Ljuba

Pozdrav

LJUBA

Odgovor na temu

degojs

Član broj: 4716
Poruke: 5096

+51 Profil

Re: Asp i access

^{29.10.2002. u 13:05 - pre 261 meseci}

Pored ove tabele ispod, pronasao sam i ovo objasnjenje:

"The problem is that there is not a bug in Access, you need to understand how a hyperlink field is stored in the Jet Database Engine. A hyperlink field is stored as a memo internally with a # sign to separate the parts of the hyperlink."

Znam da nije tacan odgovor na ono sto trebas al' mozda pomogne.

Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205
Const adChapter = 136

'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000

Commercial-Free !!!

Odgovor na temu

Marko Bijelic

Član broj: 3296
Poruke: 1077
*.teol.net

Sajt: markobijelic.com

+1 Profil

Re: Asp i access

^{29.10.2002. u 14:19 - pre 261 meseci}

Koliko sam ja skontao ti radis nesto kao table editor. Fin proizvod usto i opensurce:

TableEditoR - [476,808 pageviews & 67,198 downloads]
------------------------------------------------------------
http://www.2enetworx.com/dev/projects/tableeditor.asp

Features:
» Most contributions are compiled into this release
» Client side TDC dataview for Internet Explorer
» Dynamically configure your settings over the web
» Dynamically define your connections over the web
» Dynamic paging support
» Better support for parameterized queries and stored procedures
» Export to Excel and XML
» Security fixes, bug fixes, improvements

--

Odgovor na temu

ljuba
Aleksandar Ljubojevic
Marketing Director
Sid/Novi Sad/Malta/Cyprus

Član broj: 1475
Poruke: 203
*.telemail.com.mt

ICQ: 21352441
Sajt: www.linkedin.com/in/aleks..

Profil

Re: Asp i access

^{29.10.2002. u 14:38 - pre 261 meseci}

Cao,

Hvala na odgovoru ... Znam za to ... Nasao sam ih dosta slicnih na:

http://www.asphits.com/default.asp?NAV=1&CatID=80

Ali sam zeleo da napravim nesto svoje.

Pozdrav

LJUBA

Pozdrav

LJUBA

Odgovor na temu