易语言mysql数据库怎么用

Define GDID=New GUID
GetText 0,0,200,30,"请输入姓名","请输入姓名"
a$=GetString(0)

GetText 0,0,200,30,"请输入年龄","请输入年龄"
b$=GetString(0)

dim as sql_handle sqlConnId=DllCreate('odbc32.dll','SQLAllocHandle')
dim as sql_handle sqlStmtId=DllCreate('odbc32.dll','SQLAllocHandle')
dim as int ret

ret=DllCall(sqlConnId,'long','SQLAllocHandle','int',1,'long',0,'long',@sqlConnId)
ret=DllCall(sqlConnId,'long','SQLSetEnvAttr','long',@sqlConnId,'long',200,'ptr',0,'long',0)
ret=DllCall(sqlConnId,'long','SQLSetConnectAttr','long',@sqlConnId,'long',102,'long',0,'long',0)

ret=DllCall(sqlConnId,'long','SQLDriverConnect','long',@sqlConnId,'long',0,'ptr',cast("DSN=YOUR_DSN_NAME;UID=YOUR_USERNAME;PWD=YOUR_PASSWORD"),'long',-3,'long',0,'long',0)
ret=DllCall(sqlStmtId,'long','SQLAllocHandle','int',2,'long',@sqlConnId,'long',@sqlStmtId)

ret=DllCall(sqlStmtId,'long','SQLExecDirectA','long',@sqlStmtId,'ptr',cast("CREATE TABLE IF NOT EXISTS person (id INT AUTO_INCREMENT PRIMARY KEY, name VARCHAR(255), age INT)"),'long',len("CREATE TABLE IF NOT EXISTS person (id INT AUTO_INCREMENT PRIMARY KEY, name VARCHAR(255), age INT)"))

dim as long sqlCode
ret=DllCall(sqlStmtId,'long','SQLPrepareA','long',@sqlStmtId,'ptr',cast("INSERT INTO person (name, age) VALUES (?, ?)"),'long',len("INSERT INTO person (name, age) VALUES (?, ?)"))
ret=DllCall(sqlStmtId,'long','SQLBindParameter','long',@sqlStmtId,'long',1,'int',1,'long',0,'int',0,'int',0,@GDID,'long',-1)

ret=DllCall(sqlStmtId,'long','SQLBindParameter','long',@sqlStmtId,'long',2,'str',1,'long',0,'int',0,'int',0,cast(a$),'long',len(a$))
ret=DllCall(sqlStmtId,'long','SQLBindParameter','long',@sqlStmtId,'long',3,'int',1,'long',0,'int',0,'int',0,@b$,'long',len(b$))

ret=DllCall(sqlStmtId,'long','SQLExecute','long',@sqlStmtId)

ret=DllCall(sqlConnId,'long','SQLFreeHandle','int',2,'long',@sqlStmtId)
ret=DllCall(sqlConnId,'long','SQLDisconnect','long',@sqlConnId)
ret=DllCall(sqlConnId,'long','SQLFreeHandle','int',1,'long',@sqlConnId)

MessageBox "数据插入成功！", 0, "提示"