重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
select * from table1
专注于为中小企业提供网站制作、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业杭锦免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上1000家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
union
select * from table2
注意字段列表顺序要一致
你可以通过用VB.net控制excel,让excel生成曲线图,然后利用excelVBA将图输出,最后导入到VB.net就可以了。
在VB5中生成统计图形
在用VB5进行数据库编程时,经常要生成统计图形。生成的方法有很多种,最
简单的是利用VB5提供的MSChart控件。具体操作方法如下:
1.首先在VB5“工程”→“部件”中找到“Microsoft Chart Control5.0”项,
选中并应用,此时在工具面板中出现MSChart控件图标。选中它并在新工程的Form1
中画一矩形,生成MSChart1,即出现缺省状态的直方图。设其ColumnCount属性为1。
2.利用Access或VB5的可视化数据管理器生成一个example.mdb的数据库,在其
中建一名为temp的数据表,包含“日期”和“数据”两个字段,并在表中输入一些
记录。
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〃请在数据库中输入数据!〃,vbCritical
Exit sub
End if
With MSChart1
.TitleText=〃直方图示例〃
.RowCount=NewDyn.ReordCount
For i=1 to NewDyn.RecordCount
.Row=i
.Data=NewDyn.Fields(〃数据〃)
.Rowlabel=NewDyn.Fields(〃日期〃)
NewDyn.MoveNext
Next i
End With
NewDyn.Close
4.运行时按Command1键即可生成统计图表了。
如果想生成其他类型的图形,修改MSChart1的属性即可定制成其他各种二维或三维
图表。
处理数据行(DataRow)
Windows窗体中的数据绑定列表框和组合框很节省时间 典型的代码如下(假定已经建立了SqlDataAdapter或者其它部件获取数据)
Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID
在这种情况下 代码使用Northwind数据库的顾客记录工作 DisplayMember属性设置为你希望用户在列表框中看到的记录字段 它是customers表的CompanyName 通常ValueMember属性设置为数据表中的一个键字段 对于customer来说是CustomerID 一旦用户选择了列表框中的一行 很容易使用列表框的SelectedValue属性获得键字段
MsgBox(ListBox SelectedValue)
但是有可能需要一个与被选择项相关的整个数据行对象的引用 例如 如果被选择的行需要被删除 就不知道键了 你需要一个数据行的引用以使用Delete方法
典型的Visual Basic开发者通常这样想 我已经得到了该行的键了 我将编写一些逻辑来查找使用该键的行 这样可以实现 但是有更好的实现方法 可以使用一行代码获取与列表框中选项关联的数据行
Dim dr As DataRow = CType(ListBox SelectedItem DataRowView) Row
通常该逻辑不会凭直觉出现 即使对经验丰富的开发者 为了解释这是怎样实现的 我把上面的一行拆成几行 下面的代码与上面代码的功能相同
Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row
DataRowView类是数据行的包装 它被多个Windows窗体控件使用 它使得显示与控件中的数据行相关的数据更加容易 当列表框被数据绑定到数据表时(假定列表框中的有些行当前被选定了) 列表框的SelectedItem属性保存了一个DataRowView对象
这意味着我们能把列表框的SelectedItem属性转换到DataRowView对象 这就是上面代码中的第二行实现的 接着DataRowView暴露一个Row属性 它指向被包装的数据行 上面的代码声明了一个数据行并设置了Row属性
转换对象的类型以访问它的接口的技术在Visual Basic 中不是经常使用 但是在Visual Basic NET中这是经常的 有了上面的例子后 大多数有经验的开发者迅速跟上了这种技术
数据行的引用(dr)可用于用任何方式维护行 访问数据行中的任何特定字段是可行的 行中的数据可以被改变 能使数据行的Delete方法把该行标识为删除 或者从数据表的行集合中删除该行 下面的代码标识删除了一行
dr Delete()
lishixinzhi/Article/program/net/201311/12974