精华内容
下载资源
问答
  • VB 连接数据库 完整实例,可以直接写sql来操作数据,不过要小心操作!
  • vb 连接 MySQL实例

    2014-11-28 00:10:00
    VB连接MySQL实例,包含最新的MySQL驱动,代码有在Visual Basic 6.0下测试通过
  • VB6连接MySQL数据库实例含驱动,适用 初学者
  • VB6.0连接MySQL数据库

    2015-08-20 20:20:26
    新手使用VB6.0连接MySQL数据库,资料出自原创,思路清晰,步骤详细!
  • VB连接MySQL实例

    热门讨论 2010-08-04 17:58:37
    VB连接MySQL实例,包含最新的MySQL驱动,代码在Visual Basic 6.0下测试通过
  • VB连接MySQL数据库模块(详解)

    万次阅读 2015-12-16 16:40:58
    '需要安装 MySQL 的 ODBC 驱动,官网上有,我的是 Connector ODBC 5.1 '先引用 Microsoft ActiveX Data Objects 6.0 Library 我的是 6.0,用最新的就行 Public conn As ADODB.Connection Public rs As ADODB....

    Option Explicit

    '需要安装 MySQL 的 ODBC 驱动,官网上有,我的是 Connector ODBC 5.1
    '先引用 Microsoft ActiveX Data Objects 6.0 Library 我的是 6.0,用最新的就行

    Public conn As ADODB.Connection
    Public rs As ADODB.Recordset
    Public fld As ADODB.Field

    Public Sub connOpen()
      Set conn = New ADODB.Connection
      conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};" & _
        "SERVER=localhost;" & "UID=用户名;PWD=密码;OPTION=3"
        '注意ODBC驱动版本号,现在最新的 MySQL 5.4 + ODBC 5.1
        '另外可以有 DATABASE=XX,或者在程序里使用 use database 语句
        'OPTION是什么作用不知道,我这里可以不写
      conn.Open
      Set rs = New ADODB.Recordset
      rs.CursorLocation = adUseClient   '游标位置(数据集存在服务器内存还是客户端内存)
    End Sub

    Public Sub connClose()
      rs.Close
      conn.Close
    End Sub

     常用语句
     conn.Execute "drop database db_vb"
     conn.Execute "create database db_vb"
     conn.Execute "use db_vb"
     conn.Execute "create table test (id int primary key,name char(8) not null)"
     conn.Execute "insert into test value (1,'abc')"
     conn.Execute "insert into test value (2,'xyz')"
     执行查询
     rs.Open "select * from test", conn
     读取数据集
     Debug.Print rs.RecordCount '数据集数量
     rs.MoveFirst
     For Each fld In rs.Fields
       Debug.Print fld.Name,  '列标题
     Next
     Debug.Print
     Do Until rs.EOF
       For Each fld In rs.Fields
         Debug.Print fld.Value,
       Next
       rs.MoveNext
       Debug.Print
     Loop

    展开全文
  • VB连接mysql数据库.rar

    2020-06-28 15:04:13
    visual basic 6.0连接MySQL数据库实例,含最新驱动,代码已测试通过,适合新手快速上手
  • VB连接Mysql数据库

    万次阅读 2012-01-06 15:14:55
    当然机器装有mysql数据库 然后下载安装Mysql,odbc驱动 需要添加ado'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object.... 或者简单点找到ado控件 扔到窗口上 再删除 也行   在vb连接数据库的代码: ...

    当然机器装有mysql数据库

    然后下载安装Mysql,odbc驱动

    需要添加ado'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object.... 或者简单点找到ado控件 扔到窗口上 再删除 也行


     

    在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 = "root" ’用户密码
    db_data = "radio" '数据库名
    
    
    ' MySQL ODBC 连接参数
    '+------------+---------------------+----------------------------------+
    '| 参数名     | 默认值               | 说明                             |
    '+------------+------------------------------------------------------–+
    '| user       | ODBC (on Windows)   | MySQL 用户名                     |
    '| server     | localhost           | MySQL 服务器地址                 |
    '| database   |                     | 默认连接数据库                   |
    '| option     | 0                   | 参数用以指定连接的工作方式       |
    '| port       | 3306                 | 连接端口                         |
    '| stmt       |                     | 一段声明, 可以在连接数据库后运行 |
    '| password   |                     | MySQL 用户密码                   |
    '| socket     |                     | (略)                             |
    '+------------+---------------------+----------------------------------+
    
    
    ' 详细查看官方说明
    ' http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html
    
    
    strCn = "DRIVER={MySQL ODBC 3.51 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
    
    
    ' 访问表 table1
    sql = "select nicheng,xinqing from nichengandxinqing where uid='1'"
    rs.Open sql, cn
    
    Dim nicheng As String
    Dim xinqing As String
    
    
    '加载用户昵称
    nicheng = rs.Fields(0)
    Label1.Caption = nicheng
    
    
    '加载用户心情短语
    xinqing = rs.Fields(1)
    Label2.Caption = xinqing
    '鼠标放在心情短语提示短语详细信息
    Label2.ToolTipText = xinqing
    
    '加载网络图片
    Image1.Picture = LoadPicture("http://hi.csdn.net/attachment/201201/5/8747069_1325751084ZiD4.jpg")


    展开全文
  • VB 连接mysql数据库

    千次阅读 2011-08-10 17:20:13
    1.使用xamp自带的mysql数据库 2,下载mysql-connector-odbc-3.51.28-win32.msi,添加数据源conn 配置如下       3.打开xamp控制面板,运行apache,mysql服务   4,键入localho

     1.使用xamp自带的mysql数据库

    2,下载mysql-connector-odbc-3.51.28-win32.msi,添加数据源conn 配置如下

     

     

     

    3.打开xamp控制面板,运行apache,mysql服务

     

    4,键入localhost,进入管理页面,添加sohard数据库,并在sohard数据库下添加user表,在表中写入一条记录,用户名wangyang

     

    5,新建VB项目,键入如下代码

    Private Sub Command1_Click()

    ' 定义并创建数据库连接和访问对象
    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
    Dim db_result As String


    ' 定义 SQL 语句变量
    Dim sql As String

    ' 初始化数据库连接变量
    db_host = "127.0.0.1"
    db_user = "root"
    db_pass = ""
    db_data = "sohard"


    strCn = "DRIVER={MySQL ODBC 3.51 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 UName from dh_user"
     rs.Open sql, cn
    MsgBox rs.Fields(0)

     


    End Sub

    Private Sub Command2_Click()
    Unload Me
    End Sub

    Private Sub Form_Load()
    Text1.Text = "127.0.0.1"
    Text2.Text = "3306"
    Text3.Text = "root"
    Text4.Text = ""
    Text5.Text = "sohard"

    End Sub

     

    6,运行结果如下

     

    展开全文
  • VB6 如何连接MYSQL数据库

    千次阅读 2017-03-22 16:45:00
    1 从官网下载MYSQL的ODBC,选择与自己操作系统对应的版本(前提是你安装了MYSQL) http://dev.mysql.com/downloads/connector/odbc/ ... 3 新建一个VB6的工程,引用microsoft activex data objects 2.8...

    1 从官网下载MYSQL的ODBC,选择与自己操作系统对应的版本(前提是你安装了MYSQL)

    http://dev.mysql.com/downloads/connector/odbc/

     

    2 安装完成之后,搜索数据源,你可以发现刚才装好的MYSQL ODBC驱动

     

    3 新建一个VB6的工程,引用microsoft activex data objects 2.8 library

     

    4 在这个VB6的工程中,复制粘贴以下代码(所有代码都在Form_Load中,不需要做别的什么按钮,控件),其中红色部分是你需要修改的代码

    Private Sub Form_Load()

     

    ' 定义并创建数据库连接和访问对象

    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

    ' 能连接得上数据库(即便主机端口是8080,也没事)

    ' 初始化数据库连接变量

    '连接的主机名

    db_host = "localhost"

    '连接的用户名

    db_user = "root"

    '连接的密码

    db_pass = "123456"

    '连接的表名

    db_data = "vb_test"

     

     

    ' MySQL ODBC 连接参数

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

    '| 参数名 | 默认值 | 说明 |

    '+------------+------------------------------------------------------–+

    '| user | ODBC (on Windows) | MySQL 用户名 |

    '| server | localhost | MySQL 服务器地址 |

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

    '| option | 0 | 参数用以指定连接的工作方式 |

    '| port | 3306 | 连接端口 |

    '| stmt | | 一段声明, 可以在连接数据库后运行 |

    '| password | | MySQL 用户密码 |

    '| socket | | (略) |

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

     

    ' 详细查看官方说明

    ' http://dev.mysql.com/doc/refman/5.0/en/myodbc-configuration-connection-parameters.html

    ' 数据源驱动要对的上(一个字都不能差!!!)

    strCn = "DRIVER={MySQL ODBC 5.2 ANSI 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

     

    ' 表要对的上

    ' 访问表 tg_user

    sql = "select * from tg_user"

    rs.Open sql, cn

    MsgBox rs.RecordCount

     

    End Sub

     

    5 然后就能连接上了(见本文最后附上的代码,包括了所有数据库的常见操作:插入,修改,查询,删除)

     

    Private Sub Form_Load()

     

    ' 定义并创建数据库连接和访问对象

    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 = "123456"

    '连接的表名

    db_data = "vb_test"

     

    ' MySQL ODBC 连接参数

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

    '| 参数名 | 默认值 | 说明 |

    '+------------+------------------------------------------------------–+

    '| user | ODBC (on Windows) | MySQL 用户名 |

    '| server | localhost | MySQL 服务器地址 |

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

    '| option | 0 | 参数用以指定连接的工作方式 |

    '| port | 3306 | 连接端口 |

    '| stmt | | 一段声明, 可以在连接数据库后运行 |

    '| password | | MySQL 用户密码 |

    '| socket | | (略) |

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

     

    strCn = "DRIVER={MySQL ODBC 5.2 ANSI 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

     

    ' 访问表 tg_user

    'sql = "select * from tg_user"

    'rs.Open sql, cn

    '返回所有记录的条数

    'MsgBox rs.RecordCount

     

    'cn现在就是SQL的操作对象,一切与数据库操作的都是cn的事情

     

    '插入数据 如果数据库已经存在主键,则主键不能重复!!!

    '如果这个字段是字符串,一定要加''

     

    'cn.Execute "INSERT INTO 表名 (字段名1,字段名2) values('数据1','数据2')"

    'cn.Execute "INSERT INTO tg_user(user_name,password) values('bbb','998877')"

    'cn.Execute "INSERT INTO tg_user(user_name,password) values('ccc','998877')"

    'MsgBox ("插入成功")

     

    '修改数据 如果没找到这个字段符合的记录,则自动结束,不会报错

    'cn.Execute "UPDATE tg_user set user_name='ddd' WHERE user_name= 'ccc'"

    '如果是变量,或者要更新的不止一条记录,则代码参考下面,没找到也不会报错

    'new_username = "eee"

    'new_password = "222222"

    'cn.Execute "UPDATE tg_user set user_name='" & new_username & "', password='" & new_password & "'WHERE user_name= 'ccc'"

    'MsgBox ("修改成功")

     

    '删除数据 如果没找到这个字段符合的记录,则自动结束,不会报错

    'cn.Execute "DELETE FROM tg_user WHERE user_name = 'ccc'"

    '如果是变量,则还是加'"& 变量名 &"'

    'new_username = "eee"

    'cn.Execute "DELETE FROM tg_user WHERE user_name = '" & new_username & "'"

    'MsgBox ("删除成功")

     

    '查询数据

    current_username = "abc"

    sql = "select * from tg_user"

    rs.Open sql, cn

    '返回取得的第一条记录,如果要输出这条记录的第一个字段,就是rs.Fields(0),第二个字段就是rs.Fields(1)

    'MsgBox ("user_name:" & rs.Fields(0))

    'MsgBox ("password:" & rs.Fields(1))

     

    '如果取得的不止一条记录,则用rs.MoveNext 让指针指向下一条记录

     

    While rs.EOF = False '如果EOF为真,则表示"游标"已经在最后一条记录后面。

    MsgBox ("user_name:" & rs.Fields(0) & "||password:" & rs.Fields(1))

    rs.MoveNext

    Wend

     

     

    End Sub

     

     

     

     

     

     

     

     

     

    展开全文
  • VB读写远程Mysql数据库

    千次阅读 2019-05-05 15:34:12
    测试的远程MySQL数据库IP及端口: IP:192.168.1.88 端口:3306 测试的MySQL账号密码和数据库名: 用户名:kormee 密码:kormee123 数据库:kormee_data 我在linux服务器端创建的数据库kormee_data 的test表内容如下...
  • VB6 连接MySql数据库

    2019-10-03 11:21:18
    目测 VB6 的资料比较少了,花了好久时间写了个查询语句 首先下载驱动程序,我是win7 x64 不知道刚开始下载了一个5.1 x64的驱动为什么连接不上,总提示找不到驱动,下载5.3 32位后正常 ...
  • 1.vb.net连接mysql库源码 2.连接后如何添加数据、如何修改数据,如何删除数据。 3.如何增加、删除表格
  • Echarts连接数据库实例

    2019-06-13 22:56:22
    连接数据库使用Echarts插件实现可视化的小例子。使用的技术是java+servlet+mysql。项目代码压缩包中包含.sql数据库文件,开发环境是myeclipse。
  • 文件夹内有图片示例可以参考。。。
  • 内附有vb连接mysql DataGrid实例详细说明,按照文字操作,适合初学者。
  • vb.net-连接数据库实例

    千次阅读 2013-04-08 17:13:29
    Imports System.Data.OleDb Imports System.Data Public Class Class1  Inherits System.Windows.Forms.Form  Public ADOcmd As OleDbDataAdapter ... Public ds As DataSet = New DataSet() '建立DataSe
  • vb 连接数据库后对数据的增加,删除,更新实例,对刚开始学习VB的会有很有用
  • vb6通过ODBC连接mysql数据库

    千次阅读 2011-05-09 09:43:00
    我一般采取利用 ADODB 连接数据库的方式, 这种比较灵活方便, 不需额外工作, 方便程序移植. 下面的例子就是通过 ADODB 连接 MySQL 数据库: 首先, 运行VB并新建一标准EXE工程, 通过菜单 工程->引用 打开”...
  • VB6通过ADO连MySql数据库,调用带参数的存储过程。
  • vb.net操作mysql[连接,增删改查]

    热门讨论 2014-11-28 10:55:15
    vb.net操作mysql的详细示例,看到这里,可以使你三天的摸索时间,值了。 介绍了mysql的图形化工具,甚至给出了表结构。...本示例使用vb.net操作mysql,包括连接数据库,增加,删除,修改等所有操作,适合新手快速上手.
  • VBS中连接Mysql数据库方法

    千次阅读 2017-08-04 14:35:40
    (1) 首先给出连接数据库VB代码 Dim adoConn ‘定义ADO连接对象 Dim ConnectionStr ‘定义数据库连接字符串 ‘获取数据库连接字符串 ConnectionStr = “DSN=Mysql;DESCRIPTION={?????};SERVER=192.168.94.71;...
  • vb 数据库操作实例,包括对数据库的链接,写入、读取、删除等操作,有具体实例代码。
  • VB.net三层架构使用三层结构开发数据库应用系统教程PPT,VisualStudio2008创建
  • vb.net 编程实例 数据库 sql access 学生名册管理系统 基于vb。net的人事管理系统 数据库管理系统 图书管理系统实例
  • 打开VB6.0,新建工程SQL_data,新建一个EXE,并添加一个模块。如图 。 一:添加引用和部件(如下两图)蓝色的两个,是要选中打勾的。 注意,一个是“引用”,一个是“部件”。 二:添加一个模块 Data_Sql,并把图下面...
  • 主要介绍了vs2019 下用 vb.net编写窗体程序连接 mongodb4.2,本文通过实例代码给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下
  • VB6.0 SqlServer数据库备份还原程序,你可以附加的数据库文件路径--(支持拖放),mdf和ldf文件存放的路径要对应LDF文件,需要你填写在SQL中还原的数据库的名字。操作方法:打开后首先需要连接数据库,不然会提示没有...
  • 28个目标文件 内容索引:JAVA源码,媒体网络,飞鸽传书 Java局域网通信——飞鸽传书源代码,大家都知道VB版、VC版还有Delphi版的飞鸽传书软件,但是Java版的确实不多,因此这个Java文件传输实例不可错过,Java网络编程...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,593
精华内容 1,037
热门标签
关键字:

vb连接mysql数据库实例

mysql 订阅