04/12/2012, 23:14
drummers
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
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 OLEDB
_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 OLEDB
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