Ağ ortamından çalışabilen tek db kullanan program.. ?

Ağ ortamından çalışabilen aynı veritabanını kullanan bir program hazırlamam lazım bu konuda elinde kaynak olan yada nasıl yapılacağı hakkında fikri olan varsa ve paylaşırsa sevinirim... Delphi veya vb olabilir...

Denemeden Yorum yapiyorum ama db yerini web urlsu olarak goster biyere upload et db yi ornek http:/www.sitesite.com/db.mdb gibi sonra bu urlu kodlarinda kullan db adressini bura goster program heryerde cekicektir ozaman galiba.

denemedim turkcede zayif o yuzden kusura bakma. sadece fikir.

ilgin için teşekkürler öncelikle ama web ortamına erişim olmayacak o yüzden o şekilde yapamıyorum yoksa internet ortamından işlemleri yaptırmak beimde aklıma geldi ama dediğim gibii internet yok..

Kural fixtir değişmez ağ ortamında isen yerel ip yani ağ üzerindeki ip numarası veya ağ üzerindeki bilgisayar ismini yazarak calısırsın.

mysql icin mysql -h hostname -u username -p
password: uzaktaki yada localdeki bilgisayarın root sifresi
ve içerdesin

Tabi bunu uygulama programları ile yapacaksan component kullanmanı tavsiye ederim
Uygulama programın ne?

Tabi bunun icin 2 program duzenlemen gerekecek biri server olacak biri client

Ama sadece bir tek baglantı noktası değişecek geri kalan hersey aynı

server localde kendi uzerinde kosacak

diğerlerine ise yani clientlere serverin local ipini yada ağ uzerindeki bilgisayarı adını gireceksin

Küçük Bir uygulama Eğer C++ Builder ile Mysql uygulaması geliştiriyorsan

Burada sadece baglantı komponentinde bağlanacagın bilgisayarın local ipisini yada adını değiştireceksin sonra her bilgisayardan servera baglanır.
localhost olani ise serverda kosacaksın.

Son bişey eğer windows xp işletim bulunan bir server kullanacaksan guvenlik duvarını kapatmayı yada özel programlara mysql ile mysqld-nt yi eklemeyi sakın unutma aksi halde baglanamazsın. cünkü windows firewall mysql'e engel cakar delirme bu insanı dellendirir

bak bunun için ya bir adet sunucu seç portlar ve izinler açık olsun veri onun üzerinden dağıtılsın ya da her bilgisyardan paylaşım aç

veritabanı burda önemli Trigger ları kullanman lazım bunuda Mssql, Mysql, Oracle, Firebird, Interbase gibi veritabanı yazılımları ile mevcut....

veritabanını tek bir PC de olsun senin program db yolunu bi ini dosyasından okusun diğer makineleride ağ sürücüsüne bağlanma ile o bilgisayara bağla ve ini dosyasına o yolu kaydettir. Trigger lar yani tetikleyiciler burda senin şöyle bir işine yarıcak biri kayıt sildiğinde diğer pc lerdede otomatik olarak güncelleme yapıp eş zamanlı gösterebilcek...

Kolay gelsin ...

SQL Server kullanırsın agdaki istediğin bilgisayardaki veritbanına programını baglayıp hep aynı veritabanı uzerınden işlem yapabilirsin.

Ağa bir bilgisayar koyarsın (Kamera pcsi gibi) ona sql kurarsın o bilgisayar DNS verirsin 10.0.0.1 vs gibi sonra buna bağlatırsın başka çaren yok

MySQL Server ve Visual Basic - II
Merhaba

MySQL'in kurulum işlemlerini tamamladıysanız Visual Basic içerisinden bağlantılarını yapabiliriz.
Yeni bir proje açın ve Components olarak Microsoft Windows Common Controls 6.0(SP4) - MSCOMCTL.OCX componentini projenize ekleyin.
Form üzerine Listview ekleyin adını LV olarak değiştirin. 5 adet Command Button, 4 adet Textbox ekleyin.
Formun kod kısmına aşağıdaki kodları ekleyin.
'General Declarations kısmına eklenecek kod
Dim conn As ADODB.Connection
Dim rsilkmysqltablo As ADODB.Recordset
Dim ik
Dim l_item As ListItem

Private Sub Form_Load()
db_adi = "deneme" 'database adı
db_server = "111.111.1.111" 'Server'ın bulunduğu bilgisayarın ip'si
db_port = "3306" 'bağlanılacak port: 3306
db_user = "root" 'kullanıcı adı
db_pass = "123456" 'şifre
ik = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=" & db_adi & ";SERVER=" & db_server & ";UID=" & db_user & ";PASSWORD=" & db_pass & ";PORT=" & db_port & ";OPTION=16387;STMT=;" & Chr$(34)
Set conn = New ADODB.Connection
conn.Open ik
Set rsilkmysqltablo = New ADODB.Recordset
Set rsilkmysqltablo.ActiveConnection = conn
rsilkmysqltablo.CursorLocation = adUseClient
'####################################
With LV
.ColumnHeaders.Add , , "adi"
.ColumnHeaders.Add , , "soyadi"
End With
'Sıralama açık ve a dan z ye
LV.Sorted = True
LV.SortOrder = lvwAscending
end sub


Private Sub Form_Unload(Cancel As Integer)
Set conn = Nothing
Set rsilkmysqltablo = Nothing
Set conn2 = Nothing
Set tablotablosu = Nothing
end sub




