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

標(biāo)題: 關(guān)于VB的水晶報(bào)表程序問題 [打印本頁]

作者: heyang619834109 時(shí)間: 2019-3-11 10:18
標(biāo)題: 關(guān)于VB的水晶報(bào)表程序問題
這是一段水晶報(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語句呢

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

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

作者: 菜鳥來了 時(shí)間: 2019-3-11 14:09

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

復(fù)制代碼

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

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

作者: heyang619834109 時(shí)間: 2019-3-14 09:41

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

無論如何還是很感謝您的回復(fù)。后來我發(fā)現(xiàn)是我自己在編程時(shí)邏輯出了點(diǎn)問題，已經(jīng)改正過來了。

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