select * from table1
專注于為中小企業(yè)提供網(wǎng)站制作、成都網(wǎng)站制作服務,電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)杭錦免費做網(wǎng)站提供優(yōu)質(zhì)的服務。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了上1000家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。
union
select * from table2
注意字段列表順序要一致
你可以通過用VB.net控制excel,讓excel生成曲線圖,然后利用excelVBA將圖輸出,最后導入到VB.net就可以了。
在VB5中生成統(tǒng)計圖形
在用VB5進行數(shù)據(jù)庫編程時,經(jīng)常要生成統(tǒng)計圖形。生成的方法有很多種,最
簡單的是利用VB5提供的MSChart控件。具體操作方法如下:
1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”項,
選中并應用,此時在工具面板中出現(xiàn)MSChart控件圖標。選中它并在新工程的Form1
中畫一矩形,生成MSChart1,即出現(xiàn)缺省狀態(tài)的直方圖。設其ColumnCount屬性為1。
2.利用Access或VB5的可視化數(shù)據(jù)管理器生成一個example.mdb的數(shù)據(jù)庫,在其
中建一名為temp的數(shù)據(jù)表,包含“日期”和“數(shù)據(jù)”兩個字段,并在表中輸入一些
記錄。
3.在Form1中生成一個Command1按鈕,然后在Private Sub Command1_click()
中寫入以下代碼:
dim i as integer
dim NewDyn as recordset
dim OpenWs as Workspace
dim OpenDB as DataBase
set OpenWs=DBengine.Workspaces(0)
set OpenDB=OpenWs.Opendatabase(app.path & 〃\example.mdb〃)
set NetDyn=OpenDB.Openrecordset(〃select * from temp〃,dbOpenSnapShot)
NewDyn.MoveLast
NewDyn.Movefirst
If NewDyn.RecordCount=0 then
Msgbox〃請在數(shù)據(jù)庫中輸入數(shù)據(jù)!〃,vbCritical
Exit sub
End if
With MSChart1
.TitleText=〃直方圖示例〃
.RowCount=NewDyn.ReordCount
For i=1 to NewDyn.RecordCount
.Row=i
.Data=NewDyn.Fields(〃數(shù)據(jù)〃)
.Rowlabel=NewDyn.Fields(〃日期〃)
NewDyn.MoveNext
Next i
End With
NewDyn.Close
4.運行時按Command1鍵即可生成統(tǒng)計圖表了。
如果想生成其他類型的圖形,修改MSChart1的屬性即可定制成其他各種二維或三維
圖表。
處理數(shù)據(jù)行(DataRow)
Windows窗體中的數(shù)據(jù)綁定列表框和組合框很節(jié)省時間 典型的代碼如下(假定已經(jīng)建立了SqlDataAdapter或者其它部件獲取數(shù)據(jù))
Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID
在這種情況下 代碼使用Northwind數(shù)據(jù)庫的顧客記錄工作 DisplayMember屬性設置為你希望用戶在列表框中看到的記錄字段 它是customers表的CompanyName 通常ValueMember屬性設置為數(shù)據(jù)表中的一個鍵字段 對于customer來說是CustomerID 一旦用戶選擇了列表框中的一行 很容易使用列表框的SelectedValue屬性獲得鍵字段
MsgBox(ListBox SelectedValue)
但是有可能需要一個與被選擇項相關(guān)的整個數(shù)據(jù)行對象的引用 例如 如果被選擇的行需要被刪除 就不知道鍵了 你需要一個數(shù)據(jù)行的引用以使用Delete方法
典型的Visual Basic開發(fā)者通常這樣想 我已經(jīng)得到了該行的鍵了 我將編寫一些邏輯來查找使用該鍵的行 這樣可以實現(xiàn) 但是有更好的實現(xiàn)方法 可以使用一行代碼獲取與列表框中選項關(guān)聯(lián)的數(shù)據(jù)行
Dim dr As DataRow = CType(ListBox SelectedItem DataRowView) Row
通常該邏輯不會憑直覺出現(xiàn) 即使對經(jīng)驗豐富的開發(fā)者 為了解釋這是怎樣實現(xiàn)的 我把上面的一行拆成幾行 下面的代碼與上面代碼的功能相同
Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row
DataRowView類是數(shù)據(jù)行的包裝 它被多個Windows窗體控件使用 它使得顯示與控件中的數(shù)據(jù)行相關(guān)的數(shù)據(jù)更加容易 當列表框被數(shù)據(jù)綁定到數(shù)據(jù)表時(假定列表框中的有些行當前被選定了) 列表框的SelectedItem屬性保存了一個DataRowView對象
這意味著我們能把列表框的SelectedItem屬性轉(zhuǎn)換到DataRowView對象 這就是上面代碼中的第二行實現(xiàn)的 接著DataRowView暴露一個Row屬性 它指向被包裝的數(shù)據(jù)行 上面的代碼聲明了一個數(shù)據(jù)行并設置了Row屬性
轉(zhuǎn)換對象的類型以訪問它的接口的技術(shù)在Visual Basic 中不是經(jīng)常使用 但是在Visual Basic NET中這是經(jīng)常的 有了上面的例子后 大多數(shù)有經(jīng)驗的開發(fā)者迅速跟上了這種技術(shù)
數(shù)據(jù)行的引用(dr)可用于用任何方式維護行 訪問數(shù)據(jù)行中的任何特定字段是可行的 行中的數(shù)據(jù)可以被改變 能使數(shù)據(jù)行的Delete方法把該行標識為刪除 或者從數(shù)據(jù)表的行集合中刪除該行 下面的代碼標識刪除了一行
dr Delete()
lishixinzhi/Article/program/net/201311/12974