Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
04/03/2010 18:15
Konu Sahibi
esrefigit
Yorumlar
12
Okunma
6075
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

esrefigit

Aktif Üye
Aktif Üye
 Belirtilmemiş
 599
 59
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
hepimizin şstediği Access veritabanıma heryerden Access ile veri girebiliyim hatta cep telefonundan bile veri girebileyim hatta pda ya basit bir program yazayım ordanda veri girebileyim herkesin istedeiğidir yani crm gibi bir şey

işte bunu web servisler ile yapabileceğiz

aynı nufüsün borsanın merkez bankasının kullandığı gibi basit web servisleri yazacağız ve uzaktan bu servisler aracılığı ile accesse veri gireceğiz yada veri sorguluyacağız şifre kontrol edebileceğiz online mesaj servisi yapabileceğiz hatta hatta Access içine tabloya resim yada başka dosyalar yükleyebileceğiz yani yine hayal gücü söz konusu

resim

bu servisin asmx görüntüsü ancak biz wsdl ile çalışacağız



şimdilik asmx kodları daha tamamlanmamış bitince bütün dosyaları bir likte ekleyeceğim

Imports System
Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Data
Imports System.Data.OleDb
Imports System.Xml
Imports System.Xml.Serialization

<WebService(Description:="Bu bir AccessTR kod arama uygulamasıdır.", Namespace:="https://www.accesstr.net/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class WebService
Inherits System.Web.Services.WebService

Private Property Access_Conn As OleDbConnection
<WebMethod(Description:="sifrekontrol")> _
Public Function sifrekontrol(ByVal isim As String, ByVal sif As Integer) As String
Dim baglanti As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("database.mdb"))
Dim insertcommand As String
insertcommand = "select * from kullaniciler where kullaniciadi= ' + isim +'"
Dim adap As New OleDb.OleDbDataAdapter(insertcommand, baglanti)
Dim a1 As New DataSet
adap.Fill(a1, "gs")
Return a1.GetXmlSchema
End Function
<WebMethod(Description:="ara")> _
Public Function ara() As String
Dim baglanti As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("database.mdb"))
Dim adap As New OleDb.OleDbDataAdapter("select * from Tablo1", baglanti)
Dim a1 As New DataSet
adap.Fill(a1, "gs")
Return a1.GetXml
End Function

<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("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
<WebMethod(Description:="guncelle")> _
Public Function guncelle(ByVal item1 As String, ByVal item2 As String, ByVal item3 As Integer) As Integer
Dim baglanti As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("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()
guncelle = komutum.ExecuteNonQuery
baglanti.Close()
End Function

End Class


bunlarda

access içinde kullandığımız kodlar



Private Sub Komut0_Click()
sifreal (sifrebul("esref", "123"))
End Sub
Function sifreal(st As String) As String
Dim xmlDoc As New MSXML2.DOMDocument30
Dim ad As IXMLDOMNodeList
Dim kod As IXMLDOMNodeList
Dim adNode As IXMLDOMNode
Dim kodNode As IXMLDOMNode
xmlDoc.async = False
xmlDoc.loadXML (st)
If (xmlDoc.parseError.errorCode <> 0) Then
Dim myErr
Set myErr = xmlDoc.parseError
MsgBox ("You have error " & myErr.reason)
Else
Set ad = xmlDoc.getElementsByTagName("kullaniciadi")
Set kod = xmlDoc.getElementsByTagName("sifre")
For i = 0 To (ad.length - 1)
Set adNode = ad.nextNode
Set kodNode = kod.nextNode
MsgBox adNode.Text & kodNode.Text
Next
End If
End Function
Function sal(st As String) As String
Dim xmlDoc As New MSXML2.DOMDocument30
Dim ad As IXMLDOMNodeList
Dim kod As IXMLDOMNodeList
Dim adNode As IXMLDOMNode
Dim kodNode As IXMLDOMNode
xmlDoc.async = False
xmlDoc.loadXML (st)
If (xmlDoc.parseError.errorCode <> 0) Then
Dim myErr
Set myErr = xmlDoc.parseError
MsgBox ("You have error " & myErr.reason)
Else
Set ad = xmlDoc.getElementsByTagName("ad")
Set kod = xmlDoc.getElementsByTagName("kod")
For i = 0 To (ad.length - 1)
Set adNode = ad.nextNode
Set kodNode = kod.nextNode
MsgBox adNode.Text & kodNode.Text
Next
End If
End Function
Function ekle()
Dim oSoapClient As New MSOSOAPLib30.SoapClient30
Set oSoapClient = New MSOSOAPLib30.SoapClient30
oSoapClient.MSSoapInit "http://localhost:61013/WebSite5/WebService.asmx?wsdl", "WebService", "WebServiceSoap"
Dim nResult As String
If (Err <> 0) Then
MsgBox "Sunucu Bağlanamadı."
Else
nResult = oSoapClient.ekle("eşref", "zeki")
End If
Set oSoapClient = Nothing
MsgBox "Veriler Sunucuya Eklendi"
End Function
Function ara() As String
Dim oSoapClient As New MSOSOAPLib30.SoapClient30
Set oSoapClient = New MSOSOAPLib30.SoapClient30
oSoapClient.MSSoapInit "http://localhost:61013/WebSite5/WebService.asmx?wsdl", "WebService", "WebServiceSoap"
If (Err <> 0) Then
MsgBox "Sunucu Bağlanamadı."
Else
ara = oSoapClient.ara()
End If
Set oSoapClient = Nothing
End Function

Function sifrebul(isim As String, sif As Variant) As String
Dim oSoapClient As New MSOSOAPLib30.SoapClient30
Set oSoapClient = New MSOSOAPLib30.SoapClient30
oSoapClient.MSSoapInit "http://localhost:61013/WebSite5/WebService.asmx?wsdl", "WebService", "WebServiceSoap"
If (Err <> 0) Then
MsgBox "Sunucu Bağlanamadı."
Else
sifrebul = oSoapClient.sifrekontrol(isim, sif)
End If
Set oSoapClient = Nothing
End Function



bitince muhteşem bir şey olacak gerçi bizimkisi amerikayı yeniden keşfetmek ama keşfettikya


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

Kullanici Avatari

linux2ex

Aktif Üye
Aktif Üye
 128
 20
 30/01/2009
0
 Eskişehir
 
 Ofis 2003
 04/11/2016,09:57
üstad yazının devamını merakla bekliyorum. kolay gelsin


İnsanlar başaklara benzerler. İçleri boşken başları havadadır, içleri doldukça eğilirler!" montaigne

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Uzman
ME.... B.....
 46
 3.130
 67
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,00:02
hadi hayırlısı hocam bekliyoruz...



Kullanici Avatari

benremix

Onursal Üye
Onursal Üye
RA.... SO....
 51
 4.441
 127
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 19/09/2018,20:51
(04/03/2010 20:06)C*E*L*O*Y*C*E Adlı Kullanıcıdan Alıntı: hadi hayırlısı hocam bekliyoruz...

Saygılar...


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

ercansahin

BlackEagle
Uzman
ER.... ŞA....
 44
 3.739
 69
 14/11/2008
 Ankara
 
 Ofis 2010 32 Bit
 03/03/2018,16:39
Hocam güzel olacak..Şimdiden teşekkürler..



Kullanici Avatari

Kur@l

AccessTR.Net
Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 22/07/2018,02:01
Eşref Usta Süper Çalışma Ellerine Sağlık. Ben de Verdiğim Sözü Tutacam İnşallah ÇAy İçmeye Gelecem Ama Bizim Oraların Durumu MAlum...


komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Online Access Sürüm Güncelleme Akifff 3 1.077 09/01/2018, 22:32
Son Yorum: alperalper
  Merkez Bankasından Kurları Listeye Online Olarak Alma esrefigit 20 8.106 29/01/2016, 10:18
Son Yorum: karaayhan
Sad Vb ile Accesse Resim Ekleme mhmtkrdr 2 1.443 10/12/2013, 22:46
Son Yorum: mhmtkrdr
  Merkez Bankasından Online Kur alma Programı merdal 9 4.912 20/12/2012, 13:09
Son Yorum: deli
  ONLINE KODCUM'uz - Kod Deposu chopper07 55 19.371 18/06/2010, 14:51
Son Yorum: Subco

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.