快上网专注成都网站设计 成都网站制作 成都网站建设
成都网站建设公司服务热线:028-86922220

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

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://6mz.cn/article/hjidog.html

其他资讯