ÒÔÏÂvbº¯ÊýÔõôת³ÉVC£¿

ûѧ¹ýVC£¬Ï£Íû´óÏÀ»¨Ò»·ÖÖÓ°ïתÏ¡£

VB code:
Option Explicit

Private Declare Function RtlMoveMemory Lib "Kernel32" (ByVal a As Long, ByVal b As String, ByVal c As Long) As Long

Function DLLMain(ByVal a As Long, ByVal b As Long, ByVal c As Long) As Long
DLLMain = 1
End Function

Sub Main()
'This is a dummy, so the IDE doesn't complain
'there is no Sub Main.
End Sub

Public Function gettime(ByVal n As Long)
Dim str As String
'Dim tmpstr As String
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
'Dim n As Long

On Error GoTo ErrPro
cn.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"
Set rst = cmd.Execute

str = CStr(rst(0))

Call RtlMoveMemory(n, str, Len(str) * 2 + 1)
Exit Function
'Á¬½Ó³ö´íºó·µ»Ø±¾µØʱ¼ä
ErrPro:
str = CStr(Format(Now(), "yyyy-MM-dd HH:mm:SS"))
Call RtlMoveMemory(n, str, Len(str) * 2 + 1)

End Function

---

.............................

---

ÈçÐèÒªÔĶÁ¸Ã»Ø¸´£¬ÇëµÇ¼»ò×¢²áCSDN!