dao處理
Dim db As DAO.datebase
Dim sql As String
Dim k
Dim a As dao.QueryDef
con="c:\*.mdb"
set db =dbengine.opendatebase(con)
sql="select * from tbl_job"
創建查詢
k = db.CreateQueryDef("aaa_bbb", sql)
修改查詢
Set a = db.QueryDefs("aaa_bbb")
a.sql = "select * from tbl_package"
刪除查詢
db.QueryDefs.Delete ("aaa_bbb")
如果用ado
則不能添加到數據庫容器中
Dim db As DAO.datebase
Dim sql As String
Dim k
Dim a As dao.QueryDef
con="c:\*.mdb"
set db =dbengine.opendatebase(con)
sql="select * from tbl_job"
創建查詢
k = db.CreateQueryDef("aaa_bbb", sql)
修改查詢
Set a = db.QueryDefs("aaa_bbb")
a.sql = "select * from tbl_package"
刪除查詢
db.QueryDefs.Delete ("aaa_bbb")
如果用ado
則不能添加到數據庫容器中
Private Sub Command1_Click()
Dim c As ADODB.Connection
Dim sql As String
'''''''更新查询
Set c = New ADODB.Connectionc.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\Nwind.mdb;Persist Security Info=False"
c.Open
sql = " Update Customers SET Address ='sssss', "
sql = sql & " City ='ffff', CompanyName ='dddd' Where customerid = 1"
'''''''' 插入
sql = "INSERT INTO Customers (Address, City, CompanyName) VALUES ('ffff','ddddd','dddd')"
'''''删除
sql = "DELETE FROM Customers Where (CustomerID = 1)"c.Execute sqlEnd Sub