数据库类的扩展:DataTable与表

水如烟 2008-05-28 03:42:10

加精

这个贴子,尝试依据任意DataTable建立数据库表。打算用三天时间。

如果贴子中有表格，请使用IE7浏览。

关于数据库类的有关贴子：

数据库类
建dbf文件,并自动创建可更新的DataAdapter
数据库类的扩展:数据库的建立和表的建立
数据库类的扩展:利用FoxPro创建DBase表的注意细节
数据库类的扩展:NET数据类型与数据库字段类型

...全文

1302 44 打赏收藏转发到动态举报

写回复

用AI写文章

44 条回复

切换为时间正序

请发表友善的回复…

发表回复

dongggua 2012-01-06

打赏
举报

Mark :)

lhjsj 2011-08-23

打赏
举报

学习中

louvens 2010-11-22

打赏
举报

学习一下，果然厉害

lizhu1hao 2010-07-23

打赏
举报

获益不少

lizhu1hao 2010-07-23

打赏
举报

支持一下！！

txyw_zj 2009-08-05

打赏
举报

高深啊

hanjs 2009-06-11

打赏
举报

没看懂啥意思。。。

wcbgyjs 2008-06-22

打赏
举报

mark
thanks

ghfms 2008-06-19

打赏
举报

mark
倒杯开水慢慢看

niuniuhuang 2008-05-30

打赏
举报

mark

gmtyt 2008-05-30

打赏
举报

我是来学习的

水如烟 2008-05-29

打赏
举报

NULL表示不支持.有些在OleDB中看上去受到支持,但实际可能行不通.所以要求在ODBC下操作.
如对Excel,System.Byte[]在ODBC下是不支持的,在OleDb下,我还是置它为支持.

┌──────────────────────┬──────────────┬────────────┬──────────────┐

│       DataType       │  ToDataType  │DatabaseType│ConnectionType│

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Byte           │System.SByte  │SQLServer   │SqlClient     │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.DateTimeOffset │System.Int32  │SQLServer   │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.SByte          │System.Byte   │SQLServer   │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.TimeSpan       │System.Int16  │SQLServer   │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.DateTimeOffset │System.Int32  │SQLServer   │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.SByte          │System.Byte   │SQLServer   │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.TimeSpan       │System.Int16  │SQLServer   │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.DateTimeOffset │System.Int32  │Access      │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Int64          │System.Decimal│Access      │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Object         │System.Byte[] │Access      │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.SByte          │System.Byte   │Access      │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.TimeSpan       │System.Int16  │Access      │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.DateTimeOffset │System.Int32  │Access      │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Int64          │System.Decimal│Access      │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Object         │System.Byte[] │Access      │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.SByte          │System.Byte   │Access      │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.TimeSpan       │System.Int16  │Access      │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Byte           │System.Boolean│Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Byte[]         │NULL          │Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.DateTimeOffset │System.Decimal│Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Guid           │System.String │Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Int64          │System.Decimal│Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Object         │NULL          │Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.SByte          │System.Boolean│Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Single         │System.Double │Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.TimeSpan       │System.Decimal│Excel       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.DateTimeOffset │System.Int32  │Excel       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Int64          │System.Decimal│Excel       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Object         │System.Byte[] │Excel       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.SByte          │System.Byte   │Excel       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.TimeSpan       │System.Int16  │Excel       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Byte           │System.Boolean│DBase       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.DateTimeOffset │System.Double │DBase       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Guid           │System.String │DBase       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Int64          │System.Double │DBase       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Object         │System.Byte[] │DBase       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.SByte          │System.Boolean│DBase       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Single         │System.Double │DBase       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.TimeSpan       │System.Double │DBase       │Odbc          │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.DateTimeOffset │System.Int32  │DBase       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Int64          │System.Decimal│DBase       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.Object         │System.Byte[] │DBase       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.SByte          │System.Byte   │DBase       │OleDb         │

├──────────────────────┼──────────────┼────────────┼──────────────┤

│System.TimeSpan       │System.Int16  │DBase       │OleDb         │

└──────────────────────┴──────────────┴────────────┴──────────────┘

水如烟 2008-05-29

打赏
举报

数据类型转换

上面说过,在一数据库一连接方式下的数据类型,在另一数据库或另一连接方式下并不一定受到支持.
比如SqlSever,SqlClient连接下,某字段为bigint类型,相应的NET数据类型为System.Int64,
如果要转为Access,ODBC下的DataTable,在数据库中是没有相应的字段类型的,那么,需要将System.Int64转为System.Decimal,
它在数据库中受支持的字段类型为DECIMAL.

将这些需要转换的数据类型另建一xml文件.
至于是否正确,测试后才知道,现在暂且定义如下:

Alexwang198201 2008-05-29

打赏
举报

have a look!

Ny-6000 2008-05-29

打赏
举报

需要好好的认真学习啊．

xp1056 2008-05-29

打赏
举报

要学习

水如烟 2008-05-29

打赏
举报

本贴止.
下贴看看数据导入和Create Table语句的生成.

水如烟 2008-05-29

打赏
举报

找了一个英文版的Northwind.mdb
把它跟上面的对比一下(这个mdb里的employees表跟sqlserver的相比,少了一列PhotoPath

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim db As LzmTW.Data.Database = New LzmTW.Data.SqlSqlClientDatabase(".", "Northwind")



        Dim schema As LzmTW.Data.xsd.TableSchemaDataTable = db.GetSelectCommandSchemaTable("Employees")



        Dim db2 As LzmTW.Data.Database = New LzmTW.Data.AccessOdbcDatabase("g:\office\Northwind.mdb")



        Dim schema2 As LzmTW.Data.xsd.TableSchemaDataTable = db2.RebuildTableSchema(schema)



        Dim schema3 As LzmTW.Data.xsd.TableSchemaDataTable = db2.GetSelectCommandSchemaTable("Employees")



        Dim contrastTable As New DataTable

        With contrastTable.Columns

            .Add("ColumnName")

            .Add("SqlServer")

            .Add("Access")

            .Add("E_ColumnName")

            .Add("E_TypeName")

        End With



        Dim count As Integer = schema.Rows.Count

        For i As Integer = 0 To count - 1

            If i < count - 1 Then

                contrastTable.LoadDataRow(New Object() {schema.Item(i).ColumnName, schema.Item(i).DataTypeName, schema2.Item(i).DataTypeName, schema3.Item(i).ColumnName, schema3.Item(i).DataTypeName}, True)

            Else

                contrastTable.LoadDataRow(New Object() {schema.Item(i).ColumnName, schema.Item(i).DataTypeName, schema2.Item(i).DataTypeName, Nothing, Nothing}, True)

            End If



        Next



        Me.DataGridView1.DataSource = contrastTable



    End Sub

┌────────────────┬──────────┬──────────┬────────────────┬──────────┐

│   ColumnName   │ SqlServer│  Access  │  E_ColumnName  │E_TypeName│

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│EmployeeID      │int       │INTEGER   │EmployeeID      │INTEGER   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│LastName        │nvarchar  │VARCHAR   │LastName        │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│FirstName       │nvarchar  │VARCHAR   │FirstName       │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│Title           │nvarchar  │VARCHAR   │Title           │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│TitleOfCourtesy │nvarchar  │VARCHAR   │TitleOfCourtesy │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│BirthDate       │datetime  │DATETIME  │BirthDate       │DATETIME  │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│HireDate        │datetime  │DATETIME  │HireDate        │DATETIME  │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│Address         │nvarchar  │VARCHAR   │Address         │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│City            │nvarchar  │VARCHAR   │City            │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│Region          │nvarchar  │VARCHAR   │Region          │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│PostalCode      │nvarchar  │VARCHAR   │PostalCode      │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│Country         │nvarchar  │VARCHAR   │Country         │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│HomePhone       │nvarchar  │VARCHAR   │HomePhone       │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│Extension       │nvarchar  │VARCHAR   │Extension       │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│Photo           │image     │LONGBINARY│Photo           │LONGBINARY│

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│Notes           │ntext     │VARCHAR   │Notes           │VARCHAR   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│ReportsTo       │int       │INTEGER   │ReportsTo       │INTEGER   │

├────────────────┼──────────┼──────────┼────────────────┼──────────┤

│PhotoPath       │nvarchar  │VARCHAR   │                │          │

└────────────────┴──────────┴──────────┴────────────────┴──────────┘

水如烟 2008-05-29

打赏
举报

下面要解决的,是数据导入:从原来的DataTable,导入到数据类型转换后的DataTable

水如烟 2008-05-29

打赏
举报

SchemaDataTypes列表

Namespace LzmTW.Data

    Public Module SchemaDataTypes

        Public [Boolean] As Type = GetType(System.Boolean)

        Public [Byte] As Type = GetType(Byte)

        Public [Bytes] As Type = GetType(System.Byte())

        Public [DateTime] As Type = GetType(System.DateTime)

        Public [DateTimeOffset] As Type = GetType(System.DateTimeOffset)

        Public [Decimal] As Type = GetType(System.Decimal)

        Public [Double] As Type = GetType(System.Double)

        Public [Guid] As Type = GetType(System.Guid)

        Public [Int16] As Type = GetType(System.Int16)

        Public [Int32] As Type = GetType(System.Int32)

        Public [Int64] As Type = GetType(System.Int64)

        Public [Object] As Type = GetType(System.Object)

        Public [SByte] As Type = GetType(System.SByte)

        Public [Single] As Type = GetType(System.Single)

        Public [String] As Type = GetType(System.String)

        Public [TimeSpan] As Type = GetType(System.TimeSpan)



        Public Function GetDataType(ByVal type As String) As Type

            Select Case type

                Case "System.Boolean"

                    Return SchemaDataTypes.Boolean

                Case "System.Byte"

                    Return SchemaDataTypes.Byte

                Case "System.Byte[]"

                    Return SchemaDataTypes.Bytes

                Case "System.DateTime"

                    Return SchemaDataTypes.DateTime

                Case "System.DateTimeOffset"

                    Return SchemaDataTypes.DateTimeOffset

                Case "System.Decimal"

                    Return SchemaDataTypes.Decimal

                Case "System.Double"

                    Return SchemaDataTypes.Double

                Case "System.Guid"

                    Return SchemaDataTypes.Guid

                Case "System.Int16"

                    Return SchemaDataTypes.Int16

                Case "System.Int32"

                    Return SchemaDataTypes.Int32

                Case "System.Int64"

                    Return SchemaDataTypes.Int64

                Case "System.Object"

                    Return SchemaDataTypes.Object

                Case "System.SByte"

                    Return SchemaDataTypes.SByte

                Case "System.Single"

                    Return SchemaDataTypes.Single

                Case "System.String"

                    Return SchemaDataTypes.String

                Case "System.TimeSpan"

                    Return SchemaDataTypes.TimeSpan

                Case Else

                    Throw New Exception("未知类型")

            End Select

        End Function

    End Module



End Namespace