数据库类
利用DbProviderFactory了.


类和源代码都以上传到资源,地址在这.
主要的,
1,方便,简单,扩展(复杂的话,专业的多多,不容自己来考虑)
2,方便无主键表的更新
3,方便输出到Excel(可以利用Select ..From [Sheet1$]来选择Excel数据再传到另一个Excel)

以后在vb.net解答有关数据库的问题,我都会引用这个类.





示例:

VB.NET code

Imports System.Data.CommonPublic Class Form1    Private db As New LzmTW.Data.SqlDatabase("(local)", "NorthWind")    Private cm As DbCommand    Private ds As New DataSet    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        cm = db.CreateCommand("[Sales by Year]", True)        db.AddParameter(cm, "Beginning_Date").DbType = DbType.DateTime        db.AddParameter(cm, "Ending_Date").DbType = DbType.DateTime        db.SetParameterValue(cm, "Beginning_Date", #7/4/1996#)        db.SetParameterValue(cm, "Ending_Date", #9/4/1996#)        db.Load(cm, ds, "1996")        db.SetParameterValue(cm, "Beginning_Date", #7/4/1997#)        db.SetParameterValue(cm, "Ending_Date", #9/4/1997#)        db.Load(cm, ds, "1997")        db.Load("SELECT * FROM ORDERS;SELECT * FROM REGION", ds, New String() {"ORDERS", "REGION"})    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        Me.DataGridView1.DataSource = ds.Tables("1996")    End Sub    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click        Me.DataGridView1.DataSource = ds.Tables("1997")    End Sub    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click        Me.DataGridView1.DataSource = ds.Tables("ORDERS")    End Sub    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click        Me.DataGridView1.DataSource = ds.Tables("REGION")    End Sub    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click        Dim db As New LzmTW.Data.ExcelDatabase("g:\dd.xls")        Console.WriteLine(db.ToExcel(New String() {"[AA$]", "[BB$]"}, "g:\t.xls", New String() {"AA", "BB"}))    End SubEnd Class

[解决办法]
怎么得到这个类?
[解决办法]
是啊..怎么得到.?
[解决办法]
mark
[解决办法]
mark!太牛了！
[解决办法]
我也做了一个,不过我的是继承了一个DataSet,在些基础上增加数据处理功能,比这个可强大了..哈哈
正用在当前的项目上...

[解决办法]
学习。
[解决办法]
学习
[解决办法]
顶。。。。
[解决办法]
收藏
[解决办法]
女的？
[解决办法]
女的
[解决办法]
Up
------解决方案--------------------

弓虽
[解决办法]
强不强的，让大家看看不就行了
[解决办法]
有没有做自定义分页显示功能？
[解决办法]
解决方案v9
[解决办法]
顶
[解决办法]
收藏并留个记号
[解决办法]
收藏！
[解决办法]
收藏