精华内容
下载资源
问答
  • VB连接MYSQL数据的方法

    2021-02-07 15:41:37
    第二步:安装mysql-connector-odbc-5.1.6-win32.msi第三步:运行VB并新建一标准EXE工程, 通过菜单 工程->引用 打开”引用”对话框, 找到 Microsoft ActiveX Data Objects x.x Library , 其中 x.x 是版本号, 可能...

    第二步:安装mysql-connector-odbc-5.1.6-win32.msi

    第三步:运行VB并新建一标准EXE工程, 通过菜单 工程->引用 打开”引用”对话框, 找到 Microsoft ActiveX Data Objects x.x Library , 其中 x.x 是版本号, 可能会有很多个, 这里我选择的是 2.5

    第四步:打开代码窗口, 在 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 = ""

    db_data = "erqiuda"

    ' 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.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

    分享到:

    18e900b8666ce6f233d25ec02f95ee59.png

    72dd548719f0ace4d5f9bca64e1d7715.png

    2010-07-20 15:15

    浏览 1738

    分类:数据库

    评论

    展开全文
  • 在尝试连接数据库之前, 需要简单说明一下连接数据库的两种最常见的方式: 一...下面的例子就是通过 ADODB 连接 MySQL 数据库:首先, 运行VB并新建一标准EXE工程, 通过菜单 工程->引用 打开”引用”对话框, 找到 Mic...

    在尝试连接数据库之前, 需要简单说明一下连接数据库的两种最常见的方式: 一种是通过建立 DSN 来连接, 这种比较麻烦, 程序移植性差; 我一般采取利用 ADODB 连接数据库的方式, 这种比较灵活方便, 不需额外工作, 方便程序移植.

    下面的例子就是通过 ADODB 连接 MySQL 数据库:

    首先, 运行VB并新建一标准EXE工程, 通过菜单 工程->引用 打开”引用”对话框, 找到 Microsoft ActiveX Data Objects x.x Library , 其中 x.x 是版本号, 可能会有很多个, 这里我选择的是 2.5(如图)

    单击”确定”关闭对话框, 这样就在工程中引入了 ado(ActiveX Data Objects), 然后双击Form设计窗体, 打开代码窗口, 在 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 = "yourUsername"

    db_pass = "yourPassword"

    db_data = "yourDatabase"

    ' 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 * from table1"

    rs.Open sql, cn

    MsgBox rs.recordCount

    很简单吧, 剩下的就和操作其他数据库一样了, 最大的区别就在于一些 SQL 语句上.

    展开全文
  • VB连接MYSQL数据的步骤

    2021-04-28 01:48:57
    VB连接MYSQL数据的方法第一步:上网http://dev.mysql.com/downloads/connector/odbc/下载mysql-connector-odbc-5.1.6-win32.msi第二步:安装mysql-connector-odbc-5.1.6-win32.msi第三步:运行VB并新建一标准EXE工程...

    VB连接MYSQL数据的方法

    第一步:上网http://dev.mysql.com/downloads/connector/odbc/下载mysql-connector-odbc-5.1.6-win32.msi

    第二步:安装mysql-connector-odbc-5.1.6-win32.msi

    第三步:运行VB并新建一标准EXE工程, 通过菜单 工程->引用 打开”引用”对话框, 找到 Microsoft ActiveX Data Objects x.x Library , 其中 x.x 是版本号, 可能会有很多个, 这里我选择的是 2.5

    第四步:打开代码窗口, 在 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 = ""

    db_data = "erqiuda"

    ' 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.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

    展开全文
  • 该楼层疑似违规已被系统折叠隐藏此楼查看此楼PublicconstrAsString'声明全局变量,用于传递数据库控件的连接字符串PublicnAdoRecAsNewADODB.Recordset'声明全局变量,ADO对象模型的结果集对象PublicnAdoConAsADODB....

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

    Public constr As String '声明全局变量,用于传递数据库控件的连接字符串

    Public nAdoRec As New ADODB.Recordset '声明全局变量,ADO对象模型的结果集对象

    Public nAdoCon As ADODB.Connection '声明全局变量,ADO对象模型的连接对象

    Public UserName As String '声明全局变量,传递登陆用户的名称

    Public password As String '声明全局变量,传递登陆用户的密码

    Public yhgl As Boolean '声明全局变量,传递用户的用户管理权限

    Public sqzf As Boolean '声明全局变量,传递用户的申请住房权限

    Public zfxx As Boolean '声明全局变量,传递用户的住户住房信息权限

    Public zhgx As Boolean '声明全局变量,传递用户的住户家庭关系权限

    Public Sub main()

    frmFlash.Show '显示展示窗体

    '设置连接字符串值

    constr = "Provider=Micorosoft.Jet.OLEDB.4.0;Data Source=" & App.Path & " \教师住房系统.mdb;Persist Security info=False"

    '载入其他窗体

    Load frmLogin

    Load frmMain

    '设置ADO对象的数据

    nAdoCon.ConnectionString = constr

    Adodc1.RecordSource = "SELECT * FROM 教师住房系统 "

    Adodc1.Refresh

    nAdoCon.Open.constr , "admin" '打开ADO对象

    If nAdoCon.State <> 1 Then '连接失败

    MsgBox "数据库连接失败1", vbInformation + vbOKOnly, "错误" '给出错误信息

    Exit Sub

    End If

    End Sub

    这是相应代码。。

    应该和代码没关系�

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

    2021-05-06 02:26:06
    Option ExplicitPublic cn_base As New ADODB.ConnectionFunction conn_base() ' 公共的函数 用来获取数据库的连接Err.ClearOn Error Resume NextIf cn_base.State <> 0 Thencn_base.CloseEnd Ifcn_base....
  • 【方法举例】你可以采用“vb+asp+数据库”的结构来设计,即vb代表客户端、asp作为连接客户。为什么我设置ADODC控件时选择指定用户名称和密码时怎么老是连不上,如。vb连接sql模块。直接拿去用吧。 public conn as ...
  • 展开全部Visual Basic作为应用程序的开发...但即便如此,数据库应用程序的开发仍然算得上是VB编程的难点,这是因为你不仅要熟悉VB中关于数据库编程方面的知识(当然这是十分简单的)还要了解数据库的知识。所以...
  • 在笔者参与的四川省重点污染源企业环境远程监控系统,有一项非常重要的工作:将多达80台的远程DVS(视频服务器)的监测数据通过因特网传输,由上位机收集上来,写入SQL Server 2005数据库。远程数据每隔一分钟...
  • 选择与自己操作系统对应的版本(前提是你安装了MYSQL)2 安装完成之后,搜索数据源,你可以发现刚才装好的MYSQL ODBC驱动3 新建一个VB6的工程,引用microsoft activex data objects 2.8 library4 在这个VB6的工程,...
  • 本程序使用ASP.NETVB.NET编写,通过连接SQL server数据库,实现了对数据表的操作 2.程序所能实现的功能: 管理员登录:具有查询学生信息、录入学生信息、录入课程、录入课程成绩、具有重置所有身份人员密码的...
  • VB.net 操作API函数的声明方式和数据封送 现在用VB的人越来越少了,有些东西只能从C#上迁移过来。而我作为一个VB爱好者,现在正打算从VB6.0迁移到VB.NET。 第一次写博客,不怎么会,但是又想把自己所探索到的...
  • VB6 用ODBC连接数据库

    千次阅读 2017-01-12 16:13:14
    遇到的问题一:调用Dim hdbc As Long '连接句柄 rc = SQLAllocConnect(henv, hdbc) '获取连接句柄 MsgBox rc If rc <> 0 Then MsgBox "无法获取连接句柄" rc = SQLFreeEnv(henv) ...原因是在声明里(Module.ba
  • VB与数据库连接

    千次阅读 热门讨论 2017-06-25 17:05:12
    首先我们在学习完VB课本后肯定了解了有四种连接数据库的方式(data 控件、DAO对象、ADO data控件、ADO对象),其中的差别和联系这里就不一一介绍了,然后后面我们通过红皮书又了解到了OLE DB和ODBC,这又是什么鬼,...
  • VB连接Mysql数据库

    2021-04-28 01:47:59
    当然机器装有mysql数据库然后下载安装Mysql,odbc驱动须要加入... 或者简单点找到ado控件 扔到窗体上 再删除 也行在vb中连接数据库的代码:Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordset' 定义数据...
  • vb.netSocket多客户端连接初试

    千次阅读 2019-01-22 22:49:12
    Imports System.Net Imports System.Net.Sockets Imports System.Threading Imports System.Text Imports System.Collections.Generic ... '声明一个线程,用于和客户机通讯 Dim LinkThread As Thread ...
  • 声明 我也是个初学者,我会把自己觉得有用的小的技巧总结一下,觉得有用的可以看看,小白也可以看一下,学习一下,有大佬可以赐教的话更好!不喜勿喷谢谢! 声明 * 设计视图,运行截图如下:
  • '==========================================================================='用法:'1、在程序所在目录建立Setup.ini'2、在ini文件添加如下信息:'[Setup Information]'Server = 服务器名'UserName = 用户名'...
  • 连接数据库问题用户定义类型未定义【vb6】0Dim cnnImage As NewADODB.ConnectionDim rsImage As New ADODB.RecordsetDim strSql As StringDim Chunk() As ByteDim lngLengh As LongDim intChunks As IntegerDim ...
  • VB中如何对所连接的数据库进行添加、更新和删除数据操作呢??? 插入新数据: INSERT INTO 语句,所需做的是声明想向哪个表插入数据、向哪一列插入数据,以及插入什么数据,基本语法如下: INSERT INTO ...
  • 1.声明数据库连接对象 Option Explicit Public cn As New ADODB.Connection Public rs As New ADODB.Recordset 2.打开/关闭数据库 Public Sub OpenSQL() '打开数据库SQL Set ...
  • VB数据库连接之二(数据连接

    千次阅读 2013-05-25 09:54:00
    VB数据库连接之二(数据连接
  • 利用 WinSock 控件可以与远程计算机建立连接,并通过用户数据文报协议 (UDP)或者传输控制协议 (TCP)进行数据交换。这两种协议都可以用来创建客户与服务器应用程序。与 Timer 控件类似,WinSock 控件在运行时是不可见...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 14,211
精华内容 5,684
关键字:

vb中声明数据连接