21/11/2008, 00:41
Web üzerinden girilen verinin localde güncellenmesi yetmiyor, ayrıca localde girilen veriler de asp'den mi güncellenecek?. O zaman ikisinin güncellenmesini de Access programıyla yapacaksınız. Ama server makineniz benim kullandığım gibi hem iis hem de asp server olmalı. Aksi taktirde bu işi asp'den yapmalısınız. Asp yönünü bilemem. Ama Access'te veri girdikten sonra diğer veri tabanına veri göndermek sorun değil.
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim klasor
klasor = CurrentProject.Path & "\çapraz.mdb"
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open klasor
End With
With rst
.ActiveConnection = conn
.Open "Tablo1", LockType:=adLockOptimistic
End With
With rst
.AddNew
.Fields("kim").Value = kim
.Fields("tarih").Value = tarih
.Fields("ödenen").Value = ödenen
.Fields("avans").Value = avans
.Update
End With
rst.Close
Set tbl = Nothing
Set cat = Nothing
conn.Close
Bu komutlarla başka bir mdb'ye accessten kayıt yaparsınız. Ama dediğim gibi, server local verilerin saklandığı makine değilse o zaman farklı çözümler bulmak lazım..
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim klasor
klasor = CurrentProject.Path & "\çapraz.mdb"
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open klasor
End With
With rst
.ActiveConnection = conn
.Open "Tablo1", LockType:=adLockOptimistic
End With
With rst
.AddNew
.Fields("kim").Value = kim
.Fields("tarih").Value = tarih
.Fields("ödenen").Value = ödenen
.Fields("avans").Value = avans
.Update
End With
rst.Close
Set tbl = Nothing
Set cat = Nothing
conn.Close
Bu komutlarla başka bir mdb'ye accessten kayıt yaparsınız. Ama dediğim gibi, server local verilerin saklandığı makine değilse o zaman farklı çözümler bulmak lazım..