希望大侠帮助，不胜感激。

Question

Public Function gettime() As String
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.RecordsetOn Error GoTo ErrProcn.ConnectionString = "driver={SQL Server};" & _
"server=10.163.10.3;uid=trace;pwd=traceaeclmis;database=master"
cn.ConnectionTimeout = 300
cn.Open
cmd.ActiveConnection = cn
cmd.CommandText = "select convert(char(20),getdate(),120) as sys_date"
'cmd.ActiveConnection = cn
Set rst = cmd.Execute
gettime = rst(0)
rst.Close
cn.Close
Exit FunctionErrPro:
gettime = Format(Now(), "YYYY-mm-DD HH:mm:ss")
End Function
这是用VB 标准DLL 模板编写的一个取服务器时间的函数。 
以上这段代码只能返回这个时间的第一个字符，也就是“2”，为什么？ 
怎么解决

Answer 1

代码在我这测试没有问题，请注掉On Error GoTo ErrPro
然后跟踪调试。。

Answer 2

本函数没问题的，指示封装到dll里以后就只能返回首字母了。

Answer 3

已经回答过了,重复帖
不用通过标准dll模板生成dll,在你的程序里直接加上这个函数,返回应没有问题,另外这个函数只适用与连接sql server,不能用与oracle
集成到标准dll里返回字符串可能有问题