Hi,

*Q159691

LOCAL cat1,tbl1,lii,loProp,liy
cat1=CREATEOBJECT("ADOX.Catalog")
* Specify active connection for the Catalog object.
cat1.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" +;
        "Data Source=l:\datax\data\ppd001.mdb;"

FOR lii=0 TO cat1.Tables.Count-1
    tbl1=cat1.Tables.Item(lii)
    ?
    ?tbl1.Name,tbl1.Type
    FOR liy=0 TO tbl1.Properties.Count-1
        loProp=tbl1.Properties.Item(liy)
        ?loProp.Name,loProp.Type,loProp.Value
    NEXT
NEXT

MartinJ

>Hi
>
>Anyone have some examples for create and manipulate access databases using ADOX from Visual FoxPro?
>
>TIA