oCat = CreateObject("ADOX.catalog") oCat.ActiveConnection = "DRIVER={Microsoft Access Driver (*.mdb)};" +; "Dbq=d:\Program Files\Microsoft Visual Studio\VB98\NWind.mdb;" +; "Uid=Admin;" +; "Pwd=;" lExist = .T. On Error lExist = .F. oCat.Tables('customers').Type On Error ?lExistUsing OLEDB library (file #10002):
oConn = CreateObject("OLEDBFox.Connection") oConn.StringOpen("DRIVER={Microsoft Access Driver (*.mdb)};" +; "Dbq=d:\Program Files\Microsoft Visual Studio\VB98\NWind.mdb;" +; "Uid=Admin;" +; "Pwd=;") oConn.Tables() LOCATE FOR UPPER(table_name)="CUSTOMERS" ? FOUND()>