[求助]SQLCommand问题（还没解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]SQLCommand问题（还没解决）

共有7873人关注过本帖树形打印复制链接主题：[求助]SQLCommand问题（还没解决）

小猪鑫鑫

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00

Post By：2012/4/28 20:44:00 [显示全部帖子]

cmd.CommandText = sql
dt = cmd.ExecuteReader()
楼主：你的第一行的命令代码只有“sql”三个字符，没有内容啊

小猪鑫鑫

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：832 积分：5867 威望：0 精华：6 注册：2011/5/27 11:41:00

Post By：2012/4/29 8:49:00 [显示全部帖子]

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = sql
dt = cmd.ExecuteReader()
If dt.DataRows.Count>0 Then
For Each dr As DataRow In dt.DataRows
Dim tr As Row = Tables("资产折旧").addnew

    tr("编号")=dr("编号")
    tr("类别")=dr("类别")
    tr("名称")=dr("名称")
    tr("状态")=dr("状态")
    tr("折旧原值")=dr("原值")
    tr("残值率")=dr("残值率")
    tr("折旧月数")=dr("月数")

next
else

MessageBox.Show("无数据")
end if
楼主:因没原文件,所以没法测试,但你可以试一下这个

下一主题 >> << 上一主题

主题：[求助]SQLCommand问题（还没解决）