ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/05/2012 11:16
Konu Sahibi
accessman
Yorumlar
3
Okunma
1942
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ü 
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

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
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

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
bir sitede Ağ üzerinden mysql bağlanma için şöyle bir kod eklemişler

Kod:
1
2
3
4
5
6
7
8
9
10
11
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
Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
Dün,03:31
Çözüldü 

Visual Basic Code
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
35
36
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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Formda,açılan Kutudan Veri Seçtiğimde Tablodan Veri Bulma 53rize 4 259 25/10/2017, 09:31 53rize
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 190 24/08/2017, 11:22 burhanb
Çözüldü Sql Veri Tabanına Bağlantıda Oturum Açma ertans 2 231 22/08/2017, 19:30 ozguryasin
Çözüldü Toplu SMS Firmasının Kodlarını Access Veri Tabanına Entegre Etme tekinuygun 14 3.033 25/07/2017, 08:32 ozanakkaya
Çözüldü ODBC bağlantısı ile SQL Server Performansı mengene2 15 1.418 03/03/2017, 22:04 atoz112
 
 

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