水如烟

秋里生活,恬淡宁静。那如洗碧空,那伏黄草地,风凉夜寂,心儿涌动,情绪萦绕。可以凭窗,可以临江,可以坐,可以仰卧,可以独处,可以相依。倚明月,抚清辉,人生多少情怀,尽在秋里?

原创 数据库类的扩展:提供Dll及源代码下载收藏

新一篇: 2008年普通高等学校招生考试全国卷I语文 | 旧一篇: HOW TO:给DataTable添加一自增列至首列

Author:水如烟 

现在可以提供代码下载了.
地址:http://download.csdn.net/source/485639
LzmTW.uData.Dll
资源大小: 2.89MB

文件比较大,主要是附上了FoxPro2.6的解释程序.

代码用VS2008组织,适用于Framwork2.0+
VS2005的可以引用lzmtw.udata.dll。

功能:
1、实现常用数据库SqlServer、Access、Excel、DBase的一般操作;
2、实现临时指定主键的数据更新
3、实现表的创建,DataTable数据的上传
4、由于1-3,实现以上数据库间表的复制
5、当然,并非所有字段类型数据都能够彼此复制

说明:
1、对DBase,本类支持创建MEMO字段类型,但不支持此类型的读写。
2、代码比较凌乱,有再次重组的必要。
3、不过,代码本身仅侧重于功能的实现测试,所以各位看得头疼,不要暗里骂人。
4、非常对不起,代码少有注释。不是我不想写注释,实在的我的基本功太臭,写出的“注释”会容易误导。

示例:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim table As New DataTable("Test")

        table.Columns.Add("NO", GetType(Integer))
        table.Columns.Add("Content")

        table.PrimaryKey = New DataColumn() {table.Columns("NO")}

        table.LoadDataRow(New Object() {1, "测试2222"}, True)
        table.LoadDataRow(New Object() {2, "任意DataTable数据"}, True)
        table.LoadDataRow(New Object() {3, "上传到通常用的数据库"}, True)
        table.AcceptChanges()

        '把table数据上传到SqlServer的Nothwind数据库
        Dim db As New SqlOleDbDatabase(".", "Northwind")
        db.CopyTableToDatabase(table)

        Me.DataGridView1.DataSource = db.GetDataTable("test")
    End Sub
至于常用的方法,我另开贴稍为示意一下。 

仅供参考。参考者也请保持原LzmTW.uData命名空间。谢谢。

发表于 @ 2008年06月06日 22:12:36|评论(loading...)|

新一篇: 2008年普通高等学校招生考试全国卷I语文 | 旧一篇: HOW TO:给DataTable添加一自增列至首列

评论:没有评论。

发表评论  


登录
Csdn Blog version 3.1a
Copyright © 水如烟