vb.net多条件查询 vb多条件查询数据库

再发一遍，求教VB.NET 不用If做qq查找用户那样的多条件查询系统的方法

if ”昵称“ = “喵星人” then

成都创新互联服务项目包括翔安网站建设、翔安网站制作、翔安网页制作以及翔安网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，翔安网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到翔安省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

if "年龄" = 18 then

if "性别" = “男” then

if "所在地" = “武汉” then

if "星座" = “魔蝎座” then

if "血型" = “O” then

else

end if

else

end if

else

end if

else

end if

else

end if

else

end if

你是说这个么？ 要是后面的值也有选项那就是得做集合了

VB.net多值查询ACCESS同一字段

你这已经完成一半了

然后就是应该申明一个表格，来接收语句操作的返回值

比如

dim

dt

as

datatable=comonmodule.sqlopera(strr,tablename)

dt.rows(0).columns(0).tostring

就是得到的结果的第一行第一列的值

我以

你的

sqlopera

是自己写的一个方法，可以返回一个表，作为条件。

VB.NET查表

直接打开EXCEL用CTRL+F ，可以直接定位到符合条件的数据；或用指定条件筛选

求教啊求教，关于在VB.NET中不定项多条件查询的难题

这个只能是一一判断的：

为了叙述简单，假设有两个可选条件，内容在： TextBox1(姓名)、TextBox2（部门）

主要是构造 Sql的Where子句，那么：

Dim MySqlWhere As String

MySqlWhere=""

If TextBox1.Text"" Then

MySqlWhere= " Where 姓名 = '" TextBox1.Text "'"

End If

If TextBox2.Text"" Then

if MySqlWhere="" Then

MySqlWhere= " Where 部门 = '" TextBox1.Text "'"

Else

MySqlWhere= MySqlWhere " And 部门 = '" TextBox1.Text "'"

End If

End If

'如果还有第3，第4，那只能这样了：

If TextBox3.Text"" Then

if MySqlWhere="" Then

MySqlWhere= " Where 字段3 = '" TextBox3.Text "'"

Else

MySqlWhere= MySqlWhere " And 字段3 = '" TextBox3.Text "'"

End If

End If

......

If TextBoxn.Text"" Then

if MySqlWhere="" Then

MySqlWhere= " Where 字段n = '" TextBoxn.Text "'"

Else

MySqlWhere= MySqlWhere " And 字段n = '" TextBoxn.Text "'"

End If

End If

注意：对于字符类型的字段，当然要用单引号，上面那样的，但是对于数值类型，就不要这个单引号的；但是对于日期类型，那么与字符类型不同的是，把前后的2个单引号，改为井号就是“#”， 这是很多初学者容易忽略的，也是很多教科书上不提的问题。

对于文本框，由于.NET不提供控件数组，但是还是可以用语句来实现类似数组的操作，这样以上IF语句，就可以简化。

vb.net操作excel中的记录

试了好久，终于试出来了，把代码发给你分享：

首先，我建了个窗体，放了一个按扭控件，把打开连接EXECL的代码都放在该按扭的click事件里了，你可以根据需要改动。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" _

"Data Source=E:\myexl.xls;" _

"Extended Properties=Excel 8.0;"

’这里面，E：\myexl.xls换成你自己的excel文件完整路径

Dim objConn As New OleDbConnection(sConnectionString)

objConn.Open()

MsgBox("成功打开连接") ’这句我用来测试能不能连接的，

’下面将建立查询命令

Dim objCmdSelect As New OleDbCommand("SELECT * FROM [11$] where 姓名='李三'", objConn)

'11j是我测试用的sheet名，你换成你自己的，注意格式

'程序默认Excel表的第一行内容为字段名，你换成你自己的内容，并建

'立查询条件

'下面将根据查询条件打开连接。

Dim objAdapter1 As New OleDbDataAdapter()

objAdapter1.SelectCommand = objCmdSelect

'下面将打开的数据放在dataset中

Dim objDataset1 As New DataSet()

objAdapter1.Fill(objDataset1, "XLData")

’下面将数据传给DataGrid1控件

DataGrid1.DataSource = objDataset1.Tables(0).DefaultView

' Clean up objects.

objConn.Close()

End Sub