Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
09/12/2011 18:34
Konu Sahibi
drummers
Yorumlar
6
Okunma
4298
Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 5/5 - 1 oy
Kullanici Avatari

drummers

Destek
OM.... CA....
 413
 120
 11/05/2009
125
 İzmir
 
 Ofis 2003
 30/11/2018,15:33
Çözüldü 
Ekteki deneme.xls dosyama tablolar.mdb dosyamdaki "data" tablosundan veri aktarmak istiyorum. deneme.xls deki butona bastığımda verilerin aktarılmasını nasıl sağlarım.


Not: Yazacağınız kodda aktarılacak sütunları ve aktarılacak olan hücre aralığını seçebilme şansım olursa çok makbule geçer.
Teşekkürler

Ek Dosyalar
tablolar.rar(76.8 KB)

Ek Dosyalar
deneme.xls(13 KB)


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

DUAYEN

Destek
SÜ.... AR....
 35
 1.026
 71
 13/08/2010
279
 Yozgat
 
 Ofis 2007
 18/04/2018,17:46
Çözüldü 
Sn Oğulcan92 hocamın yaptıuğı örnek size yol gösterecektir.


Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...

Kullanici Avatari

yorum70

Aktif Üye*
AY.... ŞA....
 48
 1.184
 148
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
Bu olayı başka bir accessten yapabilmemiz için ne yapabiliriz ? Sn.Oğulcan92'nin acceste ki tabloyu silip kendi tablomu ekledim veri alışverişi olmdı..Hata kodu var ! Nasıl yapabiliriz bu olayı ?


"Her tercih, bir vazgeçiştir"


Kullanici Avatari

yorum70

Aktif Üye*
AY.... ŞA....
 48
 1.184
 148
 08/10/2010
71
 Ankara
 
 Ofis 2013 64 Bit
 22/10/2016,21:00
Çözüldü 
Konuyu hallettim, kodu değişrirdim, dataya uyarladım, güzel çalışma ama aktar denince zınk diye 4000 kayıtı aktarıyor.

İlginize Tşk.


"Her tercih, bir vazgeçiştir"


Kullanici Avatari

schworse

Onursal Üye
ME.... EM.... ÖZ....
 40
 197
 8
 02/11/2008
100
 İzmir
 Yazılım Uzmanı
 Ofis 2013 64 Bit
 11/02/2018,20:32
Çözüldü 
Merhaba;

İlk olarak projenize bir modül ekleyin ve modüle bu kodları yapıştırın.

Kod:
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
Option Explicit
Dim CON As ADODB.Connection
Dim Rec As ADODB.Recordset
Dim Query As QueryTable
Dim strSQL As String
Dim RS As Object
Dim adoCN As Object
Sub SQL_Sorgusu()
   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim Nsql As String
   Dim i As Integer
   Worksheets("Sayfa1").Select
    Set conn = New ADODB.Connection
    With conn
        .Provider = "Microsoft.JET.OLEDB.4.0"
        .Open Application.ActiveWorkbook.Path & "\tablolar.mdb"
    End With
    Nsql = "SELECT * FROM data;"
    Set rst = New ADODB.Recordset
    With rst
        .ActiveConnection = conn
        .Open Nsql, conn, adOpenDynamic, adLockBatchOptimistic
    End With
    Range("A2:H30000").ClearContents
    For i = 0 To rst.Fields.Count - 1
    Range("A2").Offset(0, i).Value = rst.Fields(i).Name
    Next i
    Range("A2").CopyFromRecordset rst
    conn.Close
End Sub


Sonra sayfanızın Btn_Click eventine bu kodu yapıştırın.

Kod:
SQL_Sorgusu


Son olarakta Projenize Kod panelinde iken Tools menusunden Microsoft Activex Data Objets 2.8 Library references ekleyin ve sayfaya dönüp butona basın işlem olacaktır.

Not: tablolar Access ile Excel aynı dizinde olmalı bu önemli.
Kolay gelsin.

Ek Dosyalar
Access-Excell_Schworse.rar(87.38 KB)



Kullanici Avatari

drummers

Destek
OM.... CA....
 413
 120
 11/05/2009
125
 İzmir
 
 Ofis 2003
 30/11/2018,15:33
Çözüldü 
Teşekkürler.


drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü makro ile excele veri almak siyahhayis 4 3.623 05/06/2016, 15:48
Son Yorum: atoz112
Çözüldü excele klasörden resim çağırma bitikhoca 2 1.901 09/05/2016, 12:36
Son Yorum: atoz112
Çözüldü Sayfadan sayfaya veri aktarımı sitem27 5 1.158 06/03/2016, 20:55
Son Yorum: atoz112
Çözüldü Çalışma sayfalarından ana sayfaya veri aktarımı drummers 7 2.826 10/04/2012, 15:58
Son Yorum: DUAYEN
Çözüldü Sayfa Kopyalama ve Veri Aktarımı drummers 19 5.202 09/04/2012, 12:31
Son Yorum: DUAYEN

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.