|
|
5黑幣
這是一段水晶報(bào)表的程序，程序如下
Private Sub Form_Load()
Dim Strsql As String
If Cn.State = adStateOpen Then
Else
Cn.CursorLocation = adUseClient
Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lujingData.mdb;Persist Security Info=False"
End If
Rs.CursorLocation = adUseClient
Strsql = "select DMEA,HKLA From " & Trim$(Text5) & ""調(diào)用表的數(shù)據(jù)
Set Rs = Cn.Execute(Strsql)
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = CrystalReport6
CrystalReport6.Database.SetDataSource Rs
CrystalReport6.ReadRecords
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub
運(yùn)行之后提示from子句語法錯(cuò)誤，但是用
Set Rs = Cn.Execute("select DMEA,HKLA From hy18"又是對(duì)的，為什么無法用sql語句呢
|
|
QQ好友和群
QQ空間
騰訊微博
騰訊朋友
收藏
淘帖
頂
踩
