我是這樣寫的(用OLE方式連接SQL SERVER數據庫):Dim Report As New CrystalReport1
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strconn As String
Dim sql As String
Set conn = New ADODB.Connection
strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=sr-korn"
conn.CursorLocation = adUseClient
conn.Open strconn
Set rs = New ADODB.Recordset
sql = "select * from ssitemnobox"
rs.Open sql, conn, adOpenStatic, adLockOptimistic
Report.DiscardSavedData
Report.Database.SetDataSource rs就是著句老是不能通過,為什麼啊?
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strconn As String
Dim sql As String
Set conn = New ADODB.Connection
strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=sr-korn"
conn.CursorLocation = adUseClient
conn.Open strconn
Set rs = New ADODB.Recordset
sql = "select * from ssitemnobox"
rs.Open sql, conn, adOpenStatic, adLockOptimistic
Report.DiscardSavedData
Report.Database.SetDataSource rs就是著句老是不能通過,為什麼啊?
[email protected]