访问工作室嵌入式晶体报告不断提示数据库登录？ [英] visusal studio embedded crystal report keeps prompting database login?

问题描述

我使用visual studio 2005来开发一个带有combobox的表单，它将一个值传递给嵌入式水晶报表的参数。我试图找出为什么它一直提示我进行数据库登录每次尝试运行报告与不同的组合框选择。

I'm using visual studio 2005 to develop a form with a combobox passing a value into the parameter of an embedded crystal report. I'm trying to figure out why it keeps prompting me for a database login every single time you try to run the report with a different combobox selection.

这是我的代码：

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在哪里禁用提示。

but this wasn't very helpful. I couldn't find where a CMC was to disable the prompt.

有什么想法吗？提前感谢

Any ideas? thanks in advance

推荐答案

想出来。以下行不正确

    cryRpt.SetDatabaseLogon("KViews", "Solutions", "svr13", "subscribers")

它应该是这样：

    cryRpt.SetDatabaseLogon("KViews", "Solutions")

登录提示不再显示。

这篇关于访问工作室嵌入式晶体报告不断提示数据库登录？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！