Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > Access Soruları
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Access Soruları Access hakkındaki sorular ve cevaplar.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 26-11-2012, 18:29   #1
ikikan
Altın Üye
 
Giriş: 03/03/2009
Şehir: ankara
Mesaj: 416
Excel Vers. ve Dili:
excel 2003 tr
Varsayılan Excel hücreden Accese veri tabanına bilgi aktarmada sorun

Nerde yanlış yapıyorum bir türlü beceremedim ?
Alıntı:
Sub DbAc()
Dim adoCN As Object
Dim DatabasePath As String
'---------------Database açılcak--------------
On Error Resume Next
Set adoCN = CreateObject("ADODB.Connection")
DatabasePath = ActiveWorkbook.Path & "\RPDATA.mdb"
If Dir(DatabasePath) = "" Then
'MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "TestMDB"
Exit Sub
End If
adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
adoCN.ConnectionString = DatabasePath
adoCN.Open
End Sub
Sub DbKapat()
'---------------Database kapanacak--------------
Dim adoCN As Object
On Error Resume Next
If adoCN.State = 1 Then
adoCN.Close
Else
End
End If
End Sub

Sub AccesseKaydet()
Call DbAc
Dim rs As Object
Dim nobul As Integer
Dim i As Integer
Set rs = CreateObject("ADODB.recordset")
With Sheets("VVV")
rs.Open "select from VG", adoCN, 1, 3
For i = 4 To .Range("O65536").End(3).Row
rs.AddNew
rs.Fields(0).Value = Cells(i, 1).Value
rs.Fields(1).Value = Cells(i, 2).Value
rs.Fields(2).Value = Cells(i, 3).Value
rs.Fields(3).Value = Cells(i, 4).Value
rs.Fields(4).Value = Cells(i, 5).Value
rs.Fields(5).Value = Cells(i, 6).Value
rs.Fields(6).Value = Cells(i, 7).Value
rs.Fields(7).Value = Cells(i, 8).Value
rs.Fields(8).Value = Cells(i, 9).Value
rs.Fields(9).Value = Cells(i, 10).Value
rs.Update
Next i
End With
MsgBox "Kayıtlar veritabanına aktarıldı", vbInformation
On Error Resume Next
Call DbKapat
End Sub
Eklenmiş Dosyalar
Dosya Türü: rar PEGEM VT.rar (33.8 KB, 3 Görüntülenme)
ikikan Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 07:57


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden