13518219792
VB的數據庫操作，我們都知道在Where子句中對于字符串類型，用單引號
網站建設哪家好，找成都創新互聯公司！專注于網頁設計、網站建設、微信開發、小程序開發、集團企業網站建設等服務項目。為回饋新老客戶創新互聯還提供了靈臺免費建站歡迎大家使用！
注意：凡是日期、時間類型，用井號，也就是 #
所以，你的這個用
select * from 表名 where cdate(起始時間) between #" + CDate(txtStart.Text) + "# and #" + CDate(txtOver.Text) + “#“
這個只能是一一判斷的：
為了敘述簡單，假設有兩個可選條件，內容在： 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語句，就可以簡化。
說明：1.共有4個文本框其，其中三個是填入或輸出數據的（名稱分別是：txta txtb txtc），剩下的那個是符號(txtd)2.共7個按鈕，4個是符號按鈕，一個計算，一個清零．這是我弄的程序”袖珍計算器”代碼也是自己編寫的，代碼如下：通用聲明Dim j As Integer '定義j為整型
Private Sub Text1_Change()End SubPrivate Sub Command1_Click()
txtfuhao.Text = "+" '將”＋”顯示到文本框txtfuhao.Text中
End SubPrivate Sub Command2_Click()
txtfuhao.Text = "-" ''將”-”顯示到文本框txtfuhao.Text中
End SubPrivate Sub Command3_Click()
txtfuhao.Text = "×" '將”×”顯示到文本框txtfuhao.Text中
End SubPrivate Sub Command4_Click()
txtfuhao.Text = "÷" 將”÷”'顯示到文本框txtfuhao.Text中
End Sub
Private Sub Command5_Click()
Dim a, b, c As Integer
a = Val(txta.Text) '將txta.Text里的內容轉化為數值型,然后再賦給a
b = Val(txtb.Text) '將txtb.Text里的內容轉化為數值型,然后再賦給b
If txtfuhao.Text = "+" Then '運算過程
c = a + b '運算過程
ElseIf txtfuhao.Text = "-" Then '運算過程
c = a - b '運算過程
ElseIf txtfuhao.Text = "÷" Then '運算過程
c = a / b '運算過程
ElseIf txtfuhao.Text = "×" Then '運算過程
c = a * b '運算過程
Else
j = MsgBox("您輸入的符號不正確", vbOKOnly, "錯誤信息")
End If
txtc.Text = c '將運算結果c輸出到文本框txtc中
End SubPrivate Sub Command6_Click()
txta.Text = "" '將空字符輸入到文本框內（刷新）
txtb.Text = "" '將空字符輸入到文本框內（刷新）
txtc.Text = "" '將空字符輸入到文本框內（刷新）
txtfuhao.Text = "" '將空字符輸入到文本框內（刷新）
End SubPrivate Sub Command7_Click()
End '結束程序
End SubPrivate Sub Form_Load()End Sub
#If...Then...#Else 指令
根據條件編譯選定的 Visual Basic 代碼塊,需要有#Const 配對，一般要先用#Const 定義條件編譯器常量
'以下是例子
Module Module1
#Const i = 60
Sub Main()
#If i 30 Then
Console.WriteLine("???") '如果用#Const定義了i，該句語句才會執行，假如用的是private i as integer=60定義，該語句不會被執行
#End If
End Sub
End Module
