请问：SQL & Access前辈高手（疯狂加分）

[tigeror]

如何用程序或SQL语句 创建、修改、删除，Access数据库中的查询

比如创建一条名为“aaa_bbb”的查询
比如修改一条名为“aaa_bbb”的查询（加上Where条件语句）
比如删除一条名为“aaa_bbb”的查询



Email: [e-mail]

[hikylin]

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
則不能添加到數據庫容器中

[gmc007]

同意楼上

http://www.csdn.net/Expert/topic/442/442453.shtm

[yuegang]

用ado也可以.
Private Sub Command1_Click()
Dim c As ADODB.Connection
Dim sql As String
'''''''更新查询
Set c = New ADODB.Connection

c.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 sql

End Sub