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

[wzn0521]

http://expert.csdn.net/Expert/topic/1305/1305985.xml?temp=.4239313

[tollers]

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，就按用户设定的赋值

[tollers]

我觉得只是改变datasource那里就行了，如果是access的话，DataEnvironment1.Connection1.ConnectionString = DataBaseName应该可以

[wzn0521]

谢谢这位仁兄，这个问题昨天晚上我已经发现了。但是我还是赋值不上。我用的是ACCESS数据库，有密码。想动态的使用DataEnvironment1.Connection1.ConnectionString 好连接数据库。请问我该怎么赋值？谢谢，兄弟我急用，你今天还在吗？

[wzn0521]

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

也就是说，在设计的时候，先指定一个ConnectionString，想动态改变数据库的时候，只要DataEnvironment1.Connection1.ConnectionString = DataBaseName就可以了。是这样吗？

[gump2000]

'返回连接字串
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: 数据库密码

[symyx]

一个很优秀的报表控件
http://easyprint.vip.myrice.com/chinese/