作者: achieve202 时间: 2007-2-14 05:46
这里太好,可以了解很多技术.作者: yap008 时间: 2007-3-7 00:16
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