发布于 2014-08-14 12:03:16
6楼
嗯,是参照帮助手册上写的,在UI界面里
main()
{
int rc;
int n=0;
dbConnection conn;
dbRecordset rs;
anytype fld;
rc = dbOpenConnection("DRIVER=Microsoft Access Driver (*.mdb); DBQ=PVSS_T.MDB; DefaultDir=C://ACCESS_T; UID=; PWD=;", conn);
Debug(rc);
if (!rc)
{
rc = dbOpenRecordset (conn, "SELECT * FROM Trend_Group", rs);
if (!rc)
{
while (!rc && !dbEOF (rs))
{
rc = dbGetField (rs, 0, fld);
if (!rc)
DebugN("Field 1: " , fld);
rc = dbGetField (rs, 1, fld);
if (!rc)
DebugN("Field 2: " , fld);
rc = dbGetField (rs, 2, fld);
if (!rc)
DebugN("Field 3: " , fld);
rc = dbGetField (rs, 3, fld);
if (!rc)
DebugN("Field 4: " , fld);
rc = dbGetField (rs, 4, fld);
if (!rc)
DebugN("Field 5: " , fld);
rc = dbGetField (rs, 5, fld);
if (!rc)
DebugN("Field 6: " , fld);
rc = dbGetField (rs, 6, fld);
if (!rc)
DebugN("Field 7: " , fld);
rc = dbGetField (rs, 7, fld);
if (!rc)
DebugN("Field 8: " , fld);
rc = dbMoveNext (rs);
n++;
}
dbCloseRecordset (rs); //closes subset
}
dbCloseConnection (conn); //closes connection
}
}
加或不加头文件,运行后,打印窗口显示-1(连接不上)。
不知是ADO没引用上,还是Microsoft Access Driver (*.mdb)驱动不行