Vb.net Visual Studio Embedded Crystal Report不断提示数据库登录?
我正在使用VisualStudio2005开发一个表单,其中一个组合框将值传递到嵌入式crystal报表的参数中。我试图弄明白为什么每次您尝试使用不同的组合框选择运行报表时,它总是提示我登录数据库 这是我的密码:Vb.net Visual Studio Embedded Crystal Report不断提示数据库登录?,vb.net,visual-studio,ado.net,crystal-reports,Vb.net,Visual Studio,Ado.net,Crystal Reports,我正在使用VisualStudio2005开发一个表单,其中一个组合框将值传递到嵌入式crystal报表的参数中。我试图弄明白为什么每次您尝试使用不同的组合框选择运行报表时,它总是提示我登录数据库 这是我的密码: private Sub Form1_load... Dim ConnName As String Dim ServerName As String Dim DBName As String Dim user As Str
private Sub Form1_load...
Dim ConnName As String
Dim ServerName As String
Dim DBName As String
Dim user As String
Dim pass As String
Dim gDBA As ADODB.Connection
Dim records As ADODB.Recordset
Dim datver As ADODB.Recordset
Dim query As String
'---OPEN THE DATABASE CONNECTIONS
gDBA = New ADODB.Connection ': gDBA.CursorLocation = adUseServer
'Added to prevent time out error
gDBA.CommandTimeout = 1000 : gDBA.ConnectionTimeout = 1000
gDBA.ConnectionString = "Server=svr13;Database=subscribers;User ID=KViews;Password=Solution;Trusted_Connection=True;"
gDBA.Open("Data Source=Kaseya;Initial Catalog=subscribers;User Id=KViews;Password=Solution;", "KViews", "Solution")
records = New ADODB.Recordset
query = "select distinct groupname from _v_k order by groupname desc"
'records.ActiveConnection = gDBA.ConnectionString
records.CursorType = CursorTypeEnum.adOpenForwardOnly
records.LockType = LockTypeEnum.adLockReadOnly
records.Open(query, gDBA)
Do While Not records.EOF
ComboBox1.Items.Add(records.Fields("groupname").Value)
records.MoveNext()
Loop
end Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim selected As String
selected = ComboBox1.Text
Dim cryRpt As New ReportDocument
cryRpt.Load("C:\Visual Studio 2005\Projects\WindowsApplication1\WindowsApplication1\CrystalReport1.rpt")
cryRpt.SetDatabaseLogon("KViews", "Solutions", "svr13", "subscribers")
cryRpt.SetParameterValue("companyname", selected)
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()
End Sub
我看了之前的帖子
但这并不是很有帮助。我找不到CMC要禁用提示的位置
有什么想法吗?提前谢谢把它弄明白了。下面的行不正确
cryRpt.SetDatabaseLogon("KViews", "Solutions", "svr13", "subscribers")
应该是这样的:
cryRpt.SetDatabaseLogon("KViews", "Solutions")
登录提示不再显示。解决了。下面的行不正确
cryRpt.SetDatabaseLogon("KViews", "Solutions", "svr13", "subscribers")
应该是这样的:
cryRpt.SetDatabaseLogon("KViews", "Solutions")
登录提示不再显示。因此,当您第一次运行报告时,它不会提示您,但当您更改组合框的选择以再次运行报告时,它会提示您?这两次都会提示我。。当我第一次尝试运行它时,以及当我选择另一个组合框值再次运行时,它不会在您第一次运行报告时提示您,而是在您更改组合框的选择以再次运行报告时提示您?这两次都会提示我。。当我第一次尝试运行它时,以及当我选择另一个combobox值再次运行时。