怎么我的问题老是没人回复?再花100分——在线等待

wzn0521 2002-12-27 09:08:34
http://expert.csdn.net/Expert/topic/1305/1305985.xml?temp=.4239313
...全文
5 点赞 收藏 6
写回复
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
symyx 2002-12-28
一个很优秀的报表控件
http://easyprint.vip.myrice.com/chinese/
回复
gump2000 2002-12-28
'返回连接字串
Public Function QueryConnectionString() As String
QueryConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SYSDATABASE & _
";Persist Security Info=False;Jet OLEDB:Database Password=" & DataBasePWD
End Function

SYSDATABASE: 数据库路径
DataBasePWD: 数据库密码
回复
wzn0521 2002-12-28
早上我试的时候突然发现一个问题,当我在设计的时候指定了DataEnvironment1.Connection1.ConnectionString,我运行到上面的第二个msgbox的时候,它的值并没有消失,当我把"xxx"写成我想要的数据库的名字的时候,它自动就变成了我想要的数据库了。不知道你是否明白了我的意思。

也就是说,在设计的时候,先指定一个ConnectionString,想动态改变数据库的时候,只要DataEnvironment1.Connection1.ConnectionString = DataBaseName就可以了。是这样吗?
回复
wzn0521 2002-12-28
谢谢这位仁兄,这个问题昨天晚上我已经发现了。但是我还是赋值不上。我用的是ACCESS数据库,有密码。想动态的使用DataEnvironment1.Connection1.ConnectionString 好连接数据库。请问我该怎么赋值?谢谢,兄弟我急用,你今天还在吗?
回复
tollers 2002-12-28
我觉得只是改变datasource那里就行了,如果是access的话,DataEnvironment1.Connection1.ConnectionString = DataBaseName应该可以
回复
tollers 2002-12-27
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=fs_jls;Data Source=DEVELOPER;Pwd=xxx"
MsgBox strConn

DataEnvironment1.Connection1.ConnectionString = ""
MsgBox DataEnvironment1.Connection1.ConnectionString

DataEnvironment1.Connection1.ConnectionString = "xxx"
MsgBox DataEnvironment1.Connection1.ConnectionString

DataEnvironment1.Connection1.ConnectionString = strConn
MsgBox DataEnvironment1.Connection1.ConnectionString

运行这段代码后你会清楚了,ConnectionString的初始值是Provider = MSDASQL.1,给ConnectionString赋值默认是赋给DataSource的,第三个msgbox显示Provider = MSDASQL.1;DataSource=xxx,若给ConnectionString赋值中包含了Provider和DataSource,就按用户设定的赋值
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

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