VB读写远程Mysql数据库

最新推荐文章于 2024-09-16 12:50:52 发布

Yfw&武

最新推荐文章于 2024-09-16 12:50:52 发布

阅读量2.7k

点赞数 4

分类专栏： VB 文章标签： MySQL VB vb远程读写MySQL ODBC DB

本文链接：https://blog.csdn.net/u012577474/article/details/89846610

版权

VB 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

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

我在linux服务器端创建的数据库kormee_data 的test表内容如下：

部署开发环境：

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

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部件，点击应用。

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