VB读写远程Mysql数据库

逃离我推掉我的手 2021-09-19 06:34 267阅读 0赞

**测试的远程MySQL数据库IP及端口：**  
IP:192.168.1.88 端口：3306  
**测试的MySQL账号密码和数据库名：**  
用户名：kormee  
密码：kormee123  
数据库：kormee\_data

> 我在linux服务器端创建的数据库kormee\_data 的test表内容如下：  
> ![在这里插入图片描述][20190505151449822.png]

**部署开发环境：**

安装ODBC驱动,根具自己的开发软件是32还是64位选择对应版本安装。  
![在这里插入图片描述][20190505135412977.png]

VB代码：
    
    
    Dim CN As New ADODB.Connection  '创建一个Connection对象
    Dim rs As New ADODB.Recordset   '创建一个Recordset对象
    Dim strSQL As String
    
    '>>>>>>>>>>>>>>>>>>>>>窗口事件>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    Private Sub Form_Load()
        Set CN = New ADODB.Connection
            CN.ConnectionString = "Driver=MySQL ODBC 8.0 ANSI Driver;Server=172.20.11.114;uid=kormee;pwd=kormee123;database=kormee_data"
            CN.CommandTimeout = 20
            CN.Open
            Set DataGrid1.DataSource = Adodc1  'datagrid设定数据源
            Get_Table_BT_Click '读取数据库所有表
            Get_Count_BT_Click '读取test表记录数
    
          
         End Sub
    
    
    '>>>>>>>>>>>>>>>>>>>>>下载数据库中的所有表>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    Private Sub Get_Table_BT_Click()
     '加载数据库下用户表
        Combo2.Clear  '清空下拉列表控件
        Set rs = CN.OpenSchema(adSchemaTables)  'rs指向数据库的表信息
        While Not rs.EOF      ' Not取反符号,读完rs.EOF=true,取反后为flase ,退出循环(循环读取所有表名)            '
        Combo2.AddItem (rs!TABLE_NAME) '向下拉列表控件添加一条记录
        rs.MoveNext                   '指针指向下一个表名
         Wend                       'while 条件..(条件成立循环)... wend
        Combo2.Text = Combo2.List(0) '显示列表控件第一条记录
         rs.Close '关闭rs
    End Sub
    
    
    
    '>>>>>>>>>>>>>>>>>>>>>获取记录数(按钮)>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    Private Sub Get_Count_BT_Click()
    Dim s As Long
        rs.CursorLocation = adUseClient    '参考①
       rs.Open "Select * From test", CN, 1, 1 '参考②    配合RecordCount
    Text2.Text = rs.RecordCount '读取所有记录条数
      rs.Close
        End Sub
    
    '>>>>>>>>向数据库添加记录(按钮)>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
    
    Private Sub Add_Index_BT_Click()
    
        SQL = "insert into test values(‘XiaoMing’,'man')"
        CN.Execute SQL  '添加一条记录
        Get_Count_BT_Click  '获取记录数
        Adodc1.Refresh '数据库刷新
    
    End Sub

**VB控件配置**

1、引入adodc和datagrid部件，点击应用。

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70]  
2、添加控件到窗口。

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 1]

3、绑定数据库。

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 2]  
4、填写数据库用户名与密码。

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 3]

5、设定记录源（对应表的数据）  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 4]

VB运行结果图示：  
![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 5]

附上源程序文件，和工具链接。  
VB源程序：[https://download.csdn.net/download/u012577474/11160088][https_download.csdn.net_download_u012577474_11160088]  
ODBC驱动程序：[https://download.csdn.net/download/u012577474/11159975][https_download.csdn.net_download_u012577474_11159975]

> ## `扫码下方二维码关注本人公众号`分享编程相关知识不限语言和工具软件，学术无界限。 ##
> 
> ## 工众号回复【*我要资源*】`免费获取`，获取更多学习资源及视频教程 (Linux\\Python\\Java和大数据开发)。 ##

![在这里插入图片描述][20190422110216136.jpg_pic_center]

*微 信 号：yang10242019*

邮箱：898109004@qq.com

[20190505151449822.png]: /images/20210726/7ac8237f9b2d4c2a896b8bca839d237c.png
[20190505135412977.png]: /images/20210726/0c9a8fc17cbb4d279a966152f4565a0c.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70]: /images/20210726/ec59f83304f5492ab68c970ded8e2418.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 1]: /images/20210726/1fb340937d874e339ebab2c7b9cc9ea6.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 2]: /images/20210726/4f5b7242e6e14eab83d0f5a96e59f4fe.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 3]: /images/20210726/5937a1e327eb428db108daba71692521.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 4]: /images/20210726/e4b35da4c84f4cc297cecf9d4b71f50b.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3UwMTI1Nzc0NzQ_size_16_color_FFFFFF_t_70 5]: /images/20210726/80501ef94c67451883c84f58c6e72ed1.png
[https_download.csdn.net_download_u012577474_11160088]: https://download.csdn.net/download/u012577474/11160088
[https_download.csdn.net_download_u012577474_11159975]: https://download.csdn.net/download/u012577474/11159975
[20190422110216136.jpg_pic_center]: /images/20210726/cc94f12dfa794a96b2d2c119fd58feb2.png