将数据从 Access 数据库传输到 SQL Server答案

【问题标题】：Transfering data from access database to SQL server将数据从 Access 数据库传输到 SQL Server
【发布时间】：2013-07-10 14:29:39
【问题描述】：

我正在尝试将一些数据字符串从我的 Access 2010 数据传输到我在 Access 2010 中的 SQL 服务器。我不知道如何去做，也不知道 SQL 语句会是什么样子它，我是否应该打开两个数据库或什么。会得到一些指导。

【问题讨论】：

Access 2010 中的 SQL Server？
是的，它是某种链接。
有多少条记录在谈论？该表是否存在于 SQL Server 中？
从 1 到 100 的任何位置，并且该表在服务器中不存在。仅在服务器链接到的数据库中。

标签： .net sql vb.net ms-access-2010

【解决方案1】：

我发现我可以打开数据库，然后打开 SQL Server。拉取记录，然后同时关闭它们。

数据库连接.Open()

    'SQL statement for find the records that need to be transfered.
    Dim SQLCommand2 As New OleDbCommand("SELECT * FROM b_forte WHERE BaleLine = '" & stBaleLine & "' and ProdDate > #" & GlobalVariables.dtLastBaleDateTime & "#", DatabaseConnection)
    Dim TransferRecord As OleDbDataReader = SQLCommand2.ExecuteReader()
    If ApplicationPropertiesWindow.DisplayCodechkbx.Checked = True Then
        MainTextBox.AppendText(Environment.NewLine & "SELECT * FROM b_forte WHERE BaleLine = '" & stBaleLine & "' and ProdDate > #" & GlobalVariables.dtLastBaleDateTime & "#")
        GlobalVariables.DisplayCode = True
    End If
    Do While TransferRecord.Read()
        ProdDate = TransferRecord.Item("ProdDate")
        BaleLine = TransferRecord.Item("BaleLine")
        If BaleLine = "A" Then
            BaleLineNum = "1"
        Else
            BaleLineNum = "2"
        End If
        BaleNumber = TransferRecord.Item("BaleNumber")
        GrossWeight = TransferRecord.Item("GrossWeight")
        AirDry = TransferRecord.Item("AirDry")
        InvoiceWeight = TransferRecord.Item("InvoiceWeight")
        'Start of writing to the SQL server.
        SQLServerConnection.Open()
        Dim SQLCommand1 As New SqlCommand("INSERT INTO dbo.b_Pulp_PI_Forte (mill, keyprinter_datetime, bale_line_num, pulp_line_id, bale_id, drop_datetime, bale_gross_weight, bale_airdry_pct, grader_test_flag, status_id, created_by, CreatedDateTime, Who_did_it, Last_change_datetime) VALUES ('850', '" & ProdDate & "', '" & BaleLineNum & "', '" & BaleLine & "', '" & BaleNumber & "', '" & ProdDate & "', '" & GrossWeight & "', '" & AirDry & "', 'N', 'U', 'BaleTrac', '" & Date.Now & "', 'BaleTrac', '" & Date.Now & "')")
        If ApplicationPropertiesWindow.DisplayCodechkbx.Checked = True Then
            MainTextBox.AppendText(Environment.NewLine & "INSERT INTO dbo.b_Pulp_PI_Forte (mill, keyprinter_datetime, bale_line_num, pulp_line_id, bale_id, drop_datetime, bale_gross_weight, bale_airdry_pct, grader_test_flag, status_id, created_by, CreatedDateTime, Who_did_it, Last_change_datetime) VALUES ('850', '" & ProdDate & "', '" & BaleLineNum & "', '" & BaleLine & "', '" & BaleNumber & "', '" & ProdDate & "', '" & GrossWeight & "', '" & AirDry & "', 'N', 'U', 'BaleTrac', '" & Date.Now & "', 'BaleTrac', '" & Date.Now & "')")
            GlobalVariables.DisplayCode = True
        End If
        SQLCommand1.Connection = SQLServerConnection
        SQLCommand1.ExecuteNonQuery()
        SQLServerConnection.Close()

【讨论】：