'Burası Listview'lere bilgileri yüklüyor.
Sub LoadData()
LV.ListItems.Clear
Set rsilkmysqltablo = New ADODB.Recordset
rsilkmysqltablo.CursorLocation = adUseClient
rsilkmysqltablo.CursorType = adOpenStatic
rsilkmysqltablo.LockType = adLockReadOnly
Set rsilkmysqltablo.ActiveConnection = conn
rsilkmysqltablo.Source = "SELECT * FROM ilkmysqltablo ORDER BY soyadi ASC"
rsilkmysqltablo.Open
Do Until rsilkmysqltablo.EOF
Set l_item = LV.ListItems.Add(, , rsilkmysqltablo!adi)
l_item.SubItems(1) = rsilkmysqltablo!soyadi
rsilkmysqltablo.MoveNext
Loop
End Sub




'Bu kısım Listview kontrolünün sütunlarına tıklandığı zaman A'dan Z'ye sıralama kodları
Private Sub LV_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
Select Case ColumnHeader.Index
Case 1: 'MsgBox "Birinci kolon"
If LV.SortOrder = lvwAscending Then
LV.SortOrder = lvwDescending
Else
LV.SortOrder = lvwAscending
End If
Case 2: 'MsgBox "İkinci kolon"
If LV.SortOrder = lvwAscending Then
LV.SortOrder = lvwDescending
Else
LV.SortOrder = lvwAscending
End If
End Select
End Sub




'Bu kodlar da seçilen listview içeriğini textlere aktarıyor.
Private Sub LV_ItemClick(ByVal Item As MSComctlLib.ListItem)
Text1 = LV.SelectedItem
Text2 = LV.SelectedItem.SubItems(1)
End Sub




Private Sub LV_LostFocus()
Text1 = ""
Text2 = ""
End Sub




'Arama işlemlerinin yapıldığı bölüm
Private Sub Aramaislemleri()
On Error GoTo hata
LV.ListItems.Clear
Set rsilkmysqltablo = New ADODB.Recordset
rsilkmysqltablo.CursorLocation = adUseClient
rsilkmysqltablo.CursorType = adOpenStatic
rsilkmysqltablo.LockType = adLockReadOnly
Set rsilkmysqltablo.ActiveConnection = conn
If Text3 <> "" Then
rsilkmysqltablo.Source = "SELECT * FROM ilkmysqltablo WHERE adi like '" & Text3.Text & "%'"
End If

If Text4 <> "" Then
rsilkmysqltablo.Source = "SELECT * FROM ilkmysqltablo WHERE soyadi like '" & Text4 & "%'"
End If

If Text3 <> "" And Text4 <> "" Then
rsilkmysqltablo.Source = "SELECT * FROM ilkmysqltablo WHERE adi like '" & Text3 & "%' AND soyadi = '" & Text4 & "%'"
End If

rsilkmysqltablo.Open
Do Until rsilkmysqltablo.EOF
Set l_item = LV.ListItems.Add(, , rsilkmysqltablo!adi)
l_item.SubItems(1) = rsilkmysqltablo!soyadi
rsilkmysqltablo.MoveNext
Loop

hata:
End Sub



Private Sub Text3_Change()
Aramaislemleri
End Sub




'MySQL database'den kayıt silme işlemleri
Private Sub Command3_Click()
On Error GoTo hata
rsilkmysqltablo.Close
Set rsilkmysqltablo = New ADODB.Recordset
rsilkmysqltablo.Source = "DELETE FROM ilkmysqltablo WHERE adi = '" & LV.SelectedItem & "' AND soyadi = '" & LV.SelectedItem.SubItems(1) & "'"
rsilkmysqltablo.CursorLocation = adUseClient
rsilkmysqltablo.CursorType = adOpenDynamic
rsilkmysqltablo.LockType = adLockOptimistic
Set rsilkmysqltablo.ActiveConnection = conn
rsilkmysqltablo.Open
rsilkmysqltablo.Close
LoadData
hata: LoadData
End Sub




'Yenile
Private Sub Command2_Click()
LoadData
End Sub




'Kayıt Ekle
Public Sub KayitEkle()
Set rsilkmysqltablo = New ADODB.Recordset
rsilkmysqltablo.Source = "ilkmysqltablo"
rsilkmysqltablo.CursorLocation = adUseClient
rsilkmysqltablo.CursorType = adOpenDynamic
rsilkmysqltablo.LockType = adLockOptimistic
Set rsilkmysqltablo.ActiveConnection = conn
rsilkmysqltablo.Open
rsilkmysqltablo.AddNew
rsilkmysqltablo!adi = Text1
rsilkmysqltablo!soyadi = Text2
rsilkmysqltablo.Update
Text1 = ""
Text2 = ""
Text1.SetFocus
End Sub




Private Sub Command1_Click()
KayitEkle
End Sub




'Kayıt Düzenle
Public Sub Duzelt()
Set rsilkmysqltablo = ADODB.Recordset
rsilkmysqltablo.Source = "ilkmysqltablo"
Set rsilkmysqltablo = conn.Openrecordset("ilkmysqltablo", dbopendynamic)
rsilkmysqltablo.Edit
rsilkmysqltablo!adi = "Txtduzeltadi"
rsilkmysqltablo!soyadi = "Txtduzeltsoyadi"
rsilkmysqltablo.Update
rsilkmysqltablo.Close
End Sub