|
楼主 |
发表于 2016-8-17 21:10:46
|
显示全部楼层
变量 连接字串="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&系统获取工作路径()&"UserInfo.mdb;"
变量 SQL语句="SELECT * FROM Info"
变量 返回错误信息 //返回错误信息
变量 返回影响行数 //返回受影响的行数
变量 返回的表
变量 ret=数据库(连接字串,SQL语句,返回影响行数,返回的表,返回错误信息)
调试输出(ret)
if(isarray(返回的表))
变量 value,key,str
变量 onelen = arraysize(返回的表)
变量 twolen = arraysize(返回的表[0])
for(变量 i = 0; i < onelen; i++)
for(变量 j = 0; j < twolen; j++)
arraygetat(返回的表[i],j,value,key)
str = str & key & " : "&value&" , "
end
str = str &"\n"
end
messagebox(str) //打印查询到的信息
end
调试不成功 ret返回 -1,运行生成的文件可以成功 |
|