這個簡單呀，select?*?from?表名稱?where? 列名稱'全部' (也就是查找某列的值ComboBox當(dāng)前值,就顯示出所有的記錄了），希望能幫到你
創(chuàng)新互聯(lián)建站是一家專注于成都做網(wǎng)站、成都網(wǎng)站建設(shè)與策劃設(shè)計,淥口網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)建站做網(wǎng)站,專注于網(wǎng)站建設(shè)十多年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:淥口等地區(qū)。淥口做網(wǎng)站價格咨詢:13518219792
這個只能是一一判斷的：
為了敘述簡單，假設(shè)有兩個可選條件，內(nèi)容在： TextBox1(姓名)、TextBox2（部門）
主要是構(gòu)造 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
注意：對于字符類型的字段，當(dāng)然要用單引號，上面那樣的，但是對于數(shù)值類型，就不要這個單引號的；但是對于日期類型，那么與字符類型不同的是，把前后的2個單引號，改為井號就是“#”， 這是很多初學(xué)者容易忽略的，也是很多教科書上不提的問題。
對于文本框，由于.NET不提供控件數(shù)組，但是還是可以用語句來實現(xiàn)類似數(shù)組的操作，這樣以上IF語句，就可以簡化。
第一題:
不需要任何控件,代碼如下:
Private Sub Form_Click()
Dim A() As Integer, N As Integer
Dim St As String, I As Integer, J As Integer
Randomize
Do
St = InputBox("數(shù)字的個數(shù)", "輸入", Int(Rnd * 100))
If St = "" Then
MsgBox "請輸入數(shù)字!"
Else
N = Int(Val(St))
If N 1 Then
MsgBox "請輸入大于0的數(shù)字!"
Else
Exit Do
End If
End If
Loop
ReDim A(N)
For I = 1 To N
Do
St = InputBox("第" + Str(I) + "個數(shù)字", "輸入", Int(Rnd * 100))
If St = "" Then
MsgBox "請輸入數(shù)字!"
Else
A(I) = Int(Val(St))
Exit Do
End If
Loop
Next
For I = 1 To N - 1
For J = I + 1 To N
If A(I) A(J) Then
A(0) = A(I)
A(I) = A(J)
A(J) = A(0)
End If
Next
Next
For I = 1 To N
Open App.Path "\" Trim(Str(I)) ".txt" For Output As #1
Print #1, A(I)
Close #1
Next
Print "已經(jīng)把"; N; "個數(shù)寫入到"; App.Path; "\1.txt 到 "; N; ".txt中.請查看."
End Sub
'已經(jīng)運行過.
第二題:
DIM 是變量聲明語句,它的格式為:
dim 變量名[as 格式] [,變量名[as 格式][,變量名[as 格式]......]
其中:
變量名:以字母或漢字開始的字串,代表一個變量
格式有以下幾種:
屬于數(shù)字的有五種:
(1)字節(jié)型:byte可取值0-255
(2)整形:integer可取值-32768至32767
(3)長整形:long(可取值范圍很大的正負(fù)整數(shù))
(4)單精度型:single(可取值小數(shù))
(5)雙精度型:double(可取值范圍更大,小數(shù)位數(shù)更多的小數(shù))
字符串型:string(可代表由字母\數(shù)字或漢字組成的字符集合)
布爾型:boolean(取值為ture\false)
日期型:date(可表示形如2009-5-26 02:36這樣的組合)
如果要用姓名\住址\單位名稱...等用字符串型(string)
eg:dim name as string(用name變量表示名字時,聲明成字符串變量)
如果是用數(shù)字需要做計算,如工資\合計\人數(shù)....等要用數(shù)字型,但有一個原則,優(yōu)先選用范圍小的(按照字節(jié)型(byte)\整形(integer)\長整形(long)\單精度型(single)\雙精度型(double)的順序選擇),夠用就可以了,這樣可以占用內(nèi)存少,運算速度快.
eg:dim count as integer(用integer表示員工人數(shù)時,可聲明成整形變量)
eg:dim sum as single(用sum表示工資時,可聲明成單精度型變量)
不知是否說得清楚了.
動態(tài)生成語句查詢sql數(shù)據(jù)庫內(nèi)所有表，通常用 語句組合鏈接串。
如果是已經(jīng)明確的表，可以用 參數(shù)方式變更。
如果是針對不同的表，自己拼合sql語句吧。
VB.net數(shù)據(jù)庫連接的語句，網(wǎng)上太多了。
重慶分公司
重慶分公司
