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

Discussion in 'Programlama' started by sha., Aug 10, 2009.

  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
     

Share This Page