VS2010 VB.NET ACCESS通用零件查询

If Me.Check平板类_宽度.Checked Then If Me.Com平板类_零件宽度2.Text = "" Then MsgBox("请输入数据--宽度---范围2") Exit Sub End If End If If Me.Check平板类_厚度.Checked Then If Me.Com平板类_零件厚度2.Text = "" Then MsgBox("请输入数据--厚度---范围2") Exit Sub End If End If If Me.Check平板类_中心距1.Checked Then If Me.Com平板类_零件中心距12.Text = "" Then MsgBox("请输入数据--中心距1---范围2") Exit Sub End If End If If Me.Check平板类_中心距2.Checked Then If Me.Com平板类_零件中心距22.Text = "" Then MsgBox("请输入数据--中心距2---范围2") Exit Sub End If End If Imports System Imports System.Data Imports System.Data.Common Imports System.Data.OleDb Imports System.IO Public Class Form1 Private DataCnnstr As String = "provider=Microsoft.Jet.OLEDB.4.0;data source=" + Application.StartupPath + "\通用件V1.MDB" Private DataCnn As New OleDbConnection(DataCnnstr) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub But退出_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But退出.Click Me.Close() End Sub Private Function StringTreat(ByVal StrsqlTEMP As String, ByVal str1 As String, ByVal str2 As String) As String '此函数是处理查询条件，将字符串进行合并--2010-11-08 Dim i As Integer i = InStr(StrsqlTEMP, "where") If i > 0 Then StrsqlTEMP = StrsqlTEMP + " AND " + str1 + " LIKE '%" + str2 + "%'" Else StrsqlTEMP = StrsqlTEMP + " where " + str1 + " LIKE '%" + str2 + "%'" End If StringTreat = StrsqlTEMP End Function Private Function StringTreat_qujian(ByVal StrsqlTEMP As String, ByVal str1 As String, ByVal str2 As String, ByVal str3 As String) As String '此函数是处理查询条件，区间查询,将字符串进行合并--2010-11-09 Dim i As Integer i = InStr(StrsqlTEMP, "where") If i > 0 Then StrsqlTEMP = StrsqlTEMP + " AND " + str1 + " BETWEEN " + str2 + " AND " + str3 Else StrsqlTEMP = StrsqlTEMP + " where " + str1 + " BETWEEN " + str2 + " AND " + str3 End If StringTreat_qujian = StrsqlTEMP End Function Private Function StringTreat_fanwei(ByVal CHECK_BOOL As Boolean, ByVal StrsqlTEMP As String, ByVal FANWEI As String, ByVal FANWEI01 As String, ByVal FANWEI02 As String) As String '此函数是处理查询条件，区间查询,将字符串进行合并--2010-11-09 If FANWEI01 = "0" Then StrsqlTEMP = StrsqlTEMP + " AND " + FANWEI + "= null " StringTreat_fanwei = StrsqlTEMP Exit Function End If ''此语句专门处理无孔零件使用2010-11-10 If CHECK_BOOL Then If FANWEI01 = "" Then FANWEI01 = "0.5" End If If FANWEI02 = "" Then MsgBox("请输入数据----" + FANWEI02) StringTreat_fanwei = StrsqlTEMP Exit Function Else StrsqlTEMP = Me.StringTreat_qujian(StrsqlTEMP, FANWEI, FANWEI01, FANWEI02) End If Else If FANWEI01.ToUpper <> "" Then StrsqlTEMP = Me.StringTreat(StrsqlTEMP, FANWEI, FANWEI01) End If End If StringTreat_fanwei = StrsqlTEMP End Function Private Sub But国家_查询_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But国家_查询.Click DataCnn.Open() Dim TMPtable As System.Data.DataTable Dim TMPDATASET As New System.Data.DataSet TMPDATASET.Clear() Dim strsql As String = "select * from 国家名称" If Me.Com国家_国家序号.Text <> "" Then strsql = Me.StringTreat(strsql, "国家序号", Me.Com国家_国家序号.Text) End If If Me.Com国家_字母代号.Text <> "" Then strsql = Me.StringTreat(strsql, "字母代号", Me.Com国家_字母代号.Text) End If If Me.Com国家_国家名称.Text <> "" Then strsql = Me.StringTreat(strsql, "国家名称", Me.Com国家_国家名称.Text) End If Dim TMPadapter As New OleDbDataAdapter(strsql.ToUpper, DataCnn) TMPadapter.Fill(TMPDATASET, "临时表") TMPtable = TMPDATASET.Tables("临时表") TMPadapter.Dispose() TMPadapter = Nothing Me.DataGridView1.DataSource = TMPtable Me.DataGridView1.Sort(Me.DataGridView1.Columns(0), ComponentModel.ListSortDirection.Ascending) Me.DataGridView1.Refresh() DataCnn.Close() TMPDATASET.Dispose() TMPDATASET = Nothing End Sub Private Sub But国家_全部显示_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But国家_全部显示.Click DataCnn.Open() Dim TMPtable As System.Data.DataTable Dim TMPDATASET As New System.Data.DataSet TMPDATASET.Clear() Dim strsql As String = "select * from 国家名称" Dim TMPadapter As New OleDbDataAdapter(strsql.ToUpper, DataCnn) TMPadapter.Fill(TMPDATASET, "临时表") TMPtable = TMPDATASET.Tables("临时表") TMPadapter.Dispose() TMPadapter = Nothing Me.DataGridView1.DataSource = TMPtable Me.DataGridView1.Sort(Me.DataGridView1.Columns(0), ComponentModel.ListSortDirection.Ascending) Me.DataGridView1.Refresh() DataCnn.Close() TMPDATASET.Dispose() TMPDATASET = Nothing End Sub Private Sub But把手套_全部显示_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But把手套_全部显示.Click DataCnn.Open() Dim TMPtable As System.Data.DataTable Dim TMPDATASET把手套 As New System.Data.DataSet TMPDATASET把手套.Clear() Dim strsql As String = "select * from 把手套" Dim TMPadapter As New OleDbDataAdapter(strsql.ToUpper, DataCnn) TMPadapter.Fill(TMPDATASET把手套, "临时表把手套") TMPtable = TMPDATASET把手套.Tables("临时表把手套") TMPadapter.Dispose() TMPadapter = Nothing Me.DataGridView1.DataSource = TMPtable Me.DataGridView1.Sort(Me.DataGridView1.Columns(0), ComponentModel.ListSortDirection.Ascending) Me.DataGridView1.Refresh() DataCnn.Close() TMPDATASET把手套.Dispose() TMPDATASET把手套 = Nothing End Sub Private Sub But把手套_复合查询_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles But把手套_复合查询.Click DataCnn.Open() Dim TMPtable As System.Data.DataTable Dim TMPDATASET把手套 As New System.Data.DataSet TMPDATASET把手套.Clear() Dim strsql As String = "select * from 把手套" If Me.Com把手套_零件代号.Text <> "" Then strsql = Me.StringTreat(strsql, "零件代号", Me.Com把手套_零件代号.Text) End If If Me.Com把手套_零件名称.Text <> "" Then strsql = Me.StringTreat(strsql, "零件名称", Me.Com把手套_零件名称.Text) End If If Me.Com把手套_规格.Text <> "" Then strsql = Me.StringTreat(strsql, "规格", Me.Com把手套_规格.Text) End If If Me.Com把手套_适用管材.Text <> "" Then strsql = Me.StringTreat(strsql, "适用管材", Me.Com把手套_适用管材.Text) End If If Me.Com把手套_颜色.Text <> "" Then strsql = Me.StringTreat(strsql, "颜色", Me.Com把手套_颜色.Text) End If If Me.Com把手套_零件分类.Text <> "" Then