döngüde tablo ismlerini kullanmak
Tarih
29/04/2012 16:55
Konu Sahibi
accessman
Yorumlar
4
Okunma
1336
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
iyi günler

Kod:
SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects WHERE (((MSysObjects.Type)=4));

bu satırla bağlı tablo isimleri alınıyor
bunu döngü içinde nasıl kullanabilirim
teşekkürler

@benbendedeilem
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
aşağıdaki kod yazılımında nerede hatam var

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub YEkle_Click() 
On Error Resume Next

Dim cnr As New ADODB.Recordset
Set cnr = New ADODB.Recordset
Dim sql As String
Dim tablo_adi As String

sql = "select * from tablo_isimleri"
 
cnr.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
cnr.Edit

tablo_adi = cnr("name")

 DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=tolga", acTable, tablo_adi, tablo_adi, False

cnr.Next
cnr.Close

End Sub


yapmak istediğim tablo_isimleri tablosunun name alanındaki değerleri baştan son kayıta kadar ODBC işlemine tabi tutmak
teşekkürler


doğru kod bu imiş
en azından işimi görüyor
hatalarımı ustalar düzeltsin

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Komut1_Click()
Dim rs As New ADODB.Recordset
Dim ilk, son As Integer
Dim tablo_adi As String

rs.Open "tablo_isimleri", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveFirst
ilk = rs("id")
rs.MoveLast
son = rs("id")

rs.MoveFirst
For x = ilk To son
tablo_adi = rs("name")
    DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=tolga", acTable, tablo_adi, tablo_adi, False
rs.MoveNext
Next x
Set rs = Nothing
End Sub

@benbendedeilem
Cevapla


esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38
Çözüldü 
alltable diye bir kodu vardırma bütüntablo isimleri i getiriyordu kodu deposunda vardı
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
Dün,15:18
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
Sub AllTables()
 Dim obj As AccessObject, dbs As Object
 Set dbs = Application.CurrentData
 ' Search for tables in AllTables collection.
 For Each obj In dbs.AllTables
 ' Table name
 Msgbox obj.Name
 Next obj
End Sub


http://msdn.microsoft.com/en-us/library/aa210657%28v=office.11%29.aspx 

Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
çok teşekkürler
@benbendedeilem
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Tablo dan Açılır Kutu ya alınan verilerek Sabit Ekleme yapma ask200075 7 266 21/11/2016, 18:49 ask200075
Çözüldü access olmadan veritabanı kullanmak mariachi232 4 1.824 14/11/2016, 16:49 atoz112
  Access Veritabanında Tablo Şifreleme ve Formdan Tabloya Bağlanma Nasıl Yapılır?? mehami 11 305 09/11/2016, 23:35 mehami
  Devir işlemi ve tablo güncelleme ates2014 2 132 01/09/2016, 15:40 ates2014
  Başka uygulamadaki tablo kayıtlarını ana uygulamadaki tabloya eklemek Deniz DEMİRCİOĞLU 8 476 30/08/2016, 11:32 Deniz DEMİRCİOĞLU


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