Question

Sql数据库和vb的连接

那个数据库连接的步骤按照您说的还是连接失败，希望能具体解说一下可以吗？那些参数具体怎么填

Answer 1

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

Answer 2

'使用ADODB对象，必须先进行对象模型的引用，步骤如下
'通过菜单[工程] -- [引用]，勾选 Microsoft ActiveX Data Object 2.6 Library
'Microsoft ActiveX Data Object 2.7 Library
'Microsoft ActiveX Data Object 2.8 Library
'都可以

完整的代码以及相关注释如下：（代码完全可以复制使用）
需要在窗体上添加一个按钮和一个DataGrid1控件

Option Explicit

Private Sub Command1_Click()
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>基本知识>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'ADODB对象模型，是VB用来操作数据库的有力工具，其中两个对象最有价值；
'1.ADODB.Connection -- 用来连接数据库文件:
'主要完成对数据库以及数据表的操作；比如：创建数据库，创建、删除、复制数据表等等。
'2.ADODB.Recordset -- 用来返回数据记录集:
'主要完成对记录的操作；比如：返回记录，添加、删除记录等等。使用SQL语句可以实现强大的功能。

'下面简单介绍使用ADODB对象进行数据库操作的步骤
'一，声明并实例化对象
Dim Conn As ADODB.Connection '声明连接数据库对象 -- 用来连接数据库文件，并对数据库以及数据表的操作
Dim Rst As ADODB.Recordset '声明数据记录集对象 -- 用来返回数据记录集，并对记录的操作

Set Conn = New ADODB.Connection '数据库对象的实例化
Set Rst = New ADODB.Recordset '记录集对象的实例化

'二，连接数据库文件
'执行 ADODB.Connection对象的Open方法，完成数据库的连接
Conn.CursorLocation = adUseClient
'注意下面的一些参数，需要根据使用者的特定情况进行修改
'Password=密码 中的“密码”，是登录SQL SERVER 的密码
'User ID=实例名 中的“实例名”，是SQL SERVER 的实例名，一般使用“sa”
'Initial Catalog=数据库名 中的“数据库名”，只你要访问的数据库名
'Data Source=SQL SERVER服务器名 中的“SQL SERVER服务器名”是你要访问使用的安装了SQL SERVER的服务器计算机名

Conn.Open "Provider=SQLOLEDB.1;Password=密码;Persist Security Info=True;User ID=实例名;Initial Catalog=数据库名;Data Source=SQL SERVER服务器名"

'三，返回记录集
'执行 ADODB.Recordset对象的Open方法，获得记录集
'注意，把“数据表名”改为你的实际数据表名称
Rst.Open "Select * From 数据表名", Conn, adOpenKeyset, adLockPessimistic

Set DataGrid1.DataSource = Rst

Set Rst = Nothing '释放记录集对象
Set Conn = Nothing '释放数据库对象

End Sub

追问

我需要操作步骤，

Answer 3

第一步：建立一个标准的EXE工程，并且在工程添加一个类模块和一个计时器（DataEnvironment1）下图的第二即Data
Environment 第二步：在工程===引用===勾选（找到microsoft
activex
date
objects
2.5
library在其前面勾选）第三步：点中设计器的DataEnvironment1右键“查看对象”会弹出下图
点中connection1右键==“属性” 按下图操作：选中microsoft
jet
4.0
ole
db
provider
继续“下一步(N)”,又会弹出下图按步操作吧
：
选择你的数据库路径e:1.mdb
由于我在这里是做测试，所以连接数据库时是没有设置密码的（但是我们在企业实际开发工作中，必须要设置密码，而且密码要复杂，这是为了我们企业的信息安全着想，防止不法分子盗取我们企业的重要资料）最后测试下我们的连接是否成功！成功后，我们把它的数据源（connectionsource属性）给复制过来看下图 好，到这步后我们已经把数据源的路径复制过业了，接下来就是在类模块编写代码了，看下面：把代码是写在类模块里如下：Option
Explicit
Dim
ADOLJ
As
Connection
Dim
strACCESS
As
String
Public
Sub
main()
strACCESS
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\1.mdb;Persist
Security
Info=False"
Set
ADOLJ
=
New
Connection
ADOLJ.Open
strACCESS
MsgBox
"连接ACCESS
2003
成功",
vbOKOnly,
"提示"
Form1.Show
1
End
Sub
在这里值得向大家说明的一点就是：我们刚才所复制的数据源存在一个小问题，那就是它的详细路径Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=E:\1.mdb;Persist
Security
Info=False当然如果我们不去理会它，程序与数据库的连接也可以正常运行，但是如果把我们的应用程序放在客户机上用，那就不行了，因为每个客户的存取数据文件不一定就是E盘的，可能会是D盘G盘F盘...... 那么我们可以用APP.Path这个自动识别路径的方法就不会出现找不到文件路径的报错的情况了。那么怎么改呢，请看下面：Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
+
App.Path
+
"\1.mdb;Persist
Security
Info=False
好了好了，你自己亲自动手做做吧，由于时间关系就不多说了。