- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 优化代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94834)
-- 发布时间：2017/1/3 15:53:00
-- [求助] 优化代码
此主题相关图片如下：5898.jpg
老师 您好 您帮我看一下这段代码能不能简化
本来是直接粘贴在这里的 然后显示错误 没办法只能搞成图片了 谢谢您
-- 发布时间：2017/1/3 16:17:00
--
直接写sql语句，然后用 ExecuteReader得到表格，取第一行数据即可
Select 加密1区, 加密2区 from {试用加密} where 项目 = \'开发管理\'
-- 发布时间：2017/1/3 17:05:00
--
老师 能不能帮我写一下 搞了半天没有搞懂 谢谢啦
-- 发布时间：2017/1/3 17:56:00
--
Dim cmd As New SQLCommand
cmd.ConnectionName = "data"
Dim dt As DataTable
cmd.CommandText = "Select 加密1区, 加密2区 from {试用加密} where 项目 = \'开发管理\'"
dt = cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
msgbox(dt.DataRows(0)("加密1区"))
msgbox(dt.DataRows(0)("加密2区"))
End If