ע²áÃû£º |
ÃÜÂ룺 |
|
ÉÌÎñÉêÇë |
ÉÌÎñ¹ÜÀíÆ½Ì¨ |
Dim app As New CRAXDRT.Application Dim rpt As CRAXDRT.Report Set rpt = app.OpenReport("C:\report.rpt", 1) ' 1 = open read-only
Set rpt = Nothing Set app = Nothing
' Suppress logon dialog rpt.Database.Tables(1).SetLogOnInfo "DSN=MyDB", "user", "pass"
| Ê×ҳ | ÐÂÎÅÖÐÐÄ | ¹¤¿ØÂÛ̳ | ¾ÑéÊÓµã | ¹¤¿ØÉÌÎñ | µçÆøÊÖ²á | ¹¤¿Ø²©¿Í | ÕÐÆ¸ÇóÖ°Â | ÍøÉϵ÷²é | ÆóÒµÖÐÐÄ | ¹©ÇóÐÅϢ | ×ÊÁÏÖÐÐÄ | ¹¤¿ØÊéµê |
|
ËùÔÚλÖãº×ÊÁÏÏÂÔØÖÐÐÄ -- Î÷ÃÅ×Ó×ÊÁÏ -- Î÷ÃÅ×ÓWinAC | Öйú¹¤¿ØÍøËÑË÷£º |
|
|
|
|
Dim app As New CRAXDRT.Application Dim rpt As CRAXDRT.Report Set rpt = app.OpenReport("C:\report.rpt", 1) ' 1 = open read-only
Set rpt = Nothing Set app = Nothing
' Suppress logon dialog rpt.Database.Tables(1).SetLogOnInfo "DSN=MyDB", "user", "pass"