共4 条记录, 每页显示 10 条, 页签: [1]

标题：有人通过VBA，操作数据库吗，给个示例，可以吗？

1楼

msedu 发表于：2010/8/26 11:57:45

Function DataInsert()
Set adoConn=Server.CreateObject("adodb.Connecttion")
adoConn.Open "Provider=microsof.jet.oledb.4.0;data source=F:\test.mdb“
strSql="Insert into Fu1011(Price,Bs,Pos) Values('5000','5','5')"
adoConn.Execute(strSql)
adoConn.Close
End Function

[此贴子已经被作者于2010-8-26 12:11:39编辑过]

2楼

wattwei 发表于：2010/8/26 12:31:06

你自己不是写了吗？
Function DataInsert()
Set adoConn=Server.CreateObject("adodb.Connecttion")
adoConn.Open "Provider=microsof.jet.oledb.4.0;data source=F:\test.mdb“
strSql="Insert into Fu1011(Price,Bs,Pos) Values('5000','5','5')"
adoConn.Execute(strSql)
adoConn.Close
End Function

3楼

wattwei 发表于：2010/8/26 12:43:21

如果没有返回值，使用例程Sub

4楼

msedu 发表于：2010/8/26 12:49:40

开心啊，成功了，正确代码如下：

'数据库操作
Function DataInsert()

'注意，不要使用：Server.CreateObject
Set adoConn=CreateObject("Adodb.Connection")
adoConn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=F:\test.mdb"
strSql="Insert into Fu1011(Price,Bs,Pos) Values('5000','5','5')"
adoConn.Execute(strSql)
adoConn.Close
End Function

共4 条记录, 每页显示 10 条, 页签: [1]