以下代码怎么封装成公共语言类库？

Question

Public Function GetDatetime() As string
On Error goto ErrorProcess
 nStatus = SQL.Connect("DSN=eTrace;UID=etrace;PWD=123456")
 If nStatus=0 Then
  strSQL = " Select Convert(char(20),Getdate(),120) As TestDatetime "
  SQL.Execute("Select Getdate() as TestDatetime")
  While Not SQL.IsEOF
    sDateTime = SQL.FieldByName("TestDatetime")
    SQL.MoveNext
  Wend
  GetDatetime=Format(cdate(sDateTime),"mm-dd-yyyy hh:nn:ss")
 End If
 Exit Function
ErrorProcess:
 GetDatetime=Format(Now(),"mm-dd-yyyy hh:nn:ss")
End Function

Answer 1

麻烦楼主解释一下 “公共语言类库” 是 什么东东，我用了VBA这么久还真没有听说过呢。

Answer 2

原来楼主是说SQL中的CLR啊，我不太熟悉，不过查了一下好像不太困难，有一个官方文档可以参考一下，http://www.microsoft.com/china/msdn/library/data/sqlserver/sqlclrguidance.mspx?pf=true