Excelden Veri Alma Ve Kaydı Güncelleme

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
01/02/2020, 14:37

feraz

Rica ederim.

Satır bulmayıda ekledim.
sSql = "select [KOD],[AD],[YAÞ] from [Sayfa1$B3:E] where [KOD] Is Not Null" '
Yukarıdaki exceldeki kod,ad ve yaş sütundaki verileri hafızaya (recordset) alıyor.

sSqlCount = "select count(*) from [Sayfa1$B3

Dikkat etmeniz gerek  mesela exceldeki kod yani B sütunundaki veriler accessteki tablonun kod alanındada varsa hepsi güncellenir.
Yani Access kod alanında 1.satırda A1 ,10.satırdada A1 varsa ikiside güncellenir.

Birde  rs.LockType = adLockPessimistic yerine rs.LockType = adLockOptimistic ekledim doğrusu bu olmalı gibi karıştırıyorum onlar sorun olmuyor her ikisindede.
Kodları inceleyebilirsiniz.


Option Compare Database


Private Sub Komut0_Click()
 
    Dim say As Long, say1 As Long
    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sSql As String, sSqlCount As String, adet As Long
    Dim varFile As Variant
    Dim yahya As String
    Dim fDialog As Office.FileDialog
   
    Set rs = New ADODB.Recordset
    Set con = New ADODB.Connection
   

    sSql = "select [KOD],[AD],[YAÞ] from [Sayfa1$B3     sSqlCount = "select count(*) from [Sayfa1$B3    
'Dosya ac -------------------------------------------------------------------------------------------------------
    Set fDialog = Application.FileDialog(msoFileDialogFilePicker)

  With fDialog
      .AllowMultiSelect = False
        .Title = "Lütfen Aktaraca?ynyz Bilgilerin Bulundu?u Excel Dosyasyny Seçin"

        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .Filters.Add "Excel 2003", "*.xls"
        .Filters.Add "Excel 2007", "*.xlsx"


          If .Show = True Then
            For Each varFile In .SelectedItems
                yahya = varFile
            Next
        End If
    End With

    If yahya = "" Or IsNull(yahya) Then
        MsgBox "Dosya secilmedigi icin iptal edildi...", vbCritical, "iptal"
        Set fDialog = Nothing
        Exit Sub
    End If
   
  'Dosya ac sonu -------------------------------------------------------------------------------------------------------
 
    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yahya & ";extended properties=""excel 12.0;hdr=Yes;imex=1"""

   
    rs.CursorLocation = adUseClient
    rs.CursorType = adOpenKeyset
    rs.LockType = adLockOptimistic
    rs.Open sSqlCount, con
    adet = rs(0)
    rs.Close
   
    rs.Open sSql, con

    Do While Not rs.EOF And Not rs.BOF 'Tablo güncelleme icin(Exceldeki recordseti icine alinan veriler icin döngü)
        If DCount("[kod]", "Tablo1", "[kod] = '" & rs(0) & "'") > 0 Then 'Eger Tablo1 deki kod sütununda excelden alinan recordset icindeki veri mevcutsa

          CurrentDb.Execute _
            "UPDATE Tablo1 SET [kod] = '" & rs(0) & "'," & _
                               "[ad] = '" & rs(1) & "'," & _
                               "[yas] = '" & rs(2) & "' WHERE [kod] = '" & rs(0) & "'"
            say = say + 1

        ElseIf DCount("[kod]", "Tablo1", "[kod] = '" & rs(0) & "'") = 0 Then 'Eger Tablo1 deki kod sütununda excelden alinan recordset icindeki veri mevcut degilse

            CurrentDb.Execute _
                         "INSERT INTO Tablo1" _
                           & " ([kod], [ad], [yas])" _
                           & " VALUES ( '" & rs(0) & "' , '" & rs(1) & "' , " & rs(2) & " );" 'Kayit ekle exceldekinde olup accesste mevcut olmayan veri
            say1 = say1 + 1
        End If

        rs.MoveNext
    Loop


  Form2.Requery
  MsgBox "Eklenen kayit sayisi=" & say1, vbInformation, "Bilgi"
  MsgBox "Düzeltilen kayit sayisi=" & say, vbInformation, "Bilgi"
  MsgBox "Exceldeki Toplam satir sayisi=" & adet, vbInformation, "Bilgi"


    rs.Close
    con.Close
    Set rs = Nothing
    Set fDialog = Nothing

End Sub
01/02/2020, 14:43

feraz

Eğer başlık olasın derseniz ilgili kodları alttaki ile değiştirin.
Başlık olayı eklenmezse 65536 dan sonrası için hata veriyor biliyorum.


Hdr=Yes yerine Hdr=No ve [F1],[F2] gibi oldu ayrıyeten 3 olanlarda 4 ile değiştirildi.

con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & yahya & ";extended properties=""excel 12.0;hdr=No;imex=1"""

Kod:
sSql = "select [F1],[F2],[F3] from [Sayfa1$B4:D] where [F1] Is Not Null" '
    sSqlCount = "select count(*) from [Sayfa1$B4:D] " 'Exceldeki satir sayisi
01/02/2020, 14:59

feraz

(01/02/2020, 14:37)feraz yazdı: Yani Access kod alanında 1.satırda A1 ,10.satırdada A1 varsa ikiside güncellenir.

Yukarıdaki 13.cü mesajda yazdığımı anladıysanız eğer excelde findnext komutu vardı normal Vba koduyla onunla karşılaştırma yapılıyor.

Daha Ado ile findnext olayını hiç kullnmadım.

Sonra fırsat bulunca birde onunla denerim.

Access teki Tablo1deki kod sütunu benzersizse gerek yok zaten.
Yinede lazım olabilir diye uğraşırım sonra.
01/02/2020, 15:05

yahyamacit

Ne diyeceğimi bilemedim. Çok teşekkür ediyorum. Forma progressbar koyup veri alım ilerleme durumunuda görebilsek Harika olurdu??
01/02/2020, 15:07

feraz

Rica ederim Progress olayına bugün akşam bakarım zor değil bildiğim kadarıyla.Tabii accesste hiç denemedim.
01/02/2020, 15:27

yahyamacit

Minnettar olurum. Çok teşekkür ederim.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19