以下就是我的DLL中的检索函数, Public Function Run(ByVal nbh As String, Optional kh_mc As String) As String Dim rsA As New ADODB.Recordset Dim Fso As New FileSystemObject Dim Ts As TextStream Dim Filestring As String Set Ts = Fso.OpenTextFile(App.Path & "\comlog.txt", ForWriting, False) Ts.Write "conn开始:" & Now & vbCrLfSet ConnMain = New ADODB.Connection ConnMain.Open P_ADOConnOracle Ts.Write "conn完成:" & Now & vbCrLfrsA.Open "select khmc from yd_yhzl where bh='" & nbh & "'", ConnMain, adOpenStatic Ts.Write "select完成:" & Now & vbCrLfkh_mc = rsA!khmc Ts.Write "赋值完成:" & Now & vbCrLfEnd Function以下是LOG文件的内容: conn开始:2004-3-30 19:35:59 conn完成:2004-3-30 19:36:03 select完成:2004-3-30 19:36:05 赋值完成:2004-3-30 19:36:06而我如果在别的机子上执行,只要不到半秒就出结果了 服务器调用DLL出了什么问题啊!
但我不想重装系统啊,好多配置的,而且服务器还没光驱,晕死
Public Function Run(ByVal nbh As String, Optional kh_mc As String) As String
Dim rsA As New ADODB.Recordset
Dim Fso As New FileSystemObject
Dim Ts As TextStream
Dim Filestring As String
Set Ts = Fso.OpenTextFile(App.Path & "\comlog.txt", ForWriting, False)
Ts.Write "conn开始:" & Now & vbCrLfSet ConnMain = New ADODB.Connection
ConnMain.Open P_ADOConnOracle
Ts.Write "conn完成:" & Now & vbCrLfrsA.Open "select khmc from yd_yhzl where bh='" & nbh & "'", ConnMain, adOpenStatic
Ts.Write "select完成:" & Now & vbCrLfkh_mc = rsA!khmc
Ts.Write "赋值完成:" & Now & vbCrLfEnd Function以下是LOG文件的内容:
conn开始:2004-3-30 19:35:59
conn完成:2004-3-30 19:36:03
select完成:2004-3-30 19:36:05
赋值完成:2004-3-30 19:36:06而我如果在别的机子上执行,只要不到半秒就出结果了
服务器调用DLL出了什么问题啊!