Dim AccessConnection As New System.Data.OleDb.OleDbConnection

Dim _conn As String

Dim SchemaTable As DataTable

AccessConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase Password=13*13"

AccessConnection.Open()

SchemaTable = AccessConnection.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, "sgkkod"})

If SchemaTable.Rows.Count <> 0 Then

MsgBox("Table Exists already")

Else

Dim _filename As String = "deneme.xls"

_conn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & _filename & ";" & "Extended Properties=Excel 8.0;"

Dim _connection As OleDbConnection = New OleDbConnection(_conn)

Dim _command As OleDbCommand = New OleDbCommand

_command.Connection = _connection

Try

_command.CommandText = "SELECT * INTO [MS Access;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase Password=13*13].[sgkkod] FROM [Sayfa1$]"

_connection.Open()

_command.ExecuteNonQuery()

MessageBox.Show("The Data Imported Successfully!")

Catch e1 As Exception

MessageBox.Show("Error!.Your Excel Spread Sheet has some problems.")

End Try

End If

Bu kod ile Excel dosyasını Access veritabanına tablo olarak ekliyorum. sıkıntı şurda başlıyor. veritabanı şifreli

böyle yapıyorum olmuyor

_command.CommandText = "SELECT * INTO [MS Access;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase Password=13*13].[sgkkod] FROM [Sayfa1$]"

bölye yapıyorum olmuyor

_command.CommandText = "SELECT * INTO [MS Access;Database=drmofis.mdb].[accesstbname] FROM [Sayfa1$]"

orjinal kod alanı şu

_command.CommandText = "SELECT * INTO [MS Access;Database=somefile.mdb].[accesstbname] FROM [Sheet1$]"

doğrusunu bir türlü yapamadım. Ya hata veriyor yada MS Access isimli Excel dosyası oluşturuyor. Bir türlü Excel sayfasını accesse aktaramadım