- Katılım
- 8 Temmuz 2016
- Mesajlar
- 52
- Excel Vers. ve Dili
- excell 10
- Altın Üyelik Bitiş Tarihi
- 24-11-2021
Merhabalar,
Aşağıdaki kod ile textboxlardaki bilgileri listview dan tek tek seçerek yedekliyorum. Ancak bunların hepsini topluca tek seferde nasıl yedekleyebilirim/aktarabilirim?
Aşağıdaki kod ile textboxlardaki bilgileri listview dan tek tek seçerek yedekliyorum. Ancak bunların hepsini topluca tek seferde nasıl yedekleyebilirim/aktarabilirim?
Kod:
Private Sub CommandButton18_Click()
Dim baglan As ADODB.Connection
Dim ks As ADODB.Recordset, yol As String, Dosya As String, i As Long
Dim ks2 As ADODB.Recordset
If ListView1.SelectedItem Is Nothing Then
MsgBox "Lütfen bir satır seçiniz." & vbLf & "İşlem Yapılmadı.", vbCritical, "UYARI "
Exit Sub
End If
yol = ThisWorkbook.path & "\"
Dosya = "Veritabani.mdb"
Set baglan = New ADODB.Connection
Set ks = New ADODB.Recordset
Set baglan = New ADODB.Connection
Set ks2 = New ADODB.Recordset
baglan.Open "provider=microsoft.ace.oledb.12.0;data source=" & yol & Dosya & ";"
ks.Open "select * from [Final_Montaj] where Sıra=" & _
CLng(ListView1.SelectedItem.Text), baglan, adOpenKeyset, adLockOptimistic
If ks.RecordCount > 0 Then
ks.Delete
ks.Update
ks2.Open "select * from YEDEK", baglan, adOpenKeyset, adLockOptimistic
ks2.AddNew
ks2("Personel") = TextBox2.Text
ks2("Adet") = TextBox3.Text
ks2("QrKod") = TextBox4.Text
ks2("LotNo") = TextBox5.Text
ks2("Rev") = TextBox6.Text
ks2("Proje") = TextBox7.Text
ks2("Operasyon") = TextBox8.Text
ks2("BaslamaZamani") = TextBox9.Text
ks2("BitisZamani") = TextBox10.Value
ks2("OperasyonSuresi") = TextBox11.Value
ks2("DuraklamaSuresi") = TextBox16.Value
ks2("Aciklama") = TextBox12.Text
ks2("Tarih") = TextBox13.Text
ks2.Update
ks.Close
ks2.Close
End If
baglan.Close
Set ks = Nothing: Set baglan = Nothing
ListView1.ListItems.Clear
Call goster
MsgBox "Kaydetme işlemi başarı ile gerçekleşti.", vbOKOnly + vbInformation
End Sub