Accesse Online Veri girme
Tarih
04/03/2010 18:15
Konu Sahibi
esrefigit
Yorumlar
12
Okunma
5053
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



esrefigit

Kullanici Avatari
Onursal
598
30/10/2008
356
Konya
Ofis 2003
06/11/2015,13:38
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:="http://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.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
hadi hayırlısı hocam bekliyoruz...
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
05/12/2016,09:18
(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
Dün,20:30
Hocam güzel olacak..Şimdiden teşekkürler..
Cevapla


Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.029
05/11/2008
KONYA
Ofis 2010
15/11/2016,02:32
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 332 29/06/2016, 11:09 atoz112
  Merkez Bankasından Kurları Listeye Online Olarak Alma esrefigit 20 6.400 29/01/2016, 10:18 karaayhan
Sad Vb ile Accesse Resim Ekleme mhmtkrdr 2 1.142 10/12/2013, 22:46 mhmtkrdr
  Merkez Bankasından Online Kur alma Programı merdal 9 4.069 20/12/2012, 13:09 deli
  ONLINE KODCUM'uz - Kod Deposu chopper07 55 16.710 18/06/2010, 14:51 Subco


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya