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

Orjinal olan dosyada aktarım başarılı bir şekilde aktarılıyor mu? Yani örnek aldığınız projede demek istedim.

(05/12/2012, 12:18)alpeki99 yazdı: Orjinal olan dosyada aktarım başarılı bir şekilde aktarılıyor mu? Yani örnek aldığınız projede demek istedim.

Eğer veritabanı şifreli değilse sıkıntı yok aktarım yapılabiliyor.

Sadece örnek proje dosyanıza şifre koyup deneyin. Yani kendi projenize aktarmadan deneyin bakalım olacakmı. Arada yapılmış örnekleri inceleyeyim derseniz Code Project'te yer alan http://www.codeproject.com/Articles/2904...ynamically örnek işinizi görecektir. Diğer yandan MSDN de http://social.msdn.microsoft.com/Forums/...c72f7115d7 iyi bir kaynak olabilir.

(05/12/2012, 23:05)alpeki99 yazdı: Sadece örnek proje dosyanıza şifre koyup deneyin. Yani kendi projenize aktarmadan deneyin bakalım olacakmı. Arada yapılmış örnekleri inceleyeyim derseniz Code Project'te yer alan http://www.codeproject.com/Articles/2904...ynamically örnek işinizi görecektir. Diğer yandan MSDN de http://social.msdn.microsoft.com/Forums/...c72f7115d7 iyi bir kaynak olabilir.

Teşekkürler. Sonuca göre dönüş yaparım.