❶ 如何用vba代码将access数据库连接求代码
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点，是 Microsoft Office 的系统程序之一。用vba代码将access数据库连接求代码，代码如下：
Sub FYMXDL()
Dim XQID As Integer
Dim JZID As Integer
Dim FYID As Integer
Dim FBXZ As String '分包性质
Dim DW As String
Dim SARR(1 To 31) As Double
Dim rst As New ADODB.Recordset
mYpath = ThisWorkbook.Path & "jzfydata.accdb"
Set cONn = CreateObject("ADODB.Connection")
cONn.ConnectionString = "Provider=Microsoft.Ace.OleDB.12.0;Data Source=" & mYpath
cONn.ConnectionString = cONn.ConnectionString & ";Jet OLEDB:Database "
cONn.Open
XQID = Cells(3, 2).Value
JZID = Cells(3, 5).Value
'清空改小区-建筑的费用明细
sql = "delete from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID
cONn.Execute Sql
Const kshh = 7
hh = kshh
Do While Cells(hh, 3).Value > 0
FYID = Cells(hh, 3).Value
FBXZ = Cells(hh, 11).Text
For i = 1 To 31
SARR(i) = Round(Cells(hh, 13 + i - 1).Value, 2)
Next i
Sql = Sql & "," & SARR(i)
Next i
Sql = Sql & " )"
cONn.Execute Sql
hh = hh + 1
Loop
End Sub
❷ vb语言，asp+access数据库怎么连接，请高手指点，先谢了~
<% @ language=vbscript %>
<%
'这个文件是用来练习连接数据库的，
'最终目的是要练习对数据库中的对象进行增、改、删、查的操作，
'以及应用数据库中存储的地址或字段把网页动态的显示出来。
option explicit
Response.Expires=0
Const intpagesize=10 '定义每页显示记录数目的常量
Dim intcurpage,objcon,objrs,strq,intI,inttalpage,m,i,num
' intcurpage 为当前显示页的变量
' objcon 为数据库连接对象 ( Connection )
' objrs 为数据库 Recordset 对象
' strq 为存储查询语句的变量
' intI 在 For 循环中应用的循环变量
' inttalpage 为显示总页数的变量
'此处为判断按下翻页按钮的事件，向前或向后
if Request.ServerVariables("CONTENT_LENGTH")=0 then
intcurpage=1 '初始化当前显示页为第一页
else
intcurpage=int(Request.Form("curpage")) '这个地方应该进行数值转换 int
select case Request.Form("submit")
case "上一页" '按下按钮为"上一页"时，页码数减 1
intcurpage=intcurpage-1
case "下一页" '按下按钮为"下一页"时，页码数加 1
intcurpage=intcurpage+1
case "添加记录"
Response.Redirect("add.asp") '重新定向URL，到达 add.asp
end select
end if
'从这里开始是建立与数据库的动态连接过程
set objcon=server.CreateObject("ADODB.Connection") '与数据库建立连接
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("lianxi.mdb") '连接上数据库
set objrs=server.CreateObject("ADODB.Recordset") '建立数据集
strq="select * from lianxi" 'SQL 查询语句
objrs.Open strq,objcon,3,3 '打开数据集并指定游标类型
objrs.CacheSize=intpagesize
objrs.PageSize= intpagesize '固定每页显示的记录数
if not(objrs.EOF) then '如果没有到达数据库的最后一条记录
objrs.AbsolutePage=intcurpage '该属性将游标指定于当前页
end if
inttalpage=objrs.PageCount '用变量指显示recordset中的总页数
m=objrs.Fields.Count-1
%>
<html>
<center>
<head><h1>学生管理表</h1></head>
<table border=1 width=750>
<tr><th>记录编号</th><th>学员编号</th><th>学员姓名</th><th>班级编号</th><th>出生日期</th><th>入学日期</th><th>班主任</th><th>政治面貌</th><th>选择操作</th></tr>
<%
'输出库中的一些内容
for intI=1 to objrs.PageSize'循环产生表格，按表格形式循环输出数据库中的内容 %>
<tr>
<% for i=0 to m %>
<td valign=top align=center>
<% =objrs.Fields(i).Value %>
</td>
<% next %>
<td><a href="modify.asp?B=<% =objrs.Fields("id").Value %>">修改记录</a>
<a href="delete.asp?A=<% =objrs("id") %>">删除记录</a></td>
</tr>
<% '由删除链接到 fengyiedelect.asp 文件，由修改链接到 fengyiemodify.asp 文件
objrs.MoveNext
if objrs.EOF then exit for
next
%>
</table> <P>
<%
objrs.Close
objrs.Open strq,objcon,3,3
num=0
while not objrs.EOF
num=num+1
objrs.MoveNext
wend
objrs.Close
objcon.Close
set objrs=nothing
set objcon=nothing
%>
当前页为第 <% =intcurpage%> 页，共有 <% =inttalpage%> 页,包含<% =num%>条记录 <p>
<%
'定义表单中的内容按钮上一条 下一条.
%>
<form action="<% =Request.ServerVariables("script_name")%>" method="post" id=form1 name=form1>
<input type="hidden" name="curpage" value="<% =intcurpage%>">
<%
if intcurpage>1 then%>
<input type="submit" name="submit" value="上一页">
<%end if %>
<%
if intcurpage<>inttalpage then%>
<input type="submit" name="submit" value="下一页">
<%end if %><p>
<a href="add.asp">添加记录</a>
</form>
</center>
</html>
❸ vb与access数据库连接
不用对方安装的,但在那文件你应该事先生成好，将数据库Copy过去就可以
给你举个例子吧：
'准备工作: 数据库 D:\Mydb.mdb 数据库中,建数据表:UserInfo,数据表中,建字段:User,Password,并添加一条记录
'点工程->引用 选中 Microsoft Activex Data Objects 2.1 Library
'控件:添加一个文本框,一个命令按钮
Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将数据库名及路径换成你的实际数据库名及路径
Dim UserName As String
Dim Password As String
s = Text1.Text
If s = "1" Or s = "2" Then
UserName = InputBox("请输入用户名")
Password = InputBox("请输入用户密码")
sql = "Select * From [UserInfo] where User='" & UserName & "'"
'UserInfo请换成你的实际数据表名
Rs.Open sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有找到此用户"
Else
If Rs("Password") = Password Then
If s = "1" Then
MsgBox "123"
ElseIf s = "2" Then
MsgBox "456"
End If
Else
MsgBox "密码错误"
End If
End If
End If
End Sub
❹ VB 连接ACCESS数据库,如何使用相对路径
用MICROSOFT
jet
4.0
OLE
DB
Provider引擎连接ACCESS数据库,方法如下:
新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。
然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中ACCESS数据库选MICROSOFT
jet
4.0
OLE
DB
Provider,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。
SQL查询语言主要结构为：
Select
查询字段
from
表名
Where
查询条件语句
[排序语句或分组语句]
查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。
SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT
*
FROM
TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。
❺ VB如何连接ACCESS数据库
由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访 问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能 够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始数据库编程了. 首先,我们需要引用ADO.具体的方法是,在工程 -- 引用 中,找到Microsoft ActiveX Data Object *.* Library,这里的*.*是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确 保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset. 创建这两个对象的具体方法是: 1.在引用后,使用New关键字,如 Private Conn As New ADODB.Connection Private Reco As New ADODB.Recordset 2.在没引用时,用CreateObject创建对象: Dim Conn,Reco Set Conn = CreateObject(ADODB.Connection) Set Reco = CreateObject(ADODB.Recordset) 创建了对象之后,下一步我们要做的就是打开数据库了. 先看下面的代码,可以成功的打开数据库. Conn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Main.mdb 这句代码打开了D盘中的Main.mdb这个数据库. Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分 Provider=Microsoft.Jet.OLEDB.4.0,它表示了数据库的类型.不同的数据库可能会不同.后半句 Source=d:main.mdb它表示了数据库所在的绝对路径. 打开数据库之后,还要打开表.假如数据库中有一个表,表名为Users,字段有两个,一个为用户名,一个为密码.那么看以下代码. 1.想返回Users中,[用户名]为去年烟花的[密码] Recordset.open Select 密码 From Users Where 用户名='去年烟花',Connection,1,1 之后我们就可以把用户输入的密码进行比较,看是否允许登录. If Recordset.eof and Recordset.bof then Msgbox 用户不存在!,16 Else If PassWord =Recordset(密码).value then msgbox 登录成功!,64 Else msgbox 密码错误!,32 End If End If Recordset.Close 2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来 Recordset.open Select * From Users,Connection,1,1 这时,表已经被打开,我们就用以下代码把它显示出来. Do whlie Not Recordset.eof Print 用户名: & Recordset(用户名).value & 密码: & Recordset(密码).value Recordset.MoveNext Loop Recordset.Close 由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句. Select [字段名] From 表名 [Where 条件] 这里的条件可以省略.且字段名也可以用*来代替所有字段. 需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset(密码)就没有值存在,还有可能出错. 后面的条件,可以用=、>、<等运算符.比如 Where ID > 32.(这里假设[ID]为数字型.) 这是打开的部分.第二个很重要的部分就是查询记录. 数据库它并不是把所有记录全部放到一个变量中备用的.而是以当前记录的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选. 定位: 移动到下一条 Recordset.MoveNext 移动到上一条 Recordset.MovePrevious 移动到最后一条 Recordset.MoveLast 移动到第一条 Recordset.MoveFrist 移动到某一条 Recordset.Move Number 筛选: Recordset.Find 条件 如:[用方法(2)打开表之后] Private Sub Command1_Click() Recordset.Find 用户名= & text1.text If Recordset.Eof <> True Then Msgbox 该用户的密码是: & Recordset(密码).value,64 Else Msgbox 未找到该用户的资料!,16 End If End Sub MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时.... 而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用. Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录. 第三个部分就是添加/修改记录. 修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了. 比如:[(修改密码)按方法(1)打开表之后] Recordset(密码).value = 123456 Recordset.Updata 需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效. 而添加记录则可以用以下代码来实现: Recordset.addnew Recordset(用户名).value = Admin Recordset(密码).value = Admin Recordset.Updata 这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法. 到这里就差不多了,最后说一下上面提到的几个方法. Recordset.Open SQL语句,数据源,游标类型,打开方法 SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据 数据源就是一个打开之后的Connection对象. 填1就可以了 打开方法对应了几个常数,具体哪几个可以从对象浏览器里看。 对应数值的意义: 1 只读 2 独占 3 可写 4 自已可写,别人可读。 Connection.open 连接代码,服务器用户名,密码。
❻ 请问vbscript如何连接Access数据库
其实就是去掉server就可以了.
比如 connstr="DBQ=db.mdb;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn=CreateObject("ADODB.CONNECTION") '这里只是去掉server,照样可以连接
conn.open connstr
'连接试试看
set rs=createobject("Adodb.RecordSet")
sql="select * from news"
rs.open sql,conn,1,1
do while not rs.eof
msgbox rs("title")'这里是循环输出标题,vbs能用msgbox弹出.
rs.movenext
loop
rs.close
conn.close
set rs=nothing
set conn=nothing
msgbox "完毕"
❼ vbs如何连接access数据库是07版以后的，后缀是*.accdb不是*.mdb
❽ 如何用vb连接access数据库(代码编写)
app.path是指程序的相对路径。可以防止你写绝对路径后，如你的电脑可能有G盘，而其他人的电脑里没有G盘，那你写的绝对路径就不可用，程序也就相对他来讲是处废品。app.path可获取到你正在运行的程序的路径，能存放你程序的路径，那他下面也就可以再存你的数据库（你可以在这目录下再新一个文件夹存数据库）
rs1.Open
sql,
cn
其中cn是连接对象，rs1是记录集，sql是查询语句
你都知道这三个变量的意思，这句话也应该不难理解。直接译出来
sql
=
"select
*
from
表名"
检索“表名”里的所有记录
rs1.close是关闭rs1.open语句的。
引号里的是字符串
加号是连接符，通加在不作加减运算时最好是用"&"代替。可防止出错。
如
a="123"+"456"
a的结果是"123456"
a="123"
&
"456"
a的结果还是"123456"
下面没有加引号是数值可以用作运算计算出结果。上面的是字符串不能运算出结果。
a=123+456
a的结果是579
a=123
&
456
a的结果还是123456
❾ 如何把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这个类，然后实例化对象。
代码完成如下：