Excelden Accesse veri gönderme
Tarih
02/12/2013 22:07
Konu Sahibi
ynlmz
Yorumlar
0
Okunma
1272
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Sayın Hocalarım;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Sub ADOFromExcelToAccess()

Dim conn As Object
Dim rs As Object

Dim asay As Integer
asay = WorksheetFunction.CountA(Sheets("Analiz").Range("c9:c48"))

Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
With cn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open ThisWorkbook.Path & "\OgretmenSinav.mdb"
End With

 rs.Open "Yedek", cn, adOpenKeyset, adLockOptimistic, adCmdTable

 With rs
 For i = 1 To asay
 .AddNew
 .Fields("Ders") = Sheets("Analiz").Cells(5, 4)
 .Fields("Dönem") = Sheets("Analiz").Cells(4, 4)
 .Fields("SınavNo") = Sheets("Analiz").Cells(3, 14)
 .Fields("okulno") = Sheets("Analiz").Cells(8 + i, 3)
 .Fields("adısoyadı") = Sheets("Analiz").Cells(8 + i, 4)
 .Fields("1") = Sheets("Analiz").Cells(8 + i, 5)
 .Fields("2") = Sheets("Analiz").Cells(8 + i, 6)
 .Fields("3") = Sheets("Analiz").Cells(8 + i, 7)
 .Fields("4") = Sheets("Analiz").Cells(8 + i, 8)
 .Fields("5") = Sheets("Analiz").Cells(8 + i, 9)
 .Fields("6") = Sheets("Analiz").Cells(8 + i, 10)
 .Fields("7") = Sheets("Analiz").Cells(8 + i, 11)
 .Fields("8") = Sheets("Analiz").Cells(8 + i, 12)
 .Fields("9") = Sheets("Analiz").Cells(8 + i, 13)
 .Fields("10") = Sheets("Analiz").Cells(8 + i, 14)
 .Fields("11") = Sheets("Analiz").Cells(8 + i, 15)
 .Fields("12") = Sheets("Analiz").Cells(8 + i, 16)
 .Fields("13") = Sheets("Analiz").Cells(8 + i, 17)
 .Fields("14") = Sheets("Analiz").Cells(8 + i, 18)
 .Fields("15") = Sheets("Analiz").Cells(8 + i, 19)
 .Fields("16") = Sheets("Analiz").Cells(8 + i, 20)
 .Fields("17") = Sheets("Analiz").Cells(8 + i, 21)
 .Fields("18") = Sheets("Analiz").Cells(8 + i, 22)
 .Fields("19") = Sheets("Analiz").Cells(8 + i, 23)
 .Fields("20") = Sheets("Analiz").Cells(8 + i, 24)
 .Fields("Sınıf") = Sheets("Analiz").Cells(2, 14)


 .Update
    Next i
 End With

 rs.Close
 Set rs = Nothing
 cn.Close
 Set cn = Nothing
 End Sub

bu kod ile Excelden Accesse veri gönderiyorum. Veri gönderirken eğer o veri Accesste var ise göndermesin istiyorum. Bunu nasıl yapabilirim? Yardımlarınızı bekliyorum

Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Excele veri gönderme problemi volkangezer 1 1.206 04/02/2016, 18:48 tamertok
  excelde förmüle bağlı mail gönderme dilekesen 1 1.370 24/01/2014, 23:08 metbal
  sorgudan excele gönderme aygun78 1 898 03/04/2013, 09:49 aygun78
  Excelden veri çekmek volkangezer 4 1.652 20/03/2013, 10:36 volkangezer
  excel dosyasını accesse aktarma yyardim 1 1.460 27/01/2013, 17:46 ozanakkaya


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya