'各项查询条件为空的时候用 1=1来代替
成都创新互联公司"三网合一"的企业建站思路。企业可建设拥有电脑版、微信版、手机版的企业网站。实现跨屏营销，产品发布一步更新，电脑网络+移动网络一网打尽，满足企业的营销需求！成都创新互联公司具备承接各种类型的网站建设、成都网站建设项目的能力。经过十多年的努力的开拓，为不同行业的企事业单位提供了优质的服务，并获得了客户的一致好评。
'例如：
tmpSelIDStr=Trim(txtSelectId.Text)
if tmpSelIDStr="" then
tmpSelIDStr=" 1=1 "
Else
tmpSelIDStr=" 员工编号='" tmpSelIDStr "'"
End If
'同理其它的都这么处理
'最后合并起来
sqlstr="select ..... from .... where " tmpSelIDStr " and " tmp ....
'不知道这样回答你是否可以理解
系统bug，网络问题。
1、系统bug是vb.nettsql数据库软件系统出现了问题导致数据表不存在，等待官方修复即可。
2、网络问题是自身设备连接的网络出现较大波动，导致vb.nettsql数据库软件不存在，更换网络重新打开即可。
select * from 表 where
(case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end+
case when 条件 then 1 else 0 end) BETWEEN 2 and 5
你把编程语言和T-SQL语言搞混了。
如果是单纯的T-SQL语言，应该是Select * from Data where ID in (1,2,3,4,5,6)，其中(1,2,3,4,5,6）就是你所说的数组的代表。
所以你要把num(i)转化为一个(1,2,3,......)这样的字符串
以下是完整模块
Imports
System.Data
Imports
System.IO
Imports
System.Data.OleDb
Module
Module1
Public
cn
As
New
OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
Application.StartupPath
"\mdb数据库名字.mdb")
'定义连接
Public
DataBaseRST
As
Integer
'用来返回数据库执行结果
Public
Function
DataModify(ByVal
str
As
String)
As
Boolean
'进行数据库修改操作
Dim
cmdinsert
As
New
OleDbCommand
Try
cmdinsert.CommandText
=
str
cmdinsert.Connection
=
cn
If
cn.State
=
ConnectionState.Closed
Then
cn.Open()
DataBaseRST
=
cmdinsert.ExecuteNonQuery()
'用来返回执行的结果
cn.Close()
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
Public
Function
Search(ByVal
str
As
String,
ByVal
DGV
As
DataGridView)
As
Boolean
'查询
str---查询命令，DGV---DataGridView，用来显示数据的控件
Dim
tb
As
New
DataTable
Try
Dim
ap
As
New
OleDb.OleDbDataAdapter(str,
cn)
ap.Fill(tb)
DGV.DataSource
=
tb
Return
True
Catch
ex
As
Exception
MessageBox.Show(Err.Description,
"Error",
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return
False
End
Try
End
Function
End
Module
'以下是调用方法
DataModify("
insert
into
aa
values
('1','2')")'-------这里是数据库更新操作
Search("select
bb
from
aa",DataGridView1)'-----------这里是数据表查询操作
