vba 访问 SQLserver的方法

VBA调用SQLSERVER的自定义函数
调用返回记录的函数
Public Function GetBillLdNO(BillCode As String) As String
GetBillLdNO = Trim(CurrentProject.Connection.Execute("SELECT * FROM dbo.Fun_GetBillLDNO('" & BillCode & "')")(0))
End Function

调用返回字符串的函数
Public Function GetMaxNo(Noname As String, LikeStr As String, SLen As Integer) As String
GetMaxNo = LikeStr & Format(CurrentProject.Connection.Execute("SELECT dbo.Fun_GetMaxNO('" & Noname & "','" & LikeStr & "')")(0), CStr(Left("000000", SLen)))
End Function

用VBA从SQLServer提取数据到Excel中

Sub cc()
'意思是说, 定义一个叫CC的宏
Dim qt As QueryTable
' 定义一个查询表
sqlstring = "SELECT t_item.FName FROM AIS20060414142400.dbo.t_item t_item WHERE t_item.FNumber<'9000') ORDER BY t_item.FNumber"
'定义一句SQL的查询语言内容到sqlstring里去, 以备调用. 说的是, 从AIS20060414142400库的t_item表里面, 去