vb数据库mysql,vbs 数据库

发布时间:2022-11-24

本文目录一览:

  1. vb高手进,vb连接mysql数据库,怎么把数据写入数据库!
  2. vb如何连接操作MYSQL数据库
  3. 我想用vb操作mysql数据库,可行否
  4. 如何用vb连接mysql数据库
  5. [VB 连接MySQL数据库 报错 未发现数据源名称且未指定默认驱动程序 求解~~感谢!!MySQL是8.0版本的](#VB 连接MySQL数据库 报错 未发现数据源名称且未指定默认驱动程序 求解~~感谢!!MySQL是8.0版本的)

vb高手进,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;"
_
"server=服务器地址;"
_
"port=3306;"
_
"database=数据库名;"
_
"uid=用户名;"
_
"pwd=密码"
conn.defaultdatabase
=
"数据库名"
conn.cursorlocation
=
aduseclient
set
rs.activeconnection
=
conn
rs.locktype
=
adlockbatchoptimistic
rs.cursortype
=
adopenkeyset
rs.open
sql
set
exesql
=
rs
set
rs
=
nothing
set
conn
=
nothing
end
function

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;" _
    "Server=服务器地址;" _
    "Port=3306;" _
    "Database=数据库名;" _
    "Uid=用户名;" _
    "Pwd=密码"
    conn.DefaultDatabase = "数据库名"
    conn.CursorLocation = adUseClient
    Set rs.ActiveConnection = conn
    rs.LockType = adLockBatchOptimistic
    rs.CursorType = adOpenKeyset
    rs.Open sql
    Set exesql = rs
    Set rs = Nothing
    Set conn = Nothing
End Function

我想用vb操作mysql数据库,可行否

可以的,这个没有问题。 参考:

Option Strict On
Imports MySql.Data.MySqlClient
Module Example
    Sub Main()
        Dim cs As String = "Database=testdb;Data Source=localhost;" _
        "User Id=testuser;Password=test623"
        Dim conn As New MySqlConnection(cs)
        Try
            conn.Open()
            Console.WriteLine("MySQL version : {0}", conn.ServerVersion)
        Catch ex As MySqlException
            Console.WriteLine("Error: " ex.ToString())
        Finally
            conn.Close()
        End Try
    End Sub
End Module

如何用vb连接mysql数据库

VB连接MYSQL数据的方法 博客分类:

  • VB
  • VBMySQLSQLServerSQLSocket 第一步:上网下载mysql-connector-odbc-5.1.6-win32.msi 第二步:安装mysql-connector-odbc-5.1.6-win32.msi 第三步:运行VB并新建一标准EXE工程, 通过菜单工程-引用 打开”引用”对话框, 找到 MicrosoftActiveX Data Objects x.x Library , 其中 x.x 是版本号, 可能会有很多个, 这里我选择的是2.5 第四步:打开代码窗口, 在 Form_Load 过程中输入下面的代码(具体说明在代码的注释中): VB代码:
' 定义并创建数据库连接和访问对象
Dim cn As 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
Dim db_data As String
' 定义 SQL 语句变量
Dim sql As String
' 初始化数据库连接变量
db_host = "localhost"
db_user = "root"
db_pass = ""
db_data = "erqiuda"
' MySQL ODBC 连接参数
'+------------+---------------------+----------------------------------+
'| 参数名 | 默认值 | 说明 |
'+------------+------------------------------------------------------–+
'| user | ODBC (on Windows) | MySQL 用户名 |
'| server | localhost | MySQL 服务器地址 |
'| database | | 默认连接数据库 |
'| option | 0 | 参数用以指定连接的工作方式 |
'| port | 3306 | 连接端口 |
'| stmt | | 一段声明, 可以在连接数据库后运行 |
'| password | | MySQL 用户密码 |
'| socket | | (略) |
'+------------+---------------------+----------------------------------+
' 详细查看官方说明
strCn = "DRIVER={MySQL ODBC 5.1 Driver};" _
"SERVER=" & db_host & ";" _
"DATABASE=" & db_data & ";" _
"UID=" & db_user & ";PWD=" & db_pass & ";" _
"OPTION=3;stmt=SET NAMES GB2312"
' stmt=SET NAMES GB2312
' 这句是设置数据库编码方式
' 中文操作系统需要设置成 GB2312
' 这样中文才不会有问题
' 版本要求 mysql 4.1+
' 连接数据库
cn.Open strCn
' 设置该属性, 使 recordcount 和 absolutepage 属性可用
cn.CursorLocation = adUseClient
' 访问表users
sql = "select * from users"
rs.Open sql, cn
MsgBox rs.RecordCount

VB 连接MySQL数据库 报错 未发现数据源名称且未指定默认驱动程序 求解~~感谢!!MySQL是8.0版本的

《MySQL 8.0.17》百度网盘资源免费下载: 链接: ?pwd=988a 提取码: 988a MySQL 8.0.17是一种开放源代码的关系型数据库管理系统,使用最常用的数据库管理语言–结构化查询语言SQL进行数据库管理。MySQL 8.0.17优化了SQL查询算法,有效地提高查询速度;支持多线程,充分利用CPU资源,支持多用户;提供用于管理、检查、优化数据库操作的管理工具。由于其体积小、速度快、总体拥有成本低,目前被广泛地应用在Internet上的中小型网站中。