网创优客建站品牌官网
为成都网站建设公司企业提供高品质网站建设
热线:028-86922220
成都专业网站建设公司

定制建站费用3500元

符合中小企业对网站设计、功能常规化式的企业展示型网站建设

成都品牌网站建设

品牌网站建设费用6000元

本套餐主要针对企业品牌型网站、中高端设计、前端互动体验...

成都商城网站建设

商城网站建设费用8000元

商城网站建设因基本功能的需求不同费用上面也有很大的差别...

成都微信网站建设

手机微信网站建站3000元

手机微信网站开发、微信官网、微信商城网站...

建站知识

当前位置:首页 > 建站知识

vb.net数据库控件 vb调用数据库数据库

vb.net控件treeview从数据库获得数据分层显示

说实话一般不是你这样存储的,一般是用一个字段存储ID号,然后用另一个字段存储上级单位的ID号,然后用递归函数生成TreeView。建议你增加一个字段,然后将编号解析出的上级单位存储在里面。以下是我的一个程序用的递归函数:

创新互联建站是一家专注于成都网站建设、做网站与策划设计,富源网站建设哪家好?创新互联建站做网站,专注于网站建设10年,网设计领域的专业建站公司;建站业务涵盖:富源等地区。富源做网站价格咨询:18982081108

表名是unit,其中包含了单位名称unit_name,编号unit_id,Unit_upper就是上级单位的id号。

调用方式是 addtree(ds1, TreeView1.Nodes, 0),其中ds1是一个DataSet,对应单位的表,treeview1是控件名称,0是固定值,与表中根节点部门的Unit_upper一致(这个单位没有上级)。

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怎么添加数据至ACCESS数据库中,并显示在DataGridview控件的第一行(注意:不是最后一行)。

给个思路。

一、Entity Framework (EF)

引用了EF后,在EF 的datacontext将你的access数据库配置上。你的增删改查等都需要你在业务中去定义。

datagridview控件是Winform里面的吧,你只要在数据库定义的时候每条数据都有一个递增的ID,然后你显示数据的时候顺序使用ID desc就行了。

二、 ADO.net

做个Accesshelper类,使用connetion,command,reader等对象对Access数据库进行各类操作。

VB.NET有什么控件可以像EXCEL表格那样直观地显示数组数据的?

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

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

通过菜单"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。

VB Net 如何在控件中显示数据库中的数据?

//用ADO.net中的Connection进行OLE连接到Access文件,连接字符串例子:

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

//再发送Command命令SQL,

Select * from Student_Perfomance where Stu_No='取到的学号'

//再用DataReader取出数据,设置到窗体的控件上。

vb.net 表格控件如何连接数据库

给你个简单的例子

Imports System.Data

Imports System.Data.SqlClient

Public Class Form1

Inherits System.Windows.Forms.Form

'数据库连接对象

'错误的写法

'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=;")

'数据适配器

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

'设置查询命令属性

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

'打开数据库连接

objConnection.Open()

'填充DataSet对象

objDataAdapter.Fill(objDataSet, "authors")

'关闭数据库连接

objConnection.Close()

'给DataGrid绑定数据

grdAuthorTitles.DataSource = objDataSet

grdAuthorTitles.DataMember = "authors"

'清除

objDataAdapter = Nothing

objConnection = Nothing

End Sub

End Class


网站栏目:vb.net数据库控件 vb调用数据库数据库
标题链接:http://bjjierui.cn/article/hjidog.html

其他资讯