如何从Excel导入数据以使用Vb 10访问数据库？ [英] How Do I Import Data From Excel To Access Database Using Vb 10 ?

问题描述

Try
            Dim Access As String = "|datadirectory|\datakaryawan.mdb"
            Dim Excel As String = "|datadirectory|\datakaryawanall.xls"
            Dim connect As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Excel & _
        ";Extended Properties=Excel 12.0;"
            Using cn As New OleDbConnection(connect)
                Using cmd As New OleDbCommand()
                    cmd.Connection = cn
                    cmd.CommandText = "INSERT INTO [MS Access;Database=" & Access & "].[datakaryawanall] SELECT * FROM [datakaryawanall$]"
                    cn.Open()
                    cmd.ExecuteNonQuery()
                End Using
            End Using
            Me.RefreshDataView()
            Me.bersih()
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

它显示错误信息，如外部表格不是预期的格式

it show error message like this "external table is not in expected format"

推荐答案

cn.Open（）
cmd.ExecuteNon Query（）
结束 使用
结束 使用
我 .RefreshDataView（）
我 .bersih（）
Catch ex As 异常
MsgBox（ex.ToString）
结束 尝试

" cn.Open() cmd.ExecuteNonQuery() End Using End Using Me.RefreshDataView() Me.bersih() Catch ex As Exception MsgBox(ex.ToString) End Try

它显示错误信息，如外部表格不是预期格式

it show error message like this "external table is not in expected format"

这篇关于如何从Excel导入数据以使用Vb 10访问数据库？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！