String ls_defaultdir, ls_dbq
// Database location path ls_defaultdir = getCurrentDirectory () ls_dbq = ls_defaultdir '/ test.mdb'
SQLCA.DBParm = "ConnectString = 'DSN = MS Access Database; UID = admin; PWD =; DefaultDir =" ls_defaultdir "; DBQ =" ls_dbq ";'" SQLCA.DBMS = "ODBC" SQLCA.AutoCommit = Trueconnect using SQLCA;
If SQLCA.SQLCODE <> 0 Then MessageBox ('Err', 'Sad' Sqlca.sqlerrtext) Else MessageBox ('..', 'NOT SAD') End IF
