请看一看我的代码,请问为何向DLL中传字符串不成功?
aloka 2003-01-14 04:41:48 请看一看我的代码,请问为何向DLL中传字符串不成功?
'########## dll中的类模块代码
Public path As String
Public Sub hjsf(ByVal path As String)
myfrm.Tag = path
myfrm.Show vbModal
End Sub
'########## dll中的窗体代码
Private Sub Form_Load()
MsgBox path '是空的
MsgBox Me.Tag '是空的
Adodc4.ConnectionString = path
Adodc4.CommandType = adCmdText
Adodc4.RecordSource = "select * from 科室 "
Adodc4.Refresh
'########## 调用dll的工程代码
Public PATH As String '数据库路径
PATH = "Provider=SQLOLEDB.1;password=aa;Persist Security Info=False;User ID=sa;Initial Catalog=zz;Data Source=server
Call ghjsf.hjsf(PATH)