vfp操作mysql

* 连接到MySQL数据库
CLOSE ALL
SET TALK OFF
SET SAFETY OFF
SET DELETED OFF
SET EXCLUSIVE OFF
SET MULTILOCKS OFF
SET REPROCESS TO 0
SET STATUS OFF
SET CLOCKWISE OFF
SET DEFAUL TO ["."]
SET DATE TO ANSI
SET CENTURY ON
SET MARK TO "."
SET DECIMALS TO 2
SET EXACT OFF
SET FIELDS TO
SET FILTER TO
SET FORMAT TO
SET HEADING OFF
SET JUSTIFY TO
SET KEY TO
SET ORDER TO 1
SET PATH TO ["."]
SET RELATION TO
SET SKIP TO
SET SPACE TO "."
SET STATUS OFF
SET STEP ON
SET TALK OFF
SET TYPE TO
SET UNIQUE OFF
SET VALIDATE OFF
SET VIEW TO
SET WINDOW TO (0,0)-(24,80)

* 连接字符串
LOCAL cConnString
cConnString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=your_server_address;Port=your_port;Database=your_database_name;Uid=your_username;Pwd=your_password;"

* 连接数据库
LOCAL lnHandle
lnHandle = SQLCONNECT(pcvCONNECTIONNAME, cConnString)
IF lnHandle = 0
    MESSAGEBOX("无法连接到MySQL数据库", 16, "错误")
    RETURN
ENDIF

* 执行查询语句
LOCAL cSQL
cSQL = "SELECT * FROM your_table_name"
LOCAL lnResult
lnResult = SQLSEND(lnHandle, cSQL)
IF lnResult = 0
    MESSAGEBOX("查询失败", 16, "错误")
    SQLDISCONNECT(lnHandle)
    RETURN
ENDIF

* 处理查询结果
LOCAL nFields, nRows
nFields = SQLNUMFIELDS(lnHandle)
nRows = SQLNUMROWS(lnHandle)

FOR nRow = 1 TO nRows
    FOR nField = 1 TO nFields
        LOCAL cValue
        cValue = SQLGETDATA(lnHandle, nField)
        ? cValue
    ENDFOR
ENDFOR

* 断开数据库连接
SQLDISCONNECT(lnHandle)