Accesse Online Veri girme

Ellerine sağlık esrefigit hocam, bekleyenler kervanındayım

evet arkadaşlar webservices olayı bitmiştir yalnız local hostta tıkır tıkır çalışıyor normal hostta deneme şansım olmadı eğer deneyen arkadaşlar olursa ve buraya yazarlarsa sevinirim webservices örneğini, ekleedim visual studio ile açarsanız görürsünüz neyse web servisleri sanırım bir çoğunuz biliyorsunuz örnek olarak
spk web servisi nvi web servisi hepsi aynı mantıkla çalışır mantığı web servis ile hostta duran veritabanına vb kodları vasıtasıyla işlem yaptırmak tır kodlar web servis tarafında çalışır örnek olarak

<WebMethod(Description:="ara")> _
Public Function ara(ByVal arama As String) As String
Dim baglanti As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/app_data/database.MDB"))
Dim insertcommand As String
insertcommand = "select * from Tablo1 WHERE ad LIKE'%" & arama & "%'"
Dim adap As New OleDb.OleDbDataAdapter(insertcommand, baglanti)
Dim a1 As New DataSet
adap.Fill(a1, "gs")
Return a1.GetXml
baglanti.Close()
End Function

arama stringine gönderilen değer like deyimi ile süzdürülerek xml cinsinden verilere dönüştürülüyor ve bizde bu veriyi

Dim xmlDoc As New MSXML2.DOMDocument30 kütüphanesinin yardımı ile parseliyerek yani paraçalara ayırarak liste kutumuza alıyoruz



liste kutusundaki veriye tıklanıncada

<WebMethod(Description:="kodal")> _
Public Function kodal(ByVal arama As Integer) As String
Dim baglanti As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/app_data/database.MDB"))
Dim insertcommand As String
insertcommand = "select * from Tablo1 WHERE id=" & arama & ""
Dim adap As New OleDb.OleDbDataAdapter(insertcommand, baglanti)
Dim a1 As New DataSet
adap.Fill(a1, "gs")
Return a1.GetXml
baglanti.Close()
End Function

bu servise gönderdiğimiz id ye göre süzerek yine bize xml verisi verecek ve biz o veriyi altta ki metin kutusunda göstereceiğiz

ekleme koduna gelince


<WebMethod(Description:="ekle")> _
Public Function ekle(ByVal item1 As String, ByVal item2 As String) As Integer
Dim baglanti As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("~/app_data/database.MDB"))
Dim insertcommand As String
insertcommand = "INSERT INTO Tablo1 (ad,kod) VALUES ('" + item1 + "','" + item2 + "')"
Dim komutum As New OleDb.OleDbCommand(insertcommand, baglanti)
komutum = baglanti.CreateCommand
komutum.CommandType = CommandType.Text
komutum.CommandText = insertcommand
baglanti.Open()
ekle = komutum.ExecuteNonQuery
baglanti.Close()
End Function
End Class

bu servise gönderdiğimiz ad ve kod metin kutusundaki veriler insert komutuyla veritabanına ekleniyor


artık gerisi sizin hayal gücünüze kalmış veritabanında tuttuğunuz verilerden kullanım süresi kontrol edebilirsiniz demo süresi açıp kapayabilirsiniz yaptığınız programlar arası veri paylaşımı yapa bilirsiniz bağlantılar anlık olduğu için binlerce kişi aynı anda işlem yapabilir ve web servisler konusunda biraz araştırma yaparsanız bu işin bu kadar la kalmadığı çokkkk derinlere indiğinide görürsünüz gerisi size kalmış

Üstad eline sağlık.Hostta kontrol eder buraya yazarım.

merhaba kodları inceledim aslında tam olarak istediğim birşey ancak tam olarak kullanımını yani kurlumunu çok iyi anlamadım biraz daha detaylı anlatırsak dediğiniz gibi yeniden keşif olacak benim için

ellerinize sağlık...

edit..

Otomasyon programlarında TC Kimlik nosunu yazınca kişinin mernisten bilgilerini getiriyor. Bunu Access ile yapmak mümkünmüdür? Kullanıcı kodumuz ve şifremiz var...
Bu konu ile ilgili olup olmadığını da bilmiyorum çünkü kod bilgim yok...