vb如何连接access服务器

A. access与VB怎么样进行连接

现在VB连接数据库也没那么复杂了。
使用ADODB,就可以连接。
Set
Ac
=
New
ADODB.Connection
Set
Rs
=
New
ADODB.Recordset
Ac.Open
"driver={Microsoft
Access
Driver
(*.mdb)};dbq="
&
App.Path
&
"\DB1.mdb"
这就连接了，像ASP一样使用adodb.recordset来控制数据。
rs.open
"select
*
from
admin",ac,1,1
while
not
rs.eof
...
rs.movenext
wend
rs.close
也可以使用ADODC和DATAGRID控件绑定，来显示数据.
dbConnectStr
=
"Driver={Microsoft
Access
Driver
(*.mdb)};Dbq=ok.mdb;DefaultDir="
&
App.Path
&
"\"
&
";"
dbStr
=
"SELECT
*
FROM
admin"
Adodc.ConnectionString
=
dbConnectStr
Adodc.RecordSource
=
dbStr
Adodc.Refresh
Set
gridData.DataSource
=
Adodc.Recordset
gridData.ClearFields
gridData.ReBind

B. VB连接Access数据库具体步骤，越详细越好

有多种连接方式，可以用数据控件连接，也可以用组件连接。下面是用ADO组件来连接的例子（假定ACCESS数据库文件和程序是放在同一个文件夹的）：

