求救 vb连access语句出错

leoo

Private Sub Refresh_Layer()
  Dim strSch As String
  strSch = ""
  If Len(Trim(dco_Bld.Text)) > 0 Then
    strSch = " And BuildingNo='" + Trim(dco_Bld.BoundText()) + "'"
  End If
  '设置数据源
  Adodc1.ConnectionString = Conn
   Adodc1.RecordSource = "SELECT LayerId As 楼层编号,Roomnum As 房间数," _
    + "BuildingNo As 建筑物名称,LayerNo As 具体楼层" + strSch _
    + "Memos As 备注信息 FROM Layer ORDER BY LayerNo"
  Adodc1.Refresh
  Set DataGrid1.DataSource = Adodc1
  DataGrid1.Columns(0).Width = 0  '编号
  DataGrid1.Columns(1).Width = 1200  '房间数
  DataGrid1.Columns(2).Width = 1200  '建筑物编号
  DataGrid1.Columns(3).Width = 1000  '具体搂层
  DataGrid1.Columns(4).Width = 1000  '备注信息
End Sub



提示:FROM语句出错

寂寞

最起码也要把错误信息复制出来给人看吧！

leoo

I'M SORRY.我下次会注意的了.还有,问题已解决了.谢谢大家

iptton

解决了能否说下如何解决？也许明天就有人和你遇到完全一样的问题..

leoo

太久没看这帖子了,忘了,具体问题具体分析好了

leoo

太久没看这帖子了,忘了,具体问题具体分析好了