关于水晶报表4.6的ADO连接

Question

如用odbc则：
Report1.Connect = "dsn=数据源名称;uid=admin;pwd=12345;"如直接指向文件则：
Report1.Connect = "pwd=12345"

Answer 1

If Right(App.Path, 1) = "\" Then
          Cry1.Connect = "ODBC;DATABASE=" & App.Path & "DATA\ZLGYSR.MDB;UID=;PWD=;DSN=ZLGYS"
        Else
          Cry1.Connect = "ODBC;DATABASE=" & App.Path & "\DATA\ZLGYSR.MDB;UID=;PWD=;DSN=ZLGYS"
        End If
        Cry1.SQLQuery = ""
  
        Cry1.Destination = crptToWindow
        On Error GoTo ERRREP
        If Right(App.Path, 1) = "\" Then
          Cry1.ReportFileName = App.Path & "REPORTS\gys.rpt"
        Else
          Cry1.ReportFileName = App.Path & "\REPORTS\gys.rpt"
        End If
  
        Cry1.WindowState = crptMaximized
        Cry1.Action = 1