PrivateSubForm_Click()'点击窗体运行
DimconnAsObject,rsAsObject
Setconn=CreateObject("Adodb.Connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"a.mdb"
Setrs=CreateObject("Adodb.Recordset")
rs.Open"select*fromb",conn,1,1
DoUntilrs.EOF
'这里是循环列出表b中的每条记录，熟悉的人就知道怎么做了
rs.MoveNext
Loop
rs.Close
Setrs=Nothing
conn.Close
Setconn=Nothing
EndSub

C. VB如何与Access数据库连接上呢

VB 连接 Access 数据库可以用 Data控件、Adocd控件和Dao组件.其中Data的连接是 设置 Data.DataBaseName="数据库路径"(如"C:\abc.mdb");还设置Data.RecordSource="表名"(如"基本情况")

Adodc控件要自己添加，其连接方法要复杂点。
组件也要添加，连接方法是：
Dim db As Database '声明数据库
Dim rs As Recordset '声明数据集

Set db = OpenDatabase(App.Path & "\SellData.mdb", False, False) '连接
Set rs = db.OpenRecordset("基本情况") '数据表

大致是这样，我没有空了，希望对你有帮助。

D. 如何把Access与VB连接起来

在VB中，连接ACCESS数据库的方法主要有下面三种

a.Data Link文件

b.使用ODBC数据源名称

c.使用连接字符串

使用数据环境设计器创建数据库连接,首先添加环境引用。然后找到数据源进行连接。

Data 控件连接中，ODBC数据源的连接和使用字符串的连接 与直接使用ODBC数据源连接中，不同是，直接使用ODBC数据源设置好路径后，再用connection对象连接即可；Data控件则不用Connection 对象，有控件，设置好路径了，就直接连到啦。

数据环境设计器和ADO 对象，都用到了connection连接。不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。

总结不同：ADO对象连接需要编写代码，其他的不用编写代码。

下面详细介绍每一种连接方法的详细步骤：

1.使用ADO connection对象

首先，要建立ADO引用，定义connection这个类，然后实例化对象。

代码完成如下：

E. VB怎么连接Access

在VB编程中通常要和数据库打交道，对于数据量较小，应用一般选用Access作为数据库，Access数据库比较简单功能也比较齐全，数据备份、拷贝都很方便且发布时不需要额外单独安装其它数据库管理软件Software。因此，在功能能够满足要求条件下，Access数据库往往成为一些小型数据库软件Software的首选。

有关用VB操作Access库表思路方法有多种,一般般初学者往往会使用数据Control控件许多资料上也大都以此作为操作Access数据库起点来介绍，这个思路方法使用起来非常简单，但使用数据Control控件，思路方法在编码上往往不够灵活。现在介绍下其它两种操作Access数据库思路方法：

第一种:使用数据库对象

首先 要进行有关数据对象 声明 代码如下

Dim MyWs As Workspace
Dim MyDB As Database
Dim WordTab As Record

生成工作区 打开数据库 然后再根据需要打开相应 库表

Set MyWs = DBEngine.CreateWorkspace�〃〃� 〃Admin〃� 〃〃� dbUseJet
Set MyDB = MyWs.OpenDatabase�数据库名称� False� False
Set WordTab = MyDB.OpenRecord �〃表名〃� dbOpenDyna

这种思路方法 优点是代码比较简单 要求 环境为DAO 2.5/3.51 其中表名可以换成SELECT语句 即根据条件打开所需要记录集 这种思路方法可脱离数据Control控件 可以比较方便灵活地操作数据库表 增加了 灵活性

提示:经过测试发现 这种思路方法只能打开Access97库表 对于Access2000库表却无能为力 会弹出库表格式不对 出错提示另外 对数据环境 要求仍比较多

第 2种:使用ADODB

首先 声明 个链接变量 并根据需要声明记录集变量

Dim LocCnn1 As ADODB.Connection
Dim LocRst1 As ADODB.Record

建立和数据库 链接 如果数据库没有口令 最后 行可以不写(写上也不会错)

Set LocCnn1 = New ADODB.Connection
LocCnn1.Open 〃Provider=Microsoft.Jet.OLEDB.4.0�User ID=Admin�〃 & _
〃Data Source=〃 & App.Path & 〃\数据库名称.mdb�〃& _
〃Mode=Share Deny None�Extended Properties=''�Persist Security Info=False�〃 & _
〃Jet OLEDB�Database Password='asp561rbc'�〃

这种思路方法虽然代码长 些 但对数据环境要求低 且结构清晰 所编写 发布 也大为减小 由于和链接sql Server等数据库思路方法 样 因而大量 操作数据库 代码相同 当数据库需要由Access扩充到 些大型数据库 或由 些大型数据库裁剪出 个简单数据库时移植会比较方便

另外 这种思路方法对于Access97及Access2000均能很好地支持 兼容性好 对于大量插入、删除、修改等操作只在Connection层进行即可 既可提高速度又可减少代码

如果还要获取具体 记录集内容 则须再根据条件打开具体 库表 代码如下:

Set LocRst1 = New ADODB.Record
LocRst1.CursorType = adOpenKey
LocRst1.LockType = adLockOptimistic
LocRst1.Open 〃SELECT � FROM 表名〃� LocCnn1�adCmdText

F. VB怎么连接访问Access数据库

使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即：

①数据访问对象/Jet

②为ODBC API编程

③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程

④RDO 远程数据对象(RemoteData Objects)

⑤ADO 数据对象(Active Data Objects)

1、数据访问对象/Jet

VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。

注释：Form Declarations

Dim mydb As Database

Dim mydynaset As Dynaset オ

Private Sub Form_Load()

Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")

Set mydynaset = mydb CreateDynaset("Select*from Customers") オ

End Sub ァ

上述例子是以非独占、非只读方式打开sales数据库，并检索Customers表中的所有字段。OpenDatabase函数的最后一个参数是ODBC连接字符串参数，它指明了Microsoft Access连接到SQL Server所需要知道的一些内容。其中“DSN”为数据源名，“WSID”为工作站名，“DATABASE”为所要访问的数据库名。

2、利用ODBC API编程

ODBC(Open Database Connectivity)的思想是访问异种数据库的一种可移植的方式。与数据资源对话的公用函数组装在一个称为驱动程序管理器(ODBC.DLL)的动态连接中。应用程序调用驱动程序管理器中的函数，而驱动程序管理器反过来通过驱动器(SQLSRVR.DLL)把它们送到服务器中。

下面的代码使用上面一些函数先登录到一个服务器数据库，并为随后的工作设置了语句句柄。

Global giHEnv As Long

Global giHDB As Long

Global giHStmt As Long

Dim myResult As integer

Dim myConnection As Srting

Dim myBuff As String*256

Dim myBufflen As Integer

If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then

MsgBox"Allocation couldn注释：t happen!"

End If

If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then

MsgBox "SQL Server couldn注释：t connect!"

End If

myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"

myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)

myResult=SQLAllocStmt(giHDS,giHStmt)

myResult=SQLFreeStmt(giHStmt,SQL_COLSE)

rsSQL="Select * from Customers Where City = "Hunan""

myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))

3、使用VBSQL对DB库API编程

DB库是SQL Server的本地API，SQL Server的Visual Basic库(VBSQL)为Visual Basic程序员提供API。从一定意义上说，VBSQL是连接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三个文件：

VBSQL.VBX： 包含库函数，具有访问重要的消息和处理错误的能力

G. VB如何连接Access数据库

