+- 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 OLEDB
atabase 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 IfBu 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$]"_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.