189 8069 5689
定义一个公共变量或者全局变量
创新互联专注于企业成都全网营销推广、网站重做改版、贵州网站定制设计、自适应品牌网站建设、HTML5建站、商城网站建设、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为贵州等各大城市提供网站开发制作服务。
Public Class Form1
Private aa As String
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
aa=“”'在加载的时候定义sql语句
end sub
然后sub中就可以直接使用aa了
Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='cc'"
这句写错啦,你直接传送的是检测项目为字符串"cc"的参数,并不是你程序写的CC参数
改为:
Dim da As String = "SELECT Count(检测项目) FROM b where 检测项目='" cc "'"
建议通过程序组织的sql语句可以通过msgbox da 弹出来看看,这样你较容易查出是什么错误,较长的就用textbox1.text=da来看了,不过记得设置断点"exit sub"
使用ACCESS数据库的日期列比较，应为：
"select * from 表 where 日期列=" "#" cdate(textbox1.text) "#"
注意前后两个“#”号
使用sqlserver
"select * from 表 where 日期列=" "'" cdate(textbox1.text) "'"
当然日期格式要注意，如长短日期等。
日期期间:between 小日期 and 大日期(记得加#号)
vb中可以使用+连接字符串，
也可以使用连接字符串，
建议使用连接字符串，以区别数学运算符+。
1、建立一个txt文档
2、改扩展名为*.udl
3、双击运行-》提供程序SQL Native Client
4、连接-》数据源为当前sql 服务器
5、设置登陆方式
6、选择连接的数据库
7、测试连接
8、关闭
9、用记事本打开
10、把记事本里的内容 由provider···开始复制到constring