如下代码参考一下，不知能有帮助否。
PrivateSubCommand1_Click()
DimMyconAsADODB.Connection'定义一个连接对象，用这个对象来和数据库建立通讯联系。
DimMyrtAsADODB.Recordset'定义一个记录集对象，将来从数据库取得一条一条的记录后，放入这个对象里面。
DimMystrAsString'定义一个字符串变量，用来存放和数据库连接时一些必要的参数。
SetMycon=NewADODB.Connection'建立一个新的连接对象。
SetMyrt=NewADODB.Recordset'建立一个新的记录集对象。
Myrt.CursorLocation=adUseClient'定义记录集的游标类型，你要是才接触这方面的内容的话，这里没没必要做深入研究，知道记录集有2种游标类型，一种是服务器端游标，一种是客户端游标，这里采用的是客户端游标，2种类型各有特点，就你这如果要连接一个用户密码表的话，设客户端游标就可以了。
Mystr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\db1.mdb"'设置用来和数据库进行连接的一些必要参数，Access数据库采用Microsoft.Jet.OLEDB.4.0驱动，如果是其它类型的数据库的话这句就不一样了，如果你要调试这段代码的话，把d:\db1.mdb这个改一下。
Mycon.OpenMystr'用定义好的连接对象以前面设置的参数打开数据库，后面对数据库的操作就操作这个连接对象就行了。
Myrt.Open"select*from表名",Mycon,3,1'记录集对象执行打开操作，从数据库中的一个表中取得记录，在这里Mycon就代表数据库了。"select*from表名"这句意思是从一个表中取得所有记录。你具体试验时把表名修改一下。
'在这里就从数据库的一个表中取得有用的数据了，你可以通过对Myrt记录集的操作取得自己需要的数据。比如如果是一个用户密码表的话，如果这个表有2个字段，一个用户名字段，一个密码字段。那么用Myrt("用户名")就能取得当前记录这个字段的数据。如果这个表有10条记录的话，可以用Myrt.movenext来移动记录集指针。
'如果你界面上放置一个DataGrid控件的话，用下面这句就能看到Myrt记录集对象从数据库中取得的内容了。
SetDataGrid1.DataSource=Myrt
EndSub
你问题补充里的代码没有连接数据库的代码，这个按钮是验证身份登录的代码，在这之前就应该和数据库连接了，因为连接数据库的代码必定会有数据库的路径、名称等信息。如：D:\db1.mdb。

H. 如何进行VB与数据库ACCESS的连接

VB与数据库连接可以使用数据库控件进行,也可以引用ADO对象,数据库控件的使用比较简单,下面我就介绍使用ADO对象进行连接,首先打开"工程-引用",选择其中的Microsoft ActiveX Data Objects 2.0 Library(2.0以上版本都可以):
ACCESS数据库名为"学生.mdb"其中有张数据库表名为"表",下面就介绍如何使用代码进行连接到数据库"学生",代码如下:
Function Connection() As String
'数据库的连接字符设置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\学生.mdb"
End Function
数据库"学生.mdb"在当前目录下,故使用APP.Path
Private Sub Form_Load()
Dim mr As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim Sql As String
Sql="select * from 表"
cnn.Open Connection '使用cnn对象打开数据库连接
mr.Open Sql, cnn, adOpenKeyset, adLockOptimistic
'打开数据库记录
If mr.eof then
msgbox "数据库表为空!"
else
msgbox "数据库表不为空!"
end if
set mr=nothing
'关闭记录对象
set cnn=nothing
'关闭连接对象
End Sub
OK,程序到此,已经能成功地访问数据库了,并能打开数据库中的表

I. VB中连接access数据库如何连接

vb连接acess数据库很容易,你后面写的东西我不明白, 把下面的代码你的vb中的一个模块中就可以操作acess数据库了 '使用方法：1、调用SetConnStr函数，产生连接字符串。2、打开数据库连接，3。执行ExecuteSQL函数返回结果集。 '======================== 必须引用ADO2.5库方可运行 ========================== '引用ADO酷，可以将ADO孔件拖到窗体上再删除就可以了 '============================================================================= Public Function SetConnStr(ByVal DbName As String) As String '生成数据库连接字符串,参数为数据库名(全路径) SetConnStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & DbName & ;Persist Security Info=False End Function Public Function ExecuteSQL(ByVal Sql As String, ByVal ConnString As String) As ADODB.Recordset 'On Error Resume Next'当数据库插入时，全部数据均为空时，将发生错误，所以要加这句话 '执行给定的sql语句，返回类型为记录集 Dim Mycon As ADODB.Connection Dim Rst As ADODB.Recordset Set Mycon = New ADODB.Connection Mycon.ConnectionString = ConnStringMycon.OpenDim Stokens() As String ' On Error GoTo ExectueSql_Error Stokens = Split(Sql) If InStr(INSERT,DELETE,UPDATE, UCase(Stokens(0))) Then Mycon.Execute SqlElseSet Rst = New ADODB.Recordset Rst.Open Trim(Sql), Mycon, adOpenKeyset, adLockOptimistic Set ExecuteSQL = RstEnd IfExectueSql_Exit: Set Rst = Nothing Set Mycon = Nothing Exit Function ExectueSql_Error:

J. VB能够连接access数据库吗如何连接

VB与Access连接的方法(Ado连接) 一、建立数据库 因为在Visual Basic 6.0中有的数据库连接方式不支持Access 2000版本格式的数据库，为了便于说明问题，本文所提的数据库以Access 97版本数据库为例。 在Microsoft Access 97中建立一个数据库，如：ssgl.mdb，并设置密码，如：“1234”，再将数据库文件和VB中创建的工程文件放在同一目录下。 如果用户的计算机上只有Access 2000的话，可以先在Access 2000中建立ssgl.mdb数据库，并设置密码，再用Access 2000中的“数据库实用工具”将数据库转换成Access 97版本的格式。 当然也可以直接在Visual Basic 6.0集成开发环境中通过“可视化数据管理器”来创建数据库，再到Access 97中设置密码。 通过对数据库文件设置密码，一般情况下，非法用户就不能用常规的手段打开数据库了，对数据库中的信息起到了一定的安全和保密作用。 二、连接加密的Access数据库 在Visual Basic 6.0中，要建立与数据库的连接，可采用的技术手段很多，如：数据控件、数据对象、数据环境设计器等。开发人员可以根据自身的条件和用户的需求进行选择。 限于篇幅，下面只介绍加密的Access数据库与没有加密的Access数据库在连接时的不同之处。关于没有加密的数据库的连接及访问的方法读者可以参阅其它资料。 1、使用控件 ① Data控件 Data控件是Visual Basic 6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。 通过Data控件连接加密的数据库的方法有两种： 一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”; pwd=1234”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。 另一种方法是在运行时，通过代码对connect属性赋值来实现。如： Data1.connect=”; pwd=1234” Data1.DatabaseName=APP.path + “\ssgl.mdb” 其中，”1234”为Access数据库文件ssgl.mdb的密码，下同。 ②Adodc控件 Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control 6.0(OLEDB)”选项即可。 通过Adodc控件连接加密的数据库的方法也有两种： 一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。 只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。 2、使用数据对象 ① DAO数据对象 要能正确引用DAO数据对象来建立与数据库的连接，应先在VB集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框选择“Microsoft DAO 3.51 Object Library”选项来添加DAO数据对象类型库。 接下来就可用如下代码来建立到加密的Access数据库ssgl.mdb的连接。 Dim db AS DataBase Set db=OpenDataBase(App.path + “\ssgl.mdb” , False , False , ” pwd=1234”) ② ADO数据对象 ADO是Microsoft推出的处理关系数据库和非关系数据库中信息的最新技术，也是Microsoft推崇的用于数据连接和访问的技术。在VB 6.0中，Adodc控件、ADO数据对象及DataEnvironment（数据环境设计器）都采用的是ADO技术，因而它们处理加密的Access数据库的方法类似。 要能正确引用ADO数据对象，应在VB 6.0集成开发环境中选择“工程”菜单，再点击“引用”菜单项，在弹出的“引用”对话框中选中“Microsoft ActiveX Data Objects 2.1 Library”选项来添加ADO数据对象类型库。 可用如下代码来建立到加密的Access数据库ssgl.mdb的连接。 Dim cnn AS ADODB.Connection Dim rst AS ADODB.Recordset Set cnn=New ADODB.Connection Cnn.Provider= ”Microsoft.Jet.OLEDB.3.51” Cnn.ConnectionString= ”Data Source=” & App.path & ”\ssgl.mdb;” & _ ” Jet OLEDB: Database password=1234” cnn.Open ③ 使用DataEnvironment（数据环境设计器） 有两种方法可以通过DataEnvironment连接到加密的Access数据库： 一种方法是在设计状态时，在DataEnvironment的connection对象的ConnectionSource属性的有效连接字符串后加上” Jet OLEDB: Database password=1234” 另一种方法是在DataEnvironment_Initialize()事件中编写如下代码： Private sub DataEnvironment_Initialize( ) Dim strconn AS string Strconn=” Provider=Microsoft.Jet.OLEDB.3.51;” & _ ”Data Source=” & App.path & “\ssgl.mdb;” & _ ”; Jet OLEDB: Database password=1234” DataEnvironment1.connection1.connectionstring=strconn End sub