欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 關于VB的水晶報表程序問題 [打印本頁]

作者: heyang619834109 時間: 2019-3-11 10:18
標題: 關于VB的水晶報表程序問題
這是一段水晶報表的程序，程序如下
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) & ""調用表的數據
Set Rs = Cn.Execute(Strsql)
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = CrystalReport6
CrystalReport6.Database.SetDataSource Rs
CrystalReport6.ReadRecords
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
End Sub

運行之后提示from子句語法錯誤，但是用
Set Rs = Cn.Execute("select DMEA,HKLA From hy18"又是對的，為什么無法用sql語句呢

作者: 菜鳥來了 時間: 2019-3-11 10:18
問題解決了沒有。

作者: heyang619834109 時間: 2019-3-11 10:51
網上說修改ADOC的.CommandType = adCmdTable就可以，但是我用的ADODB，不知道該增加什么命令

作者: 菜鳥來了 時間: 2019-3-11 14:09

Strsql = "select DMEA,HKLA From " & chr(32) & "" & trim(text5.text) & "" & chr(32) & ""

復制代碼

這里chr(32)是空格的意思，雖然手動空格也可以，不過為了編碼清晰，用了chr(32)。

作者: 菜鳥來了 時間: 2019-3-11 14:26
我在板凳寫的代碼，用到你的程序中，其實后面一個chr(32)可以不加，我給你加上是方便你做sql語句擴展，比如添加排序。

作者: heyang619834109 時間: 2019-3-14 09:41

菜鳥來了發表于 2019-3-11 10:18
問題解決了沒有。

無論如何還是很感謝您的回復。后來我發現是我自己在編程時邏輯出了點問題，已經改正過來了。

歡迎光臨 (http://www.raoushi.com/bbs/)