[Vb.net] #CRYSTAL REPORT LOGON FAIL WITH PASSWORD PROTECTED ACCESS DATABASE

雨吟

原帖由 meemee 于 26-11-2005 03:32 PM 发表
要所有form 的textbox？
Example 2

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler TextBox1.KeyPress, AddressOf MyKeyPress
        AddHandler TextBox2.KeyPress, AddressOf MyKeyPress
    End Sub

    Private Sub MyKeyPress(ByVal o As [Object], ByVal e As KeyPressEventArgs)
        MsgBox("testing"
    End Sub

非常谢谢你的帮忙。。不过,我最后没有一行行的 AddHandler TextBox1.KeyPress, AddressOf MyKeyPress


我直接


Private Sub MyKeyPress(ByVal o As [Object], ByVal e As KeyPressEventArgs)handles textBox1.keypress,textbox2.keypress,textbox3.keypress
        MsgBox("testing"
    End Sub


嗯。。这样子放逗号看起来乱了点。。。不过，可以跑啦~...

雨吟

一生人第一单接的案子已经完成了95%,还有5%就是让user testing and deploy 了...希望没什么大问题~

呵呵~~衷心感谢你们帮助我的第一次~谢谢谢谢~

雨吟

我之前没有给ACCESS SET PASSWORD, 现在设定了。。。

程式依然可以跑。。。可是，CRYSTAL REPORT LOGON FAIL。。搜寻了很多，发现自己的编码和大家没什么差别...为什么会这样？

    Public rptCoupon As ReportDocument
    Dim crtableLogoninfos As New TableLogOnInfos
    Dim crtableLogoninfo As New TableLogOnInfo
    Dim crConnectionInfo As New ConnectionInfo
    Dim CrTables As Tables
    Dim CrTable As Table
  Dim crReportDocument As New ReportDocument

            crReportDocument.Load(couponPath)



            'Set the ConnectionInfo properties for logging on to
            'the Database



            With crConnectionInfo
                .ServerName = dataPath
                .DatabaseName = ""
                .UserID = "Admin"
                .Password = "atscrps"
            End With

         
            CrTables = crReportDocument.Database.Tables

                       For Each CrTable In CrTables
                crtableLogoninfo = CrTable.LogOnInfo
                crtableLogoninfo.ConnectionInfo = crConnectionInfo
                CrTable.ApplyLogOnInfo(crtableLogoninfo)

               


            Next

雨吟

似乎是CR9的bug........所以我解除data的密码了~~~~