В Visual Studio Embedded Crystal Report выдается запрос на вход в базу данных? - PullRequest
Новая
       22

В Visual Studio Embedded Crystal Report выдается запрос на вход в базу данных?

1 голос
/ 21 октября 2009

Я использую Visual Studio 2005 для разработки формы с помощью комбинированного списка, передающего значение в параметр отчета о встроенном кристалле. Я пытаюсь выяснить, почему он постоянно запрашивает у меня вход в базу данных каждый раз, когда вы пытаетесь запустить отчет с другим выбором в выпадающем списке.

Вот мой код: 

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

Я посмотрел эту предыдущую публикацию приглашение для входа в базу данных с отчетами Crystal

но это было не очень полезно. Я не мог найти, где CMC должен был отключить подсказку.

Есть идеи? заранее спасибо

1 Ответ

1 голос
/ 22 октября 2009

разобрался. следующая строка была неправильной 

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

это должно быть так: 

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

приглашение для входа больше не отображается.

...