vb连接sql数据库简单实例,vb与sql数据库连接
VB 用ADODB连接SQL数据库.
SQL数据库连接不用路径的
在你计算机上安装SQLServer2000或更高版本，然后附件数据库文件ADB
配置你的ADODB的ConnectionString属性，连接服务器为127.0.0.1，验证设置为windows验证，默认数据库设置为你的数据库名称，测试连接通过，完成。
vb中我是用adodc控件连接sql数据库如何用sql语句实现查询功能？
adodc控件内含一个记录集对象，可以用来操作数据。
你可以直接用这个属性修改数据：
adodc1.recordsource=你的SQL查询语句
然后刷新数据：
adodc1.refresh
或者
adodc1.requery
并用adodc1.recordset来访问获取的数据
VB中如何连接一个数据库
工程-引用-Microsoft ActiveX Data Ojbects 2.0 Library
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=d:\abc.mdb"
conn.Open
如果不报错就表明数据库连接成功！
vb连接数据库
Private Sub Command1_Click()
Dim mCnnStr As satrin
Dim cCnn As New ADODB.Connection
Dim mStr As String
Dim mRst As New ADODB.Recordset
'连接SQL数据库
mCnnStr = "UID=sa;PWD=;Driver={SQL Server};Server=SQL服务器名;Database=数据库名;dsn= ,,Connection=adConnectAsync"
cCnn.ConnectionString = mCnnStr
cCnn.Open
'打开表
mStr = "select * from 表名"
mRst.Open mStr, cCnn, adOpenKeyset, adLockReadOnly
If mRst.RecordCount 0 Then
'这里是读出的SQL数据，可用MoveFirst，MoveLast，MoveNext等命令操作数据集
End If
If cCnn.State = adostateopen Then cCnn.Close: Set cCnn = Nothing
If mRst.State = adostateopen Then mRst.Close: Set mRst = Nothing
End Sub
=======================================================
不用控件，因为控件编程不灵活，而且效率不高，全用代码，只要在工程——引用“Microsoft Data Access - ActiveX Data Objects”库就可以了。
如何用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