亚洲春色中文字幕久久久-三上亚,一吻二脱三床四吻胸,国产真实伦对白视频全集,在线毛片观看,精品成品入口黄网,国产毛aⅴ片久久久,亚洲AV色香蕉一区二区三区老师,萧皇后A级艳片,色情日本视频更新,99久久亚洲精品日本无码

標(biāo)題: 關(guān)于VB的水晶報(bào)表程序問題 [打印本頁(yè)]
作者: 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子句語(yǔ)法錯(cuò)誤，但是用
Set Rs = Cn.Execute("select DMEA,HKLA From hy18"又是對(duì)的，為什么無法用sql語(yǔ)句呢
作者: 菜鳥來了    時(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
  1. 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語(yǔ)句擴(kuò)展，比如添加排序。
作者: heyang619834109    時(shí)間: 2019-3-14 09:41
菜鳥來了 發(fā)表于 2019-3-11 10:18
問題解決了沒有。

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



歡迎光臨 (http://www.denmoz.com/bbs/) Powered by Discuz! X3.1