必須引用ado及crystal report9 activex designer design time library(internal)
還必須使用控件 crystal report viewer contral
priver sub form_load()
dim strsql as string
Dim i As Integer
dim capp As New CRAXDRT.Application
dim carp As New CRAXDRT.Report
dim cn as new adodb.connection
dim rs as new adodb.recordset
If cn.State = adStateOpen Then cn.Close
With cn
.Provider = "sqloledb"
.ConnectionString = "data source=dd;initial catalog=dfd;user id=sa;password=aaa"
.Open
End With
strsql="select * from tabname"
If rs.State = adStateOpen Then rs.Close
With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.Open strsql, cn, adOpenDynamic, adLockOptimistic
End With
Set carp = capp.OpenReport("E:\reports\finisher.rpt")
For i = 1 To carp.Database.Tables.Count
If carp.Database.Tables.Item(i).Name = "ado" Then
carp.Database.Tables(i).SetDataSource rs
End If
Next
crviw.ReportSource = carp
crviw.ViewReport
crviw.Zoom 100
end sub