vb怎么连接数据库(VB如何调用MySQL数据库：快速上手教程)
一、vb连接mysql数据库相关问题
If rs("userid")<> Text2 Then这个条件错了啊
text2你这应该是密码框吧，怎么使用rs("userid")来相等呢！同时，你上面使用的是
SQL="select* from uc_members where username='"& Text1.Text&"' and password='"& Text2.Text&"'"
如果用户名和密码都存在一条记录中，那么这个用户就代表存在了，所以你可以使用下面的条件
if rs.eof then意思就是说如果找不到符合用户名和密码的用户则认为密码错误，反之则登录成功！
二、vb的ADO控件如何连接操作MYSQL数据库啊
由于ADO对象不直接支持MySQL,所以必须先安装MyODBC,后者也是一个免费产品，在 www.mysql.org上有下载，安装好了MyODBC,就可以在ODBC数据源管理中配置一个数据源名称，把它指向你想连接的MySQL数据库。代码如下：Sub connectMySQL()'通过MyODBC去连接MySQL数据库，并将Microsoft SQL Server 7'的数据转进mysql中 Dim sConnect As String, sSql As String, i As Long Dim cnMSSQL As New ADODB.Connection Dim cnMySQL As New ADODB.Connection'声明并创建对象连接 Dim rs As New ADODB.Recordset'声明并创建对象记录集 Dim cm As New ADODB.Command'声明并创建对象命令 sConnect="dsn=mysql1"'指定MySQL的数据源名称 cnMySQL.Open sConnect'连接到 mysql sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=softdown;Data Source=ntserver"'连接到 ms sql server 7 cnMSSQL.Open sConnect'sSql="create table softinfo(softNum smallint,softname varchar(70),softdesc blob,"& _"softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1),"& _"softdown smallint(4))"'创建新的MySQL数据表语句 sSql="select* from softinfo order by softnum" rs.Open sSql, cnMSSQL, 1, 1 While Not rs.EOF sSql="insert into softinfo values("& Trim(rs(0).Value)&",'"& Trim(rs(1).Value)& _"','"& Trim(rs(2).Value)&"','"& Trim(rs(3).Value)&"','"& Trim(rs(4).Value)& _"','"& Trim(rs(5).Value)&"',"& Trim(rs(6).Value)&","& Trim(rs(7).Value)&")" cm.ActiveConnection= cnMySQL cm.CommandType= adCmdText cm.CommandText= sSql cm.Execute rs.MoveNext Wend rs.Close Set rs= Nothing cnMySQL.Close Set cnMySQL= Nothing cnMSSQL.Close Set cnMSSQL= Nothing End Sub
三、如何用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