主题：求房态图的做法

我估计是这个select语句出问题了，可惜看不出是哪的问题

 

s = "Select '' As 房间号," & s.trim(",") & " from {客房信息表}"

 

 

 

我使用的是远程mssql数据库，语法上和本地FOXTABLE的内部数据源估计有区别吧？

lsy批评的对，我这个毛病是不好，取名太随意。

 

不过，你发给我的例子运行正常， 我使用远程数据库的数据表后， 替换代码，就出现错误提示，所以，我考虑应该是select 内部数据源和外部数据源的语法应该是有区别的。

指定外部数据源的写法

 

代码部分，看看是哪里错了

 

第一种写法：

 

Dim cmd As New SQLCommand

 

cmd.C

cmd.CommandText =  "Select '' As 房间号," & s.trim(",") & " from {客房信息表远程}"
s=cmd.commandtext
's = "Select '' As 房间号," & s.trim(",") & " from {客房信息表远程}"
Dim dt As DataTable = DataTables("房态表_Table1")
dt = cmd.ExecuteReader()
dt.Fill(s ,True)

 

运行后，提示  '8' 附近有语法错误。

可是 没见到代码中哪里有 '8' 啊

 

 
此主题相关图片如下：8.jpg


此主题相关图片如下：82.jpg

 

第二种写法：

 

s = "Select '' As 房间号," & s.trim(",") & " from {客房信息表远程}"
Dim dt As DataTable = DataTables("房态表_Table1")
dt.Fill(s,"zcltoursql2005" ,True)

 

会提示如下错误

 

此主题相关图片如下：sql.jpg


此主题相关图片如下：sql2.jpg

第一种写法里的 疏忽。

 

cmd.c = c m d . C o n n e c t i o n N a m e  =  " z c l t o u r s q l 2 0 0 5 "

 

设置远程数据源名称，奇怪的是，无法显示，只好加字母和空格来显示内容

 

还是无法解决远程数据源的问题。

lsy最后发来的代码里没有设置外部数据源，不需要设置吗？

我写的代码里肯定是有错的地方。

Dim mon As Integer = Date.Today.Month
Dim days As Integer = Date.DaysInMonth(Date.Today.Year,Date.Today.Month)
Dim s As String
For j As Integer = Date.Today.day  To days
    s + = "' ' As " & mon & "月" & j & "日,"
Next
s = "Select  [_Identify], '        ' As 房间号 ," & s.trim(",") & "    from {客房信息表} order by 排序  "

Dim dt As DataTable = DataTables("房态表_Table1")

dt.Fill( s , "zcltoursql2005", True)

 

 

上面的select语法有错误，zcltousql2005是外部mssql数据源。

 

我估计是   " & s.trim(",") & "    写的不对，因为把这段删掉，可以列出表。

 

有关fill的详细语法解释在哪里？ 这个select的结果应该是把房间号作为房态表_table1的行， s作为列吧？

 

 

这个时间列用在内部表的时候是可以的， 用在外部表的时候就出错了， 不知道该怎么改写这个代码。