VB.NET条件查询ACCESS并求和怎么写代码？

因为你要计算和，所以在查询的时候把排序的查询参数去掉了

我们提供的服务有：网站设计、成都网站建设、微信公众号开发、网站优化、网站认证、临夏州ssl等。为上1000+企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的临夏州网站制作公司

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:\project\office\test.accdb")

Dim cmd As New OleDb.OleDbCommand("select sum(金额) as m from shop where 时间='15-12-1' And 名字 = '张三' ", conn)

Dim adp As New OleDb.OleDbDataAdapter(cmd)

conn.Open()

Dim tb As New DataTable

adp.Fill(tb)

TextBox1.Text = tb.Rows(0).Item(0).ToString()

End Sub

vb.net通过条件查询

直接txt的值就是表名称了啊.

dim straa as string               'straa就是要查询的表名称

straa=combo1.text;             'straa就是要查询的表名称

select * from straa              'straa就是要查询的表名称

VB 多条件查询

举例说明，实现如下多条件查询：

Private Sub Command1_Click() Dim jsql jsql = ""

Dim smyregion As String If Check1.Value = 1 Then

jsql = "图书名称 like '%" + Text1.Text + "%'" End If

If Check2.Value = 1 Then    If jsql = "" Then

jsql = "作者姓名 like'%" + Text2.Text + "%'"    Else

jsql = jsql "and 作者姓名 like'%" + Text2.Text + "%'"     End If End If

If Check3.Value = 1 Then    If jsql = "" Then

jsql = "出版社名称 like'%" + Text3.Text + "%'"     Else

jsql = jsql "and 出版社名称 like '%" + Text3.Text + "%'"     End If End If

If Check4.Value = 1 Then   If jsql = "" Then

jsql = "出版时间 like '%" + Text4.Text + "%'"     Else

 jsql = jsql "and 出版时间 like '%" + Text3.Text + "%'"     End If End If

If Check5.Value = 1 Then    If jsql = "" Then

jsql = "图书类别 like '%" + Text5.Text + "%'"

Else

 jsql = jsql "and 图书类别 like '%" + Text5.Text + "%'"     End If End If

If jsql = "" Then

MsgBox "请选择查询条件！", vbInformation, "图书音像管理系统"   Exit Sub Else

Adodc1.RecordSource = "select * from book where " jsql   Adodc1.Refresh End If

If Adodc1.Recordset.RecordCount 0 Then   Set DataGrid1.DataSource = Adodc1 End If    End Sub

Private Sub Command2_Click() Unload Me End Sub

求教啊求教，关于在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条件查询 vb多条件查询数据库
文章分享：http://chengdu.cdxwcx.cn/article/hjcdse.html