VB和oracle对接遇到关于SQL语句问题

Question

oraclesql语句长

Answer 1

发现出问题的地方了也找到解决的办法了，贴出代码给遇到同样问题的童鞋看看：Private Sub Command1_Click()
    conn.ConnectionString = connstr
    connstr = "Provider=OraOLEDB.Oracle;Data Source=hdqt_db;User Id=dbusrhq;Password=futurehq"
    conn.Open connstr
    rs.CursorLocation = adUseClient
    strsql = "select ta.gbid ""商品代码"",ta.gbbarcode ""商品条码"", "
    strsql = strsql & "ta.gbcname ""商品名称"",ta.gbspec""规格"",ta.gbunit ""计量单位"","
    strsql = strsql & "ta.gbsupid ""主营供应商"",tb.gmfmfid ""柜组"" "
    strsql = strsql & "from goodsbase ta,goodsmframe tb,"
    strsql = strsql & "(select gmfgdid,gmfmfid from goodsmframe "
    strsql = strsql & "where gmfstatus = 'Y' and gmfet = '1003' and gmfmfid = '10030111' "
    strsql = strsql & "minus select distinct jglgdid, jglmfid from jxcgoodslist where jgltran <> 'E' "
    strsql = strsql & "and (jxcgoodslist.jglfsdate >=to_date ('2014-03-09', 'yyyy-mm-dd') "
    strsql = strsql & "and jxcgoodslist.jglfsdate < to_date ('2014-06-09', 'yyyy-mm-dd')+1)"
    strsql = strsql & "and jglmfid = '10030111' minus select distinct jglgdid, jglmfid from jxcgoodslist "
    strsql = strsql & "where jgltran = '1' and 'jxcgoodslist.jgldate' = 'jxcgoodslist.jgldate' "
    strsql = strsql & "and (jxcgoodslist.jglfsdate >= to_date('2014-05-09', 'yyyy-mm-dd')"
    strsql = strsql & "and jxcgoodslist.jglfsdate < to_date('2014-06-09', 'yyyy-mm-dd') + 1)"
    strsql = strsql & "and jglmfid = '10030111') tc "
    strsql = strsql & "where ta.gbid = tb.gmfgdid and tc.gmfgdid = tb.gmfgdid "
    strsql = strsql & "and ta.gbid = tc.gmfgdid and tb.gmfmfid = '10030111' "
    strsql = strsql & "order by ta.gbid"
    rs.Open strsql, conn, adOpenKeyset, adLockPessimistic
    Set DataGrid1.DataSource = rs
    MsgBox "查询完成！", , "成功提示"
End Sub如果还有别的更好方法欢迎交流学习