Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
27/04/2012 09:51
Konu Sahibi
accessman
Yorumlar
6
Okunma
2563
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
hayırlı cumalar
bağlı tablo ile veri tabanımızdaki bilgilere ulaşıyoruz

DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=karpuz", acTable, "sebze", "t_sebze", False

bu kod ile sebze tablosuna t_sebze bağlı tabloso ile bağlanıyoruz
ama benim istediğim bağlandığımız veri tabanındaki (buna karşı taraf diyeceğim) tüm tablolara bağlanmak
yani karşı tarafa yeni tablo eklenebilir bu durumda bizim projede bunun karşılığı olmaz
o yüzden tablo isimlerine bağlı kalmadan

For Each c In Me.Controls
DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=karpuz", acTable, "sebze", "t_sebze", False
next

gibi bir döngü kullanarak karşı taraftaki tüm tabloları bağlamak istiyorum
teşekkürler
örnek ekleyemiyorum çünkü manasız olacak bağlanacak veri tabanı sizlerde olmayacağı için zaten çalışmayacak


@benbendedeilem
Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.797
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,11:33
Çözüldü 
Linked Table Manager (Bağlı Tablo Yöneticisi) yerine VB kullanımı konusundaki soru ile sizin sorunuz sanırım aynı. Linki inceleyiniz.


Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
diyelimki bağlı tabloların değişen yeni kaynağını biliyoruz ve kaynağın adresi elimizde
buda bir mysql tablosu normal olarak bağlı tablo yönetici ile bağlandığımız kaynak

DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=karpuz", acTable, "sebze", "t_sebze", False

şimdi aşağıdaki kodda bu bağlantı adresini belirterek bu mysql veri tabanındaki tabloların yeni bağlantısını nasıl oluşturabiliriz

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
32
33
34
Function ReLink(strDir As String, DefaultData As Boolean) _
    As Boolean
    Dim cat As ADOX.Catalog
    Dim tdfRelink As ADOX.Table
    Dim oDBInfo As DBInfo
    Dim strPath As String
    Dim strName As String
    Dim intCounter As Integer
    Dim vntStatus As Variant
    vntStatus = SysCmd(acSysCmdSetStatus, "Yükleniyor")
    Set cat = New ADOX.Catalog
    Set oDBInfo = New DBInfo
    With cat
        .ActiveConnection = CurrentProject.Connection
        oDBInfo.FullName = strDir
        strPath = oDBInfo.FilePathOnly
        strName = Left(oDBInfo.fileName, InStr(oDBInfo.fileName, ".") - 1)
        On Error Resume Next
        Call SysCmd(acSysCmdInitMeter, "Data Tabloları Yükleniyor", .Tables.Count)
        For Each tdfRelink In .Tables
            intCounter = intCounter + 1
            Call SysCmd(acSysCmdUpdateMeter, intCounter)
            If .Tables(tdfRelink.Name).Type = "LINK" Then
                tdfRelink.Properties("Jet OLEDB:Link Datasource") = strPath & strName & IIf(DefaultData, "Data.Mdb", ".mdb")
           End If
           If Err.Number Then
                Exit For
            End If
        Next tdfRelink
    End With
    Call SysCmd(acSysCmdRemoveMeter)
    vntStatus = SysCmd(acSysCmdClearStatus)
    ReLink = (Err = 0)
End Function

teşekkürler


yeni dosya seçme penceresi açılmasın
zaten dosyanın yeni yerini biliyoruz


@benbendedeilem
Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
Programda iki tablo var
birisi bir accesse bağlı
birisi ODBC veritabanlarından bir mysql tablosuna bağlı
ikisinin de mouse üzerine gelince çıkan bağlı adres yolu bilgisinin resimlerini ekledim
şimdi bu resimlerde çıkan adres yolu bilgilerinden hareketle

Function ReLink içerisinde nasıl bir değişiklik yaparak bağlı tablo penceresi çıkmadan dosya yolu seçmeye gerek kalmadan yapabilirim

resim
resim


@benbendedeilem
Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 

Kod:
1
2
3
4
5
6
        Set objFileDialog = Application.FileDialog(msoFileDialogOpen)
        With objFileDialog
            .Show
            .AllowMultiSelect = False
            strFilename = .SelectedItems(1)
        End With


yerine

Kod:
strFilename = "D:\access-23012012\bağlı tablo\bağlı tablo\Yeni klasör\ÖRNEK_be.mdb"


yazarsam dosya seçmeme gerek kalmıyor


şimdi geriye ODBC veri tabnı için nereye ne yazmam gerekiyor onu bulmaya
cumadan sonra devam ederiz


@benbendedeilem
Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 

Kod:
 DoCmd.TransferDatabase acLink, "Microsoft Access", "D:\access-23012012\bağlı tablo\bağlı tablo\ÖRNEK_be.mdb", acTable, "tablo1", "gusto", False


Kod:
DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=h", acTable, "sebze", "t_sebze", False


"D:\access-23012012\bağlı tablo\bağlı tablo\ÖRNEK_be.mdb" yerini
"ODBC;DSN=h"
almış


@benbendedeilem
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Tablo İlişkilendirme tolgooo17 3 177 07/09/2017, 00:05 ozanakkaya
Çözüldü Pivot Tablo Hk. serkan1985 5 346 07/08/2017, 22:35 serkan1985
Çözüldü Bir Alanın After Update Olayına Baglı Baska Bir Alan Guncellenmesi Problemi keskin78 7 464 02/08/2017, 01:32 ozanakkaya
Çözüldü Farklı Tablo Verilerini Tek Bir Formda Gösterme damacanasu 2 193 23/07/2017, 21:31 damacanasu
Çözüldü Access Word Bağlantısında 2 Tablo İle İlişkilendirme tiryaki_44 3 225 06/06/2017, 03:36 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.