döngüde tablo ismlerini kullanmak
Tarih
29/04/2012 16:55
Konu Sahibi
accessman
Yorumlar
4
Okunma
1443
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ü 
Sponsor Reklam
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
359
Konya
Ofis 2003
12/05/2017,17:08
Çö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.550
7
30/10/2008
814
Tekirdağ
Ofis XP
11/05/2017,16:26
Çözüldü 
Sponsor Reklam

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/...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
  Access Tablo - Sorgu Bağlanması hasan şahin 5 137 13/05/2017, 12:04 atoz112
  Tablo Birleştirme Hk. serkan1985 4 81 12/05/2017, 17:01 serkan1985
  Otomatik Tablo Bağlama Ve Güncelleme husem 7 225 02/04/2017, 14:20 atoz112
  ÜRETİM TAKİP PROGRAMI TABLO GİRİŞİ FAZLA YARDIM LÜTFEN cturkyilmaz 11 414 12/01/2017, 18:27 ozanakkaya
Çözüldü makro ile kısayol tuşlarını kullanmak ilhantarik 5 1.292 09/01/2017, 14:15 yturan


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status