//链接access数据库
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='driver=Microsoft Access Driver (*.mdb);dbq=.\lottery.mdb'"
//connect;
connect using SQLCA;
if sqlca.sqlcode < 0 then
messagebox("数据库连接失败",sqlca.sqlerrtext)
return -1
else
messagebox('','数据库链接成功')
end if
return 0
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='driver=Microsoft Access Driver (*.mdb);dbq=.\lottery.mdb'"
//connect;
connect using SQLCA;
if sqlca.sqlcode < 0 then
messagebox("数据库连接失败",sqlca.sqlerrtext)
return -1
else
messagebox('','数据库链接成功')
end if
return 0