XLSX dosyalarını veritabanı olarak nasıl kullanabilirim?

[samurayulus]

Merhaba

ADO ile kapalı xls dosyalarında kayıt ve değiştirme işlemlerini yapabiliyoruz.
Benim xls için yazdığım kodlar aşağıda
Peki dosya xlsx olursa kodlarımızı nasıl değiştirmeliyiz?



Bağlantı Kodu ------>

Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DBpath _
& ";Extended Properties=Excel 8.0;"


Kayıt Ekleme Kodu ------>

conn.Execute "Insert into " & ShName & Rngs & _
" values ('" & TextBox1 & "','" & TextBox2 & "','" & ComboBox1 & "','" & TextBox3 & "','" & TextBox4 & "','" & TextBox5 & "','" & TextBox6 & "')"
conn.Close



Değiştirme Kodu ------>

conn.Execute "update " & ShName & _
" set Cuval_No ='" & TextBox11.Value & "', Tarih ='" & TextBox12.Value & "', Tedarikci ='" & ComboBox2.Value & "', Hammadde ='" & TextBox13.Value & "', Lot_No ='" & TextBox14 & "', Miktar ='" & TextBox15.Value & "', Personel ='" & TextBox16.Value & _
"' where Cuval_No='" & ListBox1.Column(0) & "' AND Tarih = '" & ListBox1.Column(1) & "' AND Tedarikci = '" & ListBox1.Column(2) & "' AND Hammadde = '" & ListBox1.Column(3) & "' AND Lot_No = '" & ListBox1.Column(4) & "' AND Miktar = '" & ListBox1.Column(5) & "' AND Personel = '" & ListBox1.Column(6) & "'"
conn.Close

 

[Taruz]

Merhaba..

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

satırını

conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _

şeklinde değiştirerek deneyiniz..

 

[Zeki Gürsoy]

Connection değişmeli.

"Driver={Microsoft Excel Driver (*.xls)};dbq=" & dbpath

 

[Orion1]

aşağıdaki satırı değiştiriniz.

";Extended Properties=Excel 8.0;"

";Extended Properties=Excel 12.0;"

 

[samurayulus]

Teşekkürler, denedim çalışıyor.
Bu satırı değiştirmem yeterli oldu conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _