vb 数据库 mysql、vbs 数据库

本文目录：

• 1.VB专家来了，VB连接mysql数据库，如何向数据库写入数据！
• 2.如何在vb中连接并运行MYSQL数据库
• 3.我想用VB运行mysql数据库。是否可以？
• 4.如何使用vb连接mysql数据库
• 5、VB连接MySQL数据库报错：未找到数据源名称，未定义默认驱动程序。请帮忙~~谢谢！ ！ MySQL 版本是 8.0

VB高手来了，VB连接mysql数据库，如何向数据库写入数据！

您必须安装mysql驱动程序。 vb 和 c++ 需要此驱动程序。

代码如下所示：

public

function

exemysql(byval

sql

as

string)♾♾♾

️ set

conn

=

new

adodb.connection

set

new

Adodb.recordset

conn.open

“驱动程序= mysql

odbc

3.51

驱动程序；”

_

"服务器=服务器地址=

_

"端口=3306;"

_

"数据库=名称数据库;"

_

"uid =用户名;"

_

"p conn.defaultdatabase

=

"名称数据库"

conn.cursorlocation

=

adusclient

set

set♾♾nrs.

rs.locktype

=

adlockbatchoptimistic

rs.cursortype

=

adopenkeyset

rs.open

sql sqlsql=

rs

设置

rs

=

无

设置

conn

=

无 ♾功能

如何连接vb运行MySQL数据库

您必须安装 MYSQL 驱动程序。 VB 和 C++ 需要此驱动程序。代码如下： Public Function exemysql(ByVal sql As String) As ADODB.Recordset sql = Trim$(sql) Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.Open "Driver=MySQL ODBC 3.51 Driver ;“ _“服务器=服务器地址；” _“端口=3306；” _“数据库=数据库名称；” _“UID=用户名；” _ "Pwd=password" conn.DefaultDatabase = "窗口名称" conn.CursorLocation = adUseClient Set rs.ActiveConnection = conn rs.LockType = adLockBatchOptimistic rs.CursorType = adOpenKeyset rs.Open sql = Sets Exes Nothing End Function

我想要用vb运行mysql数据库可以吗

是的，没有问题。

参考：

强选项

导入MySql.Data.MySqlClient

模块示例

Sub Main()

=Dm csata As String Source=Dm csata As String "

"用户 ID=testuser;密码=test623"

将 conn 调暗为新的 MySqlConnection(cs)

尝试

conn.Open()

VersiLine 控制台 :(MySqlConnection(cs)

0} ", conn.服务器版本)

Catch ex As MySqlException

Console.WriteLine("错误：" ex.ToString())

End

conn.Close()

End Try

End Sub

End Sub 如何连接mysql数据库到vb ？步骤 1：安装 mysql-connector-odbc-5.1.6-win32.msi

步骤 3：运行 VB 并创建一个新的自定义 EXE 项目，通过“项目”菜单-“参考”打开“参考”对话框，找到MicrosoftActiveX Data Objects x.x Library ，其中xx是版本号，可能有很多，这里我选择2.5

第四步：打开代码窗口，在Form_Load步骤中输入如下代码（代码中有特别说明） comments):

Vb 代码

' 定义并创建到数据库的连接并输入对象

Dim cn to New ADODB.Connection

Dim rs As New ADODB.Recordset

' 定义数据库连接字符串变量 Dim strCn As String

' 定义数据库连接结构体变量

Dim db_host As String

Dim db_user As String

Dim db_pass As String SQL 语句好变量

Dim sql As String

' 初始化数据库连接变量

db_host = "localhost"

db_user = "root"

db_pass = "_" = "_" ' MySQL ODBC 连接参数

'+----------------+--------------------+--------- - - -- --------------------------------+

'|参数名称 |默认值|描述 |

'+------------+-------------------------------- - ----------------------------------+

'|用户 | ODBC（在 Windows 上）| MySQL 用户名 |

'|服务器|本地主机 | MySQL服务器地址|

'|数据库| |默认数据库连接 |

'|选项| 0 |用于定义连接如何工作的参数 |

'|港口| 3306|通讯端口|

'| smt | |连接数据库后可以执行的语句 |

'|密码 | | MySQL 用户密码 |

'|插座| | （已删除）|

'+------------+--------------------+--------- -- -- ----------------------+

' 详情请参阅官方说明

'

strCn = "DRIVER={ MySQL ODBC 5.1 Driver} ;” _

“服务器=”db_host“;” _

“数据库=”db_data“;” _

“UID=”db_user”;PWD=”db_pass”;” _

"OPTION=3;stmt=SET NAMES GB2312"

' stmt=SET NAMES GB2312

' 这句话是设置数据库格式

' 需要安装在操作系统上句子是中文的。 GB2312

'避免中文

'版本出现问题需要mysql 4.1+

'连接数据库

cn。打开 strCn

' 加载此文件并计算此属性。

cn.CursorLocation = adUseClient

' 加入表用户

sql = "select * from users"

rs.打开sql，cn

Ms.Records。 B 连接MySQL数据库时，错误提示找不到数据源名称，默认驱动未定义。解决办法~~谢谢！ ！ MySQL 版本为 8.0

《MySQL 8.0.17》百度网盘免费下载源码：

链接：

?pwd=988a 提取码：988a

MySQL 8.0.17是使用最广泛的开放语言关系数据库管理系统数据库管理-SQL结构化查询数据库管理语言。 MySQL 8.0.17改进了SQL查询算法，提高了查询速度；支持多线程，充分利用CPU资源，支持多用户；并提供用于管理、验证和改进数据库操作的管理工具。由于其体积小、速度快、总体拥有成本低等特点，被当今互联网上的中小型网站广泛使用。