給你一段我曾經寫的代碼,主要是生成TreeView的節點!有什么不懂的地方你就提!

創新互聯公司專注于建甌企業網站建設,響應式網站設計,商城網站建設。建甌網站建設公司,為建甌等地區提供建站服務。全流程按需規劃網站,專業設計,全程項目跟蹤,創新互聯公司專業和態度為您提供的服務
Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)
Dim treBaseNodeOne As TreeNode
Dim treBaseNodeTwo As TreeNode
Dim strDWDM As String
m_rsRecordTwo = g_clsSybase.SelectSC_PD_SBCSB1()
'查找供電局信息
g_clsSybase.SelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)
'添加根節點
Do While m_rsRecordOne.Read
strDWDM = m_rsRecordOne.GetString(0) '獲取單位代碼
treBaseNodeOne = New TreeNode
treBaseNodeOne.Text = m_rsRecordOne.GetString(1).Trim() '獲取單位名稱
treBaseNodeOne.Name = m_rsRecordOne.GetString(1)
treBaseNodeOne.Tag = ""
strvXL.Nodes.Add(treBaseNodeOne)
'添加樹結構第二層
Dim drsTwo() As DataRow
drsTwo = m_rsRecordTwo.Tables(0).Select("SSDW='" strDWDM "' and SC__XLBM is null")
For Each dr As DataRow In drsTwo
treBaseNodeTwo = New TreeNode
treBaseNodeTwo.Text = dr.Item("XLMC").ToString.Trim
treBaseNodeTwo.Name = dr.Item("XLMC")
treBaseNodeTwo.Tag = dr.Item("XLBM")
treBaseNodeOne.Nodes.Add(treBaseNodeTwo)
Next
Loop
m_rsRecordOne.Close()
End Sub
這是不允許的,因為你的表數據結構和SQL表的數據結構都不一樣的。
仔細觀察一下就可以了。。type都不一樣,兩表無法直接相等,只能通過新建表,然后再導入進去才可以。
首先在項目的VB.NET界面,使用菜單【項目】--【添加引用】--【COM】
選擇 ?Microsoft ADO Ext. 2.x for DDL and Security
然后單擊【確定】,完成引用。
完整代碼如下:
Imports?ADOX
Public?Class?Form1
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
'創建空的access數據庫文件--數據庫文件.mdb,密碼為123
Dim?Mycat?As?Catalog?=?New?Catalog()
Mycat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Jet?OLEDB:Engine?Type=5;Data?Source=?數據庫文件.mdb;Jet?OLEDB:Database?Password=123")
'以下代碼創建一個名為“實驗數據表”
Dim?MyTable?As?ADOX.Table?=?New?ADOX.Table?????????'定義新表
MyTable.Name?=?"實驗數據表"????'表命名
'給表“實驗數據表”?創建一個字符串字段,字段名“姓名”
MyTable.Columns.Append("姓名",?,?ADOX.DataTypeEnum.adWChar)
'給表“實驗數據表”?創建一個整數字段,字段名“學號”
MyTable.Columns.Append("學號",?ADOX.DataTypeEnum.adInteger)????'追加一個數字型字段
'給字段“學號”創建一個主鍵“PimaryKey_Field”????????
MyTable.Keys.Append("學號",?ADOX.KeyTypeEnum.adKeyPrimary,?"學號")
Mycat.Tables.Append(MyTable)?'把所有的新字段追加到表
MyTable?=?Nothing
Mycat?=?Nothing
End?Sub
End?Class
加個模塊,定義公共變量2個窗體都可以對數據庫進行讀寫,每次讀寫之前先刷新一次,保證數據最新就行了。
VB.NET的特點:
1.真正成為面向對象以及支持繼承性的語言。
2.窗體設計器支持可視化繼承,并且包含了許多新的特性,比如自動改變窗體大小、資源本地化支持、數據類工具內在支持XML數據。
3.直接建立在.NET的框架結構上,因此開發人員可以充分利用所有.NET平臺特性,也可以與其他的.NET語言交互。
4.為Windows應用程序提供了XCOPY部署,開發者不再需要為DLL的版本問題擔憂。
網站標題:vb.net數據庫結構 vb做數據庫
網頁路徑:http://www.js-pz168.com/article32/dohiipc.html
成都網站建設公司_創新互聯,為您提供、虛擬主機、面包屑導航、關鍵詞優化、電子商務、網站營銷
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