好吧.我也发一个关于MYSQL操作的 例子

devil3380

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=D:\ico\documents-white-exec.ico
#AutoIt3Wrapper_outfile=C:\Documents and Settings\Administrator\桌面\printf1.exe
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <array.au3>
#include "mysql.au3"

$Form1 = GUICreate("报表查询", 1000, 700, 0, 0)
$Button1 = GUICtrlCreateButton("职员档案", 80, 64, 81, 65)
$Button2 = GUICtrlCreateButton("订单列表", 80, 154, 81, 65)
GUISetState(@SW_SHOW)


While 1
        $Msg = GUIGetMsg()
        
        Select
                Case $msg = $Button1
                        _MySQL_InitLibrary()
$MysqlConn = _MySQL_Init()
$connected = _MySQL_Real_Connect($MysqlConn, "localhost", "root", "_Memo", "oaerp_e2dx500i9erp1262745042");(,服务器名,ID,密码,数据库名)

If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))
_mysql_set_character_set($MysqlConn,"GBK")
$query = "SELECT Name FROM HEmployee";需要查询的语句
_MySQL_Real_Query($MysqlConn, $query)

$res = _MySQL_Store_Result($MysqlConn)

$fields = _MySQL_Num_Fields($res)

$rows = _MySQL_Num_Rows($res)

Dim $array[$rows][$fields]
For $k = 1 To $rows
        $mysqlrow = _MySQL_Fetch_Row($res,$fields)

        $lenthsStruct = _MySQL_Fetch_Lengths($res)

        For $i = 1 To $fields
                $length = DllStructGetData($lenthsStruct, 1, $i)
                $fieldPtr = DllStructGetData($mysqlrow, 1, $i)
                $data = DllStructGetData(DllStructCreate("char[" & $length & "]", $fieldPtr), 1)
                $array[$k - 1][$i - 1] = $data
        Next
Next
_ArrayDisplay($array)
_MySQL_Data_Seek($res, 0) 

_MySQL_Free_Result($res)


_MySQL_Close($MysqlConn)

_MySQL_EndLibrary()
                        
                        Case $msg = $Button2
                        _MySQL_InitLibrary()
$MysqlConn = _MySQL_Init()
$connected = _MySQL_Real_Connect($MysqlConn, "localhost", "root", "_Memo", "oaerp_e2dx500i9erp1262745042");(,服务器名,ID,密码,数据库名)
If $connected = 0 Then Exit MsgBox(16, 'Connection Error', _MySQL_Error($MysqlConn))
_mysql_set_character_set($MysqlConn,"GBK")
$query = "SELECT Name FROM tblsalecontr";需要查询的语句2
_MySQL_Real_Query($MysqlConn, $query)

$res = _MySQL_Store_Result($MysqlConn)

$fields = _MySQL_Num_Fields($res)

$rows = _MySQL_Num_Rows($res)

Dim $array[$rows][$fields]
For $k = 1 To $rows
        $mysqlrow = _MySQL_Fetch_Row($res,$fields)

        $lenthsStruct = _MySQL_Fetch_Lengths($res)

        For $i = 1 To $fields
                $length = DllStructGetData($lenthsStruct, 1, $i)
                $fieldPtr = DllStructGetData($mysqlrow, 1, $i)
                $data = DllStructGetData(DllStructCreate("char[" & $length & "]", $fieldPtr), 1)
                $array[$k - 1][$i - 1] = $data
        Next
Next
_ArrayDisplay($array)
_MySQL_Data_Seek($res, 0) 

_MySQL_Free_Result($res)


_MySQL_Close($MysqlConn)

_MySQL_EndLibrary()
        
                Case $msg = $GUI_EVENT_CLOSE
                        MsgBox(0, "注意", "正在退出...")
        ExitLoop
EndSelect

        
WEnd

昨天下了官方的UDF, 虽然有些是德文,但是连蒙带猜的 测试出来了,高手不要笑话哈

顺做了个界面
所需的都在附件中了

haodd

需要钱的啊

haodd

不行啊  报错啊  ERROR: _MySQL_InitLibrary(): undefined function.
                        _MySQL_InitLibrary()

devil3380

回 2楼
官方的这个是 需要LIBMYSQL.dll 的
这个不是用ODBC连接的 你把这个文件放到同目录下

nh3300

路过～～顶一下～～～～

qqlike

。。。。。。路过

newuser

回复 1# devil3380

我的看看货!呵呵!

newuser

回复 1# devil3380

测试运行需要什么环境啊?付了钱总是要得到点什么,呵呵!

devil3380

回复  devil3380

测试运行需要什么环境啊?付了钱总是要得到点什么,呵呵!
newuser 发表于 2010-6-7 15:32

    需要你装了MQSQL数据库
需要LIBmysql.dll (这个可以在mysql的官网上可以下载)

guowenfu

不错哦 学习到手

a70793

要钱也没关系阿...需要用到

qzdisk

看看 好贵哦！

261869247

来看看怎么搞的

andersonljw

需要你装了MQSQL数据库
需要LIBmysql.dll (这个可以在mysql的官网上可以下载)

today2004

瞅瞅 正在找了