主题：[求助] 优化代码

 

 

 

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

 

老师  您好   您帮我看一下这段代码能不能简化  

 

本来是直接粘贴在这里的  然后显示错误   没办法只能搞成图片了  谢谢您

直接写sql语句，然后用 ExecuteReader得到表格，取第一行数据即可

 

Select 加密1区, 加密2区 from {试用加密} where 项目 = '开发管理'

老师 能不能帮我写一下  搞了半天没有搞懂  谢谢啦

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