VB读写远程Mysql数据库

测试的远程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.ConnectionCN.ConnectionString = "Driver=MySQL ODBC 8.0 ANSI Driver;Server=172.20.11.114;uid=kormee;pwd=kormee123;database=kormee_data"CN.CommandTimeout = 20CN.OpenSet 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 条件..(条件成立循环)... wendCombo2.Text = Combo2.List(0) '显示列表控件第一条记录rs.Close '关闭rs
End Sub'>>>>>>>>>>>>>>>>>>>>>获取记录数(按钮)>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Private Sub Get_Count_BT_Click()
Dim s As Longrs.CursorLocation = adUseClient    '参考①rs.Open "Select * From test", CN, 1, 1 '参考②    配合RecordCount
Text2.Text = rs.RecordCount '读取所有记录条数rs.CloseEnd 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、添加控件到窗口。

3、绑定数据库。

4、填写数据库用户名与密码。

5、设定记录源（对应表的数据）

VB运行结果图示：

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

扫码下方二维码关注本人公众号分享编程相关知识不限语言和工具软件，学术无界限。

工众号回复【我要资源】免费获取，获取更多学习资源及视频教程 (Linux\Python\Java和大数据开发)。

微信号：yang10242019

   邮箱：898109004@qq.com

VB读写远程Mysql数据库相关推荐

vb链接远程mysql数据库代码_vb链接远程mysql数据库代码
{"moduleinfo":{"card_count":[{"count_phone":1,"count":1}],&q ...
php 不可以连接远程mysql数据库
php 不可以连接远程mysql数据库进入 /etc/selinux more config # This file controls the state of SELinux on the sys ...
[CentOS Python系列] 四.阿里云服务器CentOS连接远程MySQL数据库及pymsql
从2014年开始,作者主要写了三个Python系列文章,分别是基础知识.网络爬虫和数据分析. Python基础知识系列:Pythonj基础知识学习与提升 Python网络爬虫系列:Python爬虫之S ...
jdbc mysql 远程数据库_jdbc 连接远程mysql数据库的有关问题
jdbc 连接远程mysql数据库的问题我使用客户端软件如mysql-front连接远程mysql数据库正常, 但是在项目代码里使用这个远程数据库后,tomcat启动时,update表正常,启动后进 ...
导出远程mysql数据库中的表_shell脚本实现导出远程mysql数据库表数据至本地
bin/main.sh脚本内容 #!/bin/bash #作用:用于同步远程mysql数据库表数据至本地 #作者:丁艺博 source /etc/profile source ~/.bash_prof ...
mysql远程一会不用卡住_连接远程MySQL数据库项目启动时，不报错但是卡住不继续启动的，...
连接远程MySQL数据库项目启动时,不报错但是卡住不继续启动的, 2018-03-12 17:08:52.532DEBUG[localhost-startStop-1]o.s.beans.factor ...
从shell命令行推送数据到远程MySQL数据库
由于工作需要,今天捣鼓了半天把本地的数据推送到远程MySQL数据库,放一个清新版的命令,如下: mysql -h{服务器地址} -p{端口} -u{用户名} -p{密码} -e "LOAD ...
通过ip地址访问操作远程Mysql数据库
通过ip地址访问操作远程Mysql数据库(数据库学习笔记 (三)) 可能使用的工具· 问题描述远程数据库配置本地连接可能使用的工具· Navicat Premium XXX版本各类数据库(仅以 ...
navicat无法连接远程mysql数据库_[数据库]Navicat Premium 解决无法连接远程mysql数据库问题...
[数据库]Navicat Premium 解决无法连接远程mysql数据库问题 0 2018-07-18 00:00:15 问题原因 : 第一点远程服务器数据库没有授权第二点远程连接数据库的端 ...
利用SSH隧道连接远程MySQL数据库
文章目录一.前言二.MySQL服务端三.MySQL客户端 1.通过navicat工具利用SSH隧道连接MySQL数据库 2.手动建立端口转发规则(以linux为例) 3.使用jsch进行端口转发 ...

VB读写远程Mysql数据库

`扫码下方二维码关注本人公众号`分享编程相关知识不限语言和工具软件，学术无界限。

工众号回复【我要资源】`免费获取`，获取更多学习资源及视频教程 (Linux\Python\Java和大数据开发)。

VB读写远程Mysql数据库相关推荐

最新文章

热门文章

VB读写远程Mysql数据库

扫码下方二维码关注本人公众号分享编程相关知识不限语言和工具软件，学术无界限。

工众号回复【我要资源】免费获取，获取更多学习资源及视频教程 (Linux\Python\Java和大数据开发)。

VB读写远程Mysql数据库相关推荐

最新文章

热门文章

`扫码下方二维码关注本人公众号`分享编程相关知识不限语言和工具软件，学术无界限。

工众号回复【我要资源】`免费获取`，获取更多学习资源及视频教程 (Linux\Python\Java和大数据开发)。