vbaccesssql
Ⅰ 用vb連接access資料庫以後，如何一次性執行多條sql語句
使用ACCESS查詢對象是無法一次運行多個
SQL語句
的，但是通過ACCESS
VBA代碼可以實現一次運行多個SQL語句。下面是具體實現方案;
1)新建一個ACCESS窗體，窗體添加一個命令按鈕；
2）編寫按鈕單擊事件過程
Private
Sub
Command1_Click()Dim
strSql
as
stringstrSQL="Update
Policy
SET
LatestDueDate=Year(Date())
&
'-'
&
Format(PolicyDate,'mm-dd')"
DoCmd.RunSql
strSQL
'運行第一個更新語句strSQL="UPDATE
Policy
SET
LatestDueDate=
DateAdd('yyyy',1,LatestDueDate)
WHERE
(((Month(Date())-Month(LatestDueDate))
>
6)
and(PaymentMode='H'))"
DoCmd.RunSql
strSQL
'運行第二個更新語句
End
Sub
跟著點擊該命令按鈕就可以一次執行兩條語句了。
Ⅱ vb access裡面動態的表導入到SQL2000裡面
你為啥整得如此復雜，其實ACCESS由網路連接表功能，直接連接SQL Server,而且VB能直接操作。VB的代碼也不是這么個寫法，再說你的兩個連接不是在一起的，怎麼可能表對表能操作，能看得出來你是用連接功能，但是這樣錯效率真心太差。
'VB6.0我建議你用ADODC控制項，不要用MSADO15.dll，那個要SP3補丁支持，不好安裝。
就舉個通用的例子（控制項的更簡單）,不使用控制項，就要引用ActiveXDataControl2.5。
'VBA自帶的編程模塊也需要引用,VBS不需要。
'現在開始寫代碼：
'//ADO連接對象和數據集合申明與實例化
DimcndbAsADODB.Connection
DimrsdbAsADODB.RecordSet
DimconnAsADODB.Connection
DimrsAsADODB.RecordSet
privatefunctiondimcon()
Setcndb=newADODB.Connection
Setrsdb=newADODB.Recordset
Setconn=newADODB.Connection
Setrs=newADODB.Recordset
conn.ConnectionString="Driver={SQLServer};Server=172.17.10.1;DataBase=SQLMove_db;UID=sa;PWD=123"
try
conn.Open()
catch
msgBox("連接失敗！")
Endtry
'//查詢出ACCESS數據,ACCESS方相對路徑，是本地的不需要判斷連接
cndb.Open("Provider=microsoft.Jet.OLEDB.4.0;DATASOURCE="&app.Path&@"/db.mdb")
rsdb.Open"select*fromtbstr"
ifNOTrsdb.EOFTHEN
Fori=0torsdb.RecordCountstep1
inser(參數來自循環集合)
nexti
EndIf
endfunction
privatefunctioninser()
』//這里用冷連接方式去插入數據，防止連接中斷異常
Dimsql
sql="select*fromtbStr";
rs.Opensql,conn,3,1
IfNotrs.EOFthen
rs.AddNew()
rs.Fields("...")=...
rs.F...
rs.Update
rs.MoveNext
endfunction
Ⅲ 怎樣在VB中用SQL語句向access表中添加數據
樓上正解,也可以不用ADODC控制項
Dim
一個New
ADODB.Connection
(
如cn)
cn.ConnectionString=資料庫連接字元
cn.open
cn.execute(sql語句)
sql語句為insert之類的插入或update類的更新語句,就可以改寫或添加ACCESS的數據了.
Ⅳ 在VB下,怎樣把一個原來用access資料庫的程序改成sql的
首先先建好資料庫，把資料庫導入SQL伺服器，假設資料庫名稱為DATA1
原先ACCESS的資料庫連接語句為"Driver={Microsoft
Access
Driver
(*.mdb)};DBQ="
&
App.Path
&
"\data1.mdb;pwd=;ReadOnly=True"
現在改成"Driver={SQL
SERVER};SERVER=192.168.1.168;Uid=SA;Pwd=;Database=DATA1"
其他地方都不用改的，就這么簡單。SERVER=資料庫的IP地址;Uid=資料庫帳號;Pwd=資料庫密碼;Database=資料庫名稱
Ⅳ VB 操作 access 以及 sql
1、access遷移到sql，VB內的sql語句是一定需要更改的；
2、客戶端沒有安裝sql，也是可以運行的，只要安裝你VB程序的打包安裝程序，連接的dll都會自行注冊的。
Ⅵ VB Access SQL語句語法錯誤
估計你的key欄位是自動編號的，在OLEDB里不能結自動編號進地處理，而在ACCESS里有很多功能也是OLEDB所沒有，如replace函數。
strSQL
=
"Insert
Into
corporation_structure(DeptName,Deep,Parent,RemoveFlag)
"
&
_
"Values
(
'"
&
sDeptName
&
"'
,'"
&
sDeep
&
"'
,'"
&
sParent
&
"'
,
False)"
這樣試試
Ⅶ vb連接access資料庫SQL語句
Private
Sub
Command1_Click()
Dim
Cnn
As
New
ADODB.Connection
Dim
Rs
As
New
ADODB.Recordset
Dim
ConnStr
As
String
ConnStr
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\note.mdb"
Cnn.Open
ConnStr
Cnn.CursorLocation
=
adUseClient
Rs.Open
"Select
**
From
*表
where
=條件",
Cnn,
adOpenKeyset,
adLockPessimistic
把&
App.Path
&
"\note.mdb這個換成你的資料庫就行了
Ⅷ VB用access好還是SQL好
主要看你的使用功能，正如上面幾位說的，SQL server功能強大，效率高，安全性好，但同時其使用和維護起來也需要較高的專業知識，而ACCESS更容易掌握一些，更是剛入門，初學者學習資料庫的好軟體；所以說你不是商業用途或者只是自己學習之用，那麼可以先用ACCESS練習，等掌握相關使用方法後再改用SQL SERVER不遲（ACCESS可以直接升遷至SQL server）。
所以我建議先用ACCESS，等自己熟練以後再用SQL SERVER
Ⅸ 求高手 vb中怎麼將access資料庫連接改成sql資料庫連接
用ADO連接改一個地方：
連接字元串的驅動器和數據源屬性：
SQL格式是：
adodc1.connectionstring="driver={SQL Server};Server=192.168.1.1;UID=sa;PWD=密碼;database=資料庫名"
分別要寫清驅動器名；伺服器名；用戶名；密碼；資料庫名
ACCESS也一樣
adodc1.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=文件路徑;UID=用戶名;Pwd=密碼"
這就是兩者的根本區別。我建議你用ADO控制項來連接理解會直觀一點，用ADO你未必理解。
ADO控制項直接給他的ConnectionString屬性和RecordSource屬性賦值，太復雜的代碼容易把螞蟻想像成大象。
Ⅹ VB連接access資料庫改為連接sql server資料庫
要使用ADO控制項，首先當然要添加控制項了，在菜單「項目」－「組件」
中選中「Microsoft ADO Data Control 6.0 (SP6) (OLEDB)」，將其添加到控制項面板中，相應的控制項文件是：MSADODC.OCX
Dim sql
sql = "相應的操作資料庫的sql語句"
With Adodc1
.ConnectionString = "Data Source=資料庫服務IP地址;Initial Catalog=資料庫名稱;User Id=資料庫用戶名;Password=資料庫密碼;"
.CommandType = adCmdText
.RecordSource = sql
.Refresh
end with