Visual Basic'de Excel'den Access'e Veri Atma

'Programlama' forumunda sha. tarafından 10 Ağu 2009 tarihinde açılan konu

Konu etiketleri:
  1. sha.

    sha. ..daha çirkin, daha huysuz

    Dim db As Database
    Dim rs As Recordset
    Dim r As Long

    Set db = OpenDatabase("C:\Documents and Settings\ogrenci\Desktop\yunus\deneme.mdb")

    Set rs = db.OpenRecordset("myTable", dbOpenTable)

    r = 10
    Do While Len(Range("C" & r).Formula) > 0

    With rs
    .AddNew
    .Fields("Sira") = Range("B" & r).Value
    .Fields("Sira_No") = Range("B" & r).Value & " Hat1"
    .Fields("Stok_No") = Range("C" & r).Value
    .Fields("Isletme_Kodu") = Range("D" & r).Value
    .Fields("Marka_Kodu") = Range("E" & r).Value
    .Fields("Model") = Range("F" & r).Value
    .Fields("Plan") = Range("M" & r).Value
    .Fields("Fiili") = Range("N" & r).Value
    .Fields("1") = Range("O" & r).Value
    .Fields("2") = Range("P" & r).Value
    .Fields("3") = Range("Q" & r).Value
    .Fields("4") = Range("R" & r).Value
    .Fields("5") = Range("S" & r).Value
    .Fields("6") = Range("T" & r).Value
    .Fields("7") = Range("U" & r).Value
    .Fields("8") = Range("V" & r).Value
    .Fields("9") = Range("W" & r).Value
    .Fields("10") = Range("X" & r).Value
    .Fields("11") = Range("Y" & r).Value
    .Fields("12") = Range("Z" & r).Value
    .Fields("13") = Range("AA" & r).Value
    .Fields("14") = Range("AB" & r).Value
    .Fields("15") = Range("AC" & r).Value
    .Fields("16") = Range("AD" & r).Value
    .Fields("17") = Range("AE" & r).Value
    .Fields("18") = Range("AF" & r).Value
    .Fields("19") = Range("AG" & r).Value
    .Fields("20") = Range("AH" & r).Value
    .Fields("21") = Range("AI" & r).Value
    .Fields("22") = Range("AJ" & r).Value
    .Fields("23") = Range("AK" & r).Value
    .Fields("24") = Range("AL" & r).Value
    .Fields("25") = Range("AM" & r).Value
    .Fields("26") = Range("AN" & r).Value
    .Fields("27") = Range("AO" & r).Value
    .Fields("28") = Range("AP" & r).Value
    .Fields("29") = Range("AQ" & r).Value
    .Fields("30") = Range("AR" & r).Value
    .Fields("31") = Range("AS" & r).Value


    .Update
    End With
    r = r + 1
    Loop
    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
     

Bu Sayfayı Paylaş