VFB组件：MySql控件（网络数据库）

最新推荐文章于 2023-04-30 01:20:59 发布

原创

最新推荐文章于 2023-04-30 01:20:59 发布 · 1.2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #mysql #VisualFreeBasic #VB #VFB

这篇博客介绍了一个无界面的VFB组件，它使用第三方DLL封装了MySQL数据库操作，提供了简化的方法来打开和关闭数据库、执行查询。通过这个控件，开发者无需直接编写SQL命令，其UTF8编码确保了字符正确处理。该控件在使用时会显示SQL命令，并且在编程时提供参数提示，便于理解和操作。

这是个功能控件，无界面，无显示，第三方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