VFP9 连接mysql代码示例

goConn	= CREATEOBJECT("ADODB.Connection")
goConn.ConnectionString	="Provider=MSDASQL.1;Password=*******;Persist Security Info=False;User ID=root;Data Source=myodbc;Initial Catalog=dbf_main"
// 连接串的使用Provider=MSDASQL.1;Password=*******;Persist Security Info=False;User ID=root;Data Source=myodbc;Initial Catalog=dbf_main

goConn.Open

RS	= CREATEOBJECT("adodb.recordset")


RS.open('select * from userinfo ',goConn,3,1)

RS.movefirst
DO WHILE !RS.eof()
IF !ISNULL(rs.fields(3).value) OR rs.fields(3).value<>""
?rs.fields(3).value 
RS.MOVENEXT
ENDIF 
ENDDO 

 

ODBC 下载地址

https://download.csdn.net/download/jack_wang0823/12047451

原地址

https://cdn.mysql.com//Downloads/Connector-ODBC/5.2/mysql-connector-odbc-noinstall-5.2.7-win32.zip