在Excel中操纵Access数据库的例子

yap008

Public Function mgxs(kzjb As String, tjb As String, gjjb As String, gjzhij As String)
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = DBEngine.OpenDatabase("f:\msoffice\gj.mdb")
Set rs = db.OpenRecordset("selsct 锚固长度系数 from mgxs where 抗震级别='" & kzjb & "' and 砼级别='" & tjb & "' and 钢筋级别='" & gjjb & " and 钢筋直径='" & gjzhij & "'")
mgxs = rs.Fields!锚固长度系数
db.Close
End Function

请教一下，为什么我的这个函数运行不了？

TXGJ21

支持,谢谢

sc001

看看先，谢谢

zhanghong64

下载下来研究一下!

donfen41

谢谢！

ljtao8888

看下先

ptsea

如题

gurenhua

先谢谢一个

linag516

谢谢分享

inputlgh

1111111111111111111