请看一看我的代码,请问为何向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)
...全文
2 点赞 收藏 4
写回复
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
ProgrameMan 2003-01-14
同意 of123
回复
lxcc 2003-01-14
up of123()
回复
of123 2003-01-14
'Public path As String 去掉这句
Public Sub hjsf(ByVal path As String)

myfrm.Tag = path
myfrm.Show vbModal

End Sub
回复
MoQi_123 2003-01-14
将Public Sub hjsf(ByVal path As String)
中的ByVal去掉,改成ByRef
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告