❶ 如何用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這個類，然後實例化對象。
代碼完成如下：