Database 创建一个Vb。Net程序来验证excel、csv、access中的数据并映射到sql数据库

Database 创建一个Vb。Net程序来验证excel、csv、access中的数据并映射到sql数据库,database,vb.net,Database,Vb.net,我期待创建一个程序,将加载excel,csv,access等,然后可以映射到sql数据库中的特定字段。我想验证数据检查是否存在任何重复字段(如果是主键)、对于目标字段来说太长的字段等,并检查相关表中是否存在字段。问题解决后,可以直接插入数据库或创建insert语句。基本上是为新客户将数据映射到空白数据库 真的吗?对于如何去做,从哪里开始,或者是否有可能去做,你有什么想法吗 我偶尔会将电子表格加载到Oracle数据库表中。这是我使用的代码 ' path to the source file

我期待创建一个程序,将加载excel,csv,access等,然后可以映射到sql数据库中的特定字段。我想验证数据检查是否存在任何重复字段(如果是主键)、对于目标字段来说太长的字段等,并检查相关表中是否存在字段。问题解决后,可以直接插入数据库或创建insert语句。基本上是为新客户将数据映射到空白数据库


真的吗?对于如何去做,从哪里开始,或者是否有可能去做,你有什么想法吗

我偶尔会将电子表格加载到Oracle数据库表中。这是我使用的代码

    ' path to the source file
    Dim sourceFile As String = "C:\Users\me\Documents\company\results.xls"
    ' The connection string to open the XLS
    Dim srcConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sourceFile & ";Extended Properties=""Excel 8.0;HDR=YES;"""

    ' Open the file
    Dim srcConn As OleDbConnection = New OleDbConnection(srcConnString)
    srcConn.Open()

    ' Create the Query, the column names are the header row names in row one of the sheet.
    Dim cmdExcel As OleDbCommand = New OleDbCommand("Select EmployeeID, Name, Department From [DATA$] Where EmployeeID is not NULL", srcConn)

    ' Load the data into a dataset
    Try
        Dim drExcel As OleDbDataReader = cmdExcel.ExecuteReader()
        Dim MydataSet As DataSet = New DataSet()
        Dim schemaTable As DataTable = drExcel.GetSchemaTable()
        Dim dataTable As DataTable = New DataTable()
        dataTable.TableName = "Data"
        Dim intCounter As Integer
        For intCounter = 0 To schemaTable.Rows.Count - 1
            Dim dataRow As DataRow = schemaTable.Rows(intCounter)
            Dim columnName As String = CType(dataRow("ColumnName"), String)
            Dim column As DataColumn = New DataColumn(columnName, CType(dataRow("DataType"), Type))
            dataTable.Columns.Add(column)
        Next
        Dim MyDataRow As DataRow
        While drExcel.Read()
            MyDataRow = dataTable.NewRow()
            For intCounter = 0 To drExcel.FieldCount - 1
                MyDataRow(intCounter) = drExcel.GetValue(intCounter)
            Next
        End While
        dataTable.Rows.Add(MyDataRow)

您应该能够验证dataset表中的数据,然后从中执行所需操作。我没有发布所有的代码,因为这些代码不相关,所以这些代码不会编译,但应该可以让您开始使用。

当然可以。根据数据来源,将其视为三个子项目。请阅读并采取行动