找回密码
 加入
搜索
查看: 32565|回复: 79

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

[复制链接]
发表于 2010-6-4 13:51:29 | 显示全部楼层 |阅读模式
本帖最后由 devil3380 于 2011-1-27 16:35 编辑
#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, 虽然有些是德文,但是连蒙带猜的 测试出来了,高手不要笑话哈

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2010-6-4 21:25:39 | 显示全部楼层
需要钱的啊
发表于 2010-6-4 21:27:39 | 显示全部楼层
不行啊  报错啊  ERROR: _MySQL_InitLibrary(): undefined function.
                        _MySQL_InitLibrary()
 楼主| 发表于 2010-6-5 01:09:44 | 显示全部楼层
回 2楼
官方的这个是 需要LIBMYSQL.dll 的
这个不是用ODBC连接的 你把这个文件放到同目录下
发表于 2010-6-5 23:22:05 | 显示全部楼层
路过~~顶一下~~~~
发表于 2010-6-7 10:42:00 | 显示全部楼层
。。。。。。路过
发表于 2010-6-7 15:30:38 | 显示全部楼层
回复 1# devil3380

我的看看货!呵呵!
发表于 2010-6-7 15:32:11 | 显示全部楼层
回复 1# devil3380

测试运行需要什么环境啊?付了钱总是要得到点什么,呵呵!
 楼主| 发表于 2010-6-7 17:14:44 | 显示全部楼层
回复  devil3380

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



    需要你装了MQSQL数据库
需要LIBmysql.dll (这个可以在mysql的官网上可以下载)
发表于 2010-6-14 21:23:16 | 显示全部楼层
不错哦 学习到手
发表于 2010-6-30 12:50:44 | 显示全部楼层
要钱也没关系阿...需要用到
发表于 2010-8-2 13:36:37 | 显示全部楼层
看看 好贵哦!
发表于 2010-8-8 09:07:39 | 显示全部楼层
来看看怎么搞的
发表于 2010-8-19 11:25:56 | 显示全部楼层
需要你装了MQSQL数据库
需要LIBmysql.dll (这个可以在mysql的官网上可以下载)
发表于 2010-9-3 21:35:27 | 显示全部楼层
瞅瞅 正在找了
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 22:50 , Processed in 0.084773 second(s), 21 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表