Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

ağdaki odbc veri tabanına bağlanmak

accessman
accessman
Access Cevaplanmış Soruları
4
3191

ağdaki odbc veri tabanına bağlanmak

Çözüldü #1
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
iyi günler
aynı pc de ise
Kod:
DoCmd.TransferDatabase acLink, "ODBC", "ODBC;DSN=hasan", acTable, "isimler", "isimler", False
yazıyorduk
bunu ağdan bağlantıda nasıl yazmamız lazım
teşekkürler
@benbendedeilem
Cevapla
Çözüldü #2
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
eğer bu ağdaki mdb dosyası olsa idi
Kod:
DoCmd.TransferDatabase acLink, "Microsoft Access", "\\Ali\Users\Public\Hesap.mdb", acTable, "tablo1", "takla", False
olacaktı
ama ODBC olunca
Kod:
"ODBC;DSN=hasan"
kısmı nasıl yazılmalı
@benbendedeilem
Cevapla
Çözüldü #3
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
bir sitede Ağ üzerinden mysql bağlanma için şöyle bir kod eklemişler
Kod:
Public Function MySQLBağlan(Server As String, Kullanıcı As String, Şifre As String, Database As String, Port As Integer)
If Baglan.State = 0 Then
On Error GoTo Hata
Baglan.Open "Provider=MSDASQL.1;Password=;Persist Security Info=False;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DATABASE=" & Database & ";SERVER=" & Server & ";UID=" & Kullanıcı & ";PWD=" & Şifre & ";PORT=" & Port & ";OPTION=16387;STMT=;" & Chr$(34)
Baglan.CursorLocation = adUseClient
Exit Function
Else
End If
Hata:
MsgBox Err.Description, vbCritical
End Function
bunu nasıl kullanabiliriz
@benbendedeilem
Son Düzenleme: 02/05/2012, 13:00, Düzenleyen: accessman.
Cevapla
Çözüldü #4
Kur@l
AccessTR.Net
Kur@l
Bul
Uzman
Adı Soyadı:
Yaşı: 49
Konum: -
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 23/03/2025,01:30
Yorumları: 2.048
Konuları: 59
Kayıt Tarihi: 05/11/2008
Teşekkür Puanı: 1.663 

Option Compare Database
Dim oConn As ADODB.Connection
 
Dim rs As ADODB.Recordset
Private Sub ConnectDB()
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _
"SERVER=127.0.0.1;" & _
"DATABASE=databaseadim;" & _
"USER=kullaniciadim;" & _
"PASSWORD=şifrem;" & _
"Option=3;" & _
"PORT=23306;"
End Sub

private Sub PullData()
'On Error Resume Next
Set rs = New ADODB.Recordset
ConnectDB
strSQL = "select * from srg_tum  where alicisoyadi like '" & Me.Metin23.Value & "'"
 rs.Open strSQL, oConn, adOpenDynamic, adLockOptimistic
 MsgBox rs.RecordCount
 rs.MoveFirst
 
 
 Me.Metin1 = rs.Fields("alicisoyadi")
 Me.Metin3 = rs.Fields(1)
 Me.Metin5 = rs.Fields(2)
 Me.Metin7 = rs.Fields(3)
 Me.Metin9 = rs.Fields(4)
 Me.Metin11 = rs.Fields(5)
 Me.Metin13 = rs.Fields(6)
 Me.Metin15 = rs.Fields(7)
 Me.Metin17 = rs.Fields(8)
 Me.Metin19 = rs.Fields(9)
 End Sub

sistemi ile çözülmüştür.
Accessman`ın yeni fikirleri var tabiki. Konu o yönde gelişecek inşallah Img-grin.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
#5
accessman
Aktif Üye
accessman
Bul
Aktif Üye
Adı Soyadı:
Konum: Denizli
Ofis Versiyonu: Ofis 2003
Son Oturumu: 12/01/2021,20:07
Yorumları: 4.395
Konuları: 900
Kayıt Tarihi: 31/10/2008
Teşekkür Puanı: 434
Teşekkürler Kural bey
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task