-10-29 visual Foxpro连接数据库sql_server并且执行sql语句

打开vf工具，创建一个程序，然后复制黏贴以下代码

*-- 建立连接lcDSNLess="driver=SQL Server;server=localhost;uid=SA;pwd=你的密码;DATABASE=你的数据库"* 声明变量Public con* 测试是否成功连接con = Sqlstringconnect(lcDSNLess)If con < 0Messagebox("连接失败")ElseMessagebox("连接成功")Endifsys_czy_admin='admin'TEXT TO ctlsqlselect * from A_B_T_CZY where czy_xm=?sys_czy_adminENDTEXTn1=SQLExec(con,ctlsql,"temp")If n1>0If Empty(temp.czy_xm)?"当前结果为空"ELSE?temp.czy_xmEndifElseMessagebox("未找到")Endif

复制黏贴之后，记得把数据的参数改成你自己数据库的，然后再把中间的sql语句也该成自己的数据库，之后就可以连接进行测试了。