AccessTr.neT
Access veri aktarımında hata hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access veri aktarımında hata hakkında (/konu-access-veri-aktariminda-hata-hakkinda.html)



Access veri aktarımında hata hakkında - drummers - 04/12/2012

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 OLEDBLolatabase 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 OLEDBLolatabase 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 OLEDBLolatabase 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


Cvp: Access veri aktarımında hata hakkında - alpeki99 - 05/12/2012

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


Cvp: Access veri aktarımında hata hakkında - drummers - 05/12/2012

(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.


Cvp: Access veri aktarımında hata hakkında - alpeki99 - 05/12/2012

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/29045/Import-Excel-files-to-SQL-Server-dynamically örnek işinizi görecektir. Diğer yandan MSDN de http://social.msdn.microsoft.com/Forums/en-US/adodotnetdataproviders/thread/2f4d33d2-28da-4266-9703-8cc72f7115d7 iyi bir kaynak olabilir.


Cvp: Access veri aktarımında hata hakkında - drummers - 06/12/2012

(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/29045/Import-Excel-files-to-SQL-Server-dynamically örnek işinizi görecektir. Diğer yandan MSDN de http://social.msdn.microsoft.com/Forums/en-US/adodotnetdataproviders/thread/2f4d33d2-28da-4266-9703-8cc72f7115d7 iyi bir kaynak olabilir.

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