OpenSchema e Chiave tabella

[Picciola]

Scusate l'intrusione, oh sommi.....
Sto utilizzando il metodo Openschema con ADO per gestire un database Access remoto.
Tuttavia ho la necessità di capire qual'è il campo CHIAVE di ogni tabella.
Ho provato a spulciare per bene tutte le informazioni trovate su
http://www.aspcode.it/articoli/artic...how_art&idx=24 ma la chiave indice proprio non l'ho ricavata.
A meno che non sia necessario fare un controllo incrociato su COLUMN_FLAGS, DATA_TYPE e IS_NULLABLE, cercando qualche - per me - oscura relazione......
Tuttavia mi sembra un po' troppo complicato.
Voi che dite???

:master:
(io perplessa....good night!)

[sspintux]

Ciao, prova così :

const adSchemaPrimaryKeys=28

With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb"
    .Open
End With

Set rs = cn.OpenSchema(adSchemaPrimaryKeys, Array(Empty, Empty,"Tabella2" ))

While Not rs.EOF
   Response.Write rs("PK_NAME") & " " & rs("COLUMN_NAME") & "
"
   rs.MoveNext 
Wend

Ciao sspintux

[Picciola]

Ciaosspintux, grazie della risposta!
Quello che proponi tu è passare da ADO a OLEDB... E funziona di sicuro.
Ma se io volessi (o dovessi) rimanere con ADO??
:ignore:

[willybit]

29 invece di 28

[Picciola]

Niente da fare non va....

Ho provato così:

const adSchemaPrimaryKeys=29
Set cn = Server.CreateObject("ADODB.Connection")

With cn
    .ConnectionString = "driver={Microsoft Access Driver (*.mdb)};dbq=" &_
server.MapPath("\database\prova.mdb")
    .Open
End With

Set rs = cn.OpenSchema(adSchemaPrimaryKeys, Array(Empty, Empty,"tabella" ))

While Not rs.EOF
   Response.Write rs("PK_NAME") & " " & rs("COLUMN_NAME") & "
"
   rs.MoveNext 
Wend

rs.close 
set rs=nothing 
cn.Close
Set cn = Nothing

Ma mi dà errore alla riga in rosso...

Tipo di errore:
ADODB.Recordset (0x800A0CC1)
Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto.
/sitoprovaxgest/prova3.asp, line 15


Quel rs("PK_NAME") non lo digerisce proprio!!!
Con OLEDB invece funziona.... Il fatto è che io ho necessità di tenermi il Server.MapPath !

[gensole]

io in sql server uso questo

Recordset("campo").attributes = 16

non so se con access possa andare....prova un pò......

[willybit]

Originariamente inviato da Picciola
Con OLEDB invece funziona.... Il fatto è che io ho necessità di tenermi il Server.MapPath !

ecco... questo discorso non l'ho capito :master: cosa centra Server.MapPath?!?!??

[willybit]

per il 29 lascia perdere che ho detto una c...

[Picciola]

Per GENSOLE: Non ho capito come utilizzarlo!!!


Per Willy: Si lo so, a volte mi esprimo proprio una SCHIFEZZA!.....
Comunque si, l'ho fatto funzionare come serviva a me.... Eccolo:

const adSchemaPrimaryKeys=29
Set cn = Server.CreateObject("ADODB.Connection")

With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
server.MapPath("\database\prova.mdb")
    .Open
End With

Set rs = cn.OpenSchema(adSchemaPrimaryKeys, Array(Empty, Empty,"tabella" ))

While Not rs.EOF
   Response.Write rs("PK_NAME") & " " & rs("COLUMN_NAME") & "
"
   rs.MoveNext 
Wend

rs.close 
set rs=nothing 
cn.Close
Set cn = Nothing

Sono brava??


Una domanda.... Ho notato che se tolgo

While Not rs.EOF
e
rs.MoveNext
Wend

lasciando solo
Response.Write rs("PK_NAME") & " " & rs("COLUMN_NAME") & "
"

funziona lo stesso e mi da una sola riga....
Puoi darmi una delucidazione? Perchè mi scorro tutto il Recordset? Per vedere se ci sono altre chiavi?

[Picciola]

Un'altra domandina.....
Innanzitutto BUONGIORNO!


Con Openschema c'è modo di risalire alle relazioni tra le tabelle di Access?
Chiedo troppo?