vb.net控件treeview從數(shù)據(jù)庫獲得數(shù)據(jù)分層顯示

說實(shí)話一般不是你這樣存儲(chǔ)的，一般是用一個(gè)字段存儲(chǔ)ID號(hào)，然后用另一個(gè)字段存儲(chǔ)上級(jí)單位的ID號(hào)，然后用遞歸函數(shù)生成TreeView。建議你增加一個(gè)字段，然后將編號(hào)解析出的上級(jí)單位存儲(chǔ)在里面。以下是我的一個(gè)程序用的遞歸函數(shù)：

創(chuàng)新互聯(lián)建站是一家專注于成都網(wǎng)站建設(shè)、做網(wǎng)站與策劃設(shè)計(jì),富源網(wǎng)站建設(shè)哪家好?創(chuàng)新互聯(lián)建站做網(wǎng)站,專注于網(wǎng)站建設(shè)10年,網(wǎng)設(shè)計(jì)領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:富源等地區(qū)。富源做網(wǎng)站價(jià)格咨詢:18982081108

表名是unit，其中包含了單位名稱unit_name,編號(hào)unit_id,Unit_upper就是上級(jí)單位的id號(hào)。

調(diào)用方式是 addtree(ds1, TreeView1.Nodes, 0)，其中ds1是一個(gè)DataSet，對應(yīng)單位的表，treeview1是控件名稱，0是固定值，與表中根節(jié)點(diǎn)部門的Unit_upper一致(這個(gè)單位沒有上級(jí))。

Public Function addtree(ByVal ds As DataSet, ByVal treename As TreeNodeCollection, ByVal x1 As Integer) As Boolean

Dim dt As DataTable = ds.Tables("unit")

Dim dm As BindingManagerBase = Me.BindingContext(ds, "unit")

Dim dr As DataRow() = dt.Select("unit_upper=" x1.ToString)

Dim dr1 As DataRow

Dim nd As TreeNode

Dim nd1 As TreeNode

Dim x2 As Integer

If dr.GetLength(0) 0 Then

For Each dr1 In dr

nd = treename.Add(dr1("unit_name"))

nd.Tag = (dr1("unit_id"))

x2 = treename.IndexOf(nd)

addtree(ds, treename.Item(x2).Nodes, dr1("unit_id"))

Next

End If

Return True

End Function

VB.net怎么添加數(shù)據(jù)至ACCESS數(shù)據(jù)庫中，并顯示在DataGridview控件的第一行（注意：不是最后一行）。

給個(gè)思路。

一、Entity Framework （EF）

引用了EF后，在EF 的datacontext將你的access數(shù)據(jù)庫配置上。你的增刪改查等都需要你在業(yè)務(wù)中去定義。

datagridview控件是Winform里面的吧，你只要在數(shù)據(jù)庫定義的時(shí)候每條數(shù)據(jù)都有一個(gè)遞增的ID，然后你顯示數(shù)據(jù)的時(shí)候順序使用ID desc就行了。

二、 ADO.net

做個(gè)Accesshelper類，使用connetion,command,reader等對象對Access數(shù)據(jù)庫進(jìn)行各類操作。

VB.NET有什么控件可以像EXCEL表格那樣直觀地顯示數(shù)組數(shù)據(jù)的？

VB中表格控件有很多，如MSFlexGrid，DataGrid，MSHFlexGrid等等

使用的多的是微軟的FlexGrid控件。

通過菜單"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"進(jìn)行選擇。這個(gè)是包含在VS6 SP6安裝包內(nèi)的。

VB Net 如何在控件中顯示數(shù)據(jù)庫中的數(shù)據(jù)？

//用ADO.net中的Connection進(jìn)行OLE連接到Access文件，連接字符串例子：

connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA?Source=DB文件路徑;Jet?OLEDB:Database?password=密碼"

//再發(fā)送Command命令SQL，

Select?*?from?Student_Perfomance?where?Stu_No='取到的學(xué)號(hào)'

//再用DataReader取出數(shù)據(jù)，設(shè)置到窗體的控件上。

vb.net 表格控件如何連接數(shù)據(jù)庫

給你個(gè)簡單的例子

Imports System.Data

Imports System.Data.SqlClient

Public Class Form1

Inherits System.Windows.Forms.Form

'數(shù)據(jù)庫連接對象

'錯(cuò)誤的寫法

'Dim objConnection As SqlConnection = New SqlConnection("server=(local);database=pubs;user id=sa;password=")

'正確寫法

Dim objConnection As New SqlConnection("Data Source=127.0.0.1; Initial Catalog=pubs; user id=sa; password=;")

'數(shù)據(jù)適配器

Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter()

'DataSet

Dim objDataSet As DataSet = New DataSet()

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'設(shè)置查詢命令屬性

objDataAdapter.SelectCommand = New SqlCommand

objDataAdapter.SelectCommand.Connection = objConnection

objDataAdapter.SelectCommand.CommandText = "select au_lname,au_fname,title,price from authors join titleauthor on authors.au_id=titleauthor.au_id join titles on titleauthor.title_id=titles.title_id order by au_lname,au_fname"

objDataAdapter.SelectCommand.CommandType = CommandType.Text

'打開數(shù)據(jù)庫連接

objConnection.Open()

'填充DataSet對象

objDataAdapter.Fill(objDataSet, "authors")

'關(guān)閉數(shù)據(jù)庫連接

objConnection.Close()

'給DataGrid綁定數(shù)據(jù)

grdAuthorTitles.DataSource = objDataSet

grdAuthorTitles.DataMember = "authors"

'清除

objDataAdapter = Nothing

objConnection = Nothing

End Sub

End Class

網(wǎng)頁題目：vb.net數(shù)據(jù)庫控件 vb調(diào)用數(shù)據(jù)庫數(shù)據(jù)庫
本文來源：http://chinadenli.net/article6/hjidog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供用戶體驗(yàn)、響應(yīng)式網(wǎng)站、Google、企業(yè)網(wǎng)站制作、移動(dòng)網(wǎng)站建設(shè)、網(wǎng)站營銷

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)