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

Derecelendirme: 0/5 - 0 oy

esrefigit

Aktif Üye
Kullanici Avatari
Aktif Üye
598
30/10/2008
359
Konya
Ofis 2003
03/08/2017,11:47
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
Cevapla

linux2ex

Aktif Üye
Kullanici Avatari
Aktif Üye
128
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
Cevapla

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

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.995
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
hadi hayırlısı hocam bekliyoruz...


Cevapla

benremix

Uzman
Kullanici Avatari
Uzman
R.... S....
4.433
17/05/2009
365
Ankara
Ofis 2010
Dün,21:01
(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


Cevapla

ercansahin

BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
07/09/2017,13:09
Hocam güzel olacak..Şimdiden teşekkürler..


Cevapla

Kur@l

AccessTR.Net
Kullanici Avatari
Uzman
2.032
05/11/2008
KONYA
Ofis 2010
21/10/2017,13:43
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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

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

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