这是个功能控件,无界面,无显示,第三方DLL提供,VFB封装成控件,编译后带一个DLL文件。
事件就一个,显示SQL命令,字符编码是 UTF8
MySql控件包装了SQL命令,我们不需要知道SQL命令。
打开和关闭数据库
If MySqlBox1.Open(mysql服务器 ,mysql账号 ,mysql密码 ,mysql数据库 ,3306) = False Then
MsgBox(Form1.hWnd ,"无法连接数据库" ,MB_OK Or MB_ICONERROR Or MB_DEFBUTTON1 Or MB_APPLMODAL)
Return
End If
MySqlBox1.Close
查询全部
Dim rs() As String ,x as Long ,y as Long
If MySqlBox1.Find("数据库表" ,"查询条件" ,rs()) Then
Print UBound(rs) ,UBound(rs ,2)
For y = 0 To UBound(rs) ' y = 0 时将显示字段名
For x = 0 To UBound(rs ,2)
Print x,y, Utf8toStr(rs(y ,x)) '如果是文本,因为是 UTF8 编码,需要转换后输出
Next
Print
Next
E