Filemaker pro & ado

[hlojan]

Ado ile Filemaker Pro ya bağlanma şansım varmı?

 

[Erdem Akdemir]

Merhaba,

Aşağıdaki iki yöntemden biriyle dener misin?

msgbox con.state ile bağlantıyı kontrol edebilirsin. 1 yazarsa bağlanmıştır.

Driver=FileMaker Pro;AllAsText=0;ApplicationUsingThreads=1;FetchChunkSize=100;
FileOpenCache=0;IntlSort=0;MaxTextlength=255;ServerAddress=127.0.0.1;
TranslationOption=0;UseRemoteConnection=1;

Driver={any odbc driver's name};OdbcKey1=someValue;OdbcKey2=someValue;

 

[hlojan]

Malesef olmadı. Connectstrings den bende bakmıştım ama. Fİlemaker Sharing ODBC yaptım ama belirgün bişeye ulaşamadım daha

 

[hlojan]

Yeni konu açmak istemedim.

ODBC olarak Filemaker paylaştım. Veritabanlarınada ekledim. Test Başarılı.

Bu database ile nasıl bağlantı kurarım.

İnterneti allak bullak ettim. Bulamadım

 

[Asri]

Yeni konu açmak istemedim.

ODBC olarak Filemaker paylaştım. Veritabanlarınada ekledim. Test Başarılı.

Bu database ile nasıl bağlantı kurarım.

İnterneti allak bullak ettim. Bulamadım

Bu şekilde dener misiniz?

Sub listele()
    Dim conn As Object
    Dim RS As Object
    Dim data As Variant
  
    Set conn = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.Recordset")
      
    connPath = "DSN=ODBC_ADI;Server=BILGISAYAR\SQLSERVERADI;;Initial Catalog=VERITABANIADI;Uid=sa;Pwd=sifresi;"
  
    conn.Open connPath
  
    Range("E3:F1000").ClearContents
  
    Sql = ""
    Sql = Sql + " SELECT [urun],[adet] FROM [VERITABANI].[dbo].[URUNTABLO] "
  
    Set RS = conn.Execute(Sql)
  
    If RS.State Then
      Col = 1
      'For Each Field In RS.Fields
      '    Cells(5, Col) = Field.Name
      '    Col = Col + 1
      'Next Field
      Cells(3, "E").CopyFromRecordset RS
      Set RS = Nothing
    End If
  
    Set conn = Nothing 
End Sub

 

[hlojan]

Sayın Asri ;
Teşekkürler.

İlk olarak verdiğiniz kodları deneyerek veri almaya denedim
Aşağıdaki kod ile veri okuyabiliyorum

Dim conn As Object
Dim RS As Object
Dim data As Variant
 
Set conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset")
      
connPath = "DSN=FDT;Server=localhost;;Initial Catalog=Untitled;Uid=Dene;Pwd=3202043;"
conn.Open connPath
RS.Open "select * from Untitled", conn, 1, 3
MsgBox RS!kod
Set RS = Nothing
Set conn = Nothing

Ama veri yazma ile ilgili sıkıntım var.
Sürekli aynı hatayı aldım. Aldığım kodu internette araştırdım.
Farklı platformlarda farklı çözümler denk geldi

Tahminim . Access sorunu . Filemakerde accessleri full açtım
Ama sonuç değişmedi

Kodum , Hatam ve Filemaker access yaptığım sayfa aşağıdaki gibidir.

Dim conn As Object
    Dim RS As Object
    Dim data As Variant
 
    Set conn = CreateObject("ADODB.Connection")
    Set RS = CreateObject("ADODB.Recordset")
      
    connPath = "DSN=FDT;Server=localhost;;Initial Catalog=Untitled;Uid=Dene;Pwd=3202043;"
  conn.Open connPath
RS.Open "select * from Untitled", conn, 1, 3
RS.AddNew
RS!kod = "KOR"
RS.Update
 
   Set RS = Nothing
 
 
    Set conn = Nothing

Record eklemede takılı kaldım yardımlarınızı bekliyorum
iyi Çalışmalar

 

[Asri]

aynı kodu kullanarak select ile okuma
kodu kopyalayıp başka bir prosedür olarak insert yada update olarak kullanmayı deneyin.

Kod yapısı aynı kalacak sadece insert, update sorgularını değiştirip deneyin.