從VF 或 EXCEL 數據 匯入到 SQL SERVER

    Private Sub OpenDATA(ByVal TmpOpenDialog As OpenFileDialog)
        Me.Text = ""
        Dim strFlName As String
        With TmpOpenDialog
            .Title = "請選擇要匯入的VF數據文件名"
            .Filter = "VF數據文件(*.dbf)|*.dbf"
            .FileName = ""
        End With
        If TmpOpenDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            If TmpOpenDialog.FileName <> "" Then
                strFlName = TmpOpenDialog.FileName()
            Else
                Exit Sub
            End If
        Else
            Exit Sub
        End If
        If Dir(strFlName) = "" Then
            MsgBox("你選擇的文件不存在,無法匯入!", vbCritical, "打開文件錯誤")
            Exit Sub
        Else
            TxtPath.Text = strFlName
        End If
        '**************

        Dim strTxt() As String
        Dim strName() As String
        strTxt = Split(TxtPath.Text.Trim, "/")
        strName = Split(strTxt(4), ".")

        DataName = strName(0)

        Me.Text = "正在匯入數據．．．"
        '*****************
        Dim strSql As String
        Try
            strSql = "select * from dbo.sysobjects where id = object_id(N'[dbo].[" & DataName & "]') and OBJECTPROPERTY(id, N'IsUserTable') = 1"

            If GetDataSet(gCnn, strSql).Tables(0).Rows.Count > 0 Then
                strSql = "drop table " & DataName & ""
                UpdateData(gCnn, strSql)
            End If

            strSql = "select * into  " & DataName & " from openrowset('MSDASQL','Driver=Microsoft Visual FoxPro Driver;SourceDB=D:/ERP/MICRON/DATA/database.DBC;SourceType=DBC','select * from " & DataName & " ')"
            UpdateData(gCnn, strSql)
            Me.Text = "匯入數據成功."
        Catch ex As Exception
            Me.Text = ""
            MsgBox(ex.ToString)

        End Try
    End Sub