VB.NET İle Uzak Veritabanı Kayıt İşlemi Yapalım
-
Selam arkadaşlar...
Normalde bu yazıyı döküman bölümüne yazmam gerekirdi ama onun onayını bekleyemem valla paylaşıyım dedim sizinle :D
Şimdi makalenin özetine bakarsak Bir Windows Form'dan bir host üzerinde bulunan veritabanına kayıt işlemi yapacağız. Normalde bunun için Remote ayarları vs yapmak gerekir ancak biz öyle yapmayacağız biraz daha dolanıp işimizi halledeceğiz. Formumuzun üzerinde bir adet WebBrowser koyduk mu iş tamamdır :) WebBrowser'in Navigate özelliğini kullanacağız.
Algoritma olarak gidersek Form üzerinde ki Button'a tıklandığında WebBrowser'a yapacağımız Aspx sayfasını yönlendirip(Gerekli QueryString parametreleri ile) sayfanın Page_Load eventinde ki kodları çalıştırmak. Hadi başlayalım... :)
İlk başta veritabanımızı yapalım. Ben çok büyük bir tablo yapmıcam. Basit bir tablo olacak adıda "Kisiler" olsun. Kolonlarımız da "KisiID, KisiAdi, KisiSoyadi" olsun. Zaten gerekli tipleri tahmin edebiliyosunuzdur.
Tablomuzu oluşturduktan sonra veritabanımızı kayıt edelim. Ardından Visual Studio'yu açalım. File > New Web Site üzerinden bir web sitesi oluşturalım.
Karşımıza gelen proje içerisinde ki "App_Data" klasörüne az önce oluşturduğumuz veritabanı dosyasını atalım. Default.aspx.vb dosyasına girelim ve Page_Load() eventine aşağıdaki kodları yazalım.
Dim ConSTR As New OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & Server.MapPath("~\App_Data\Db.mdb"))
ConSTR.Open()
Dim Cmd_Kaydet As New OleDbCommand("INSERT INTO Kisiler(KisiAdi, KisiSoyadi) VALUES (@KisiAdi, @KisiSoyadi)", ConSTR)
Cmd_Kaydet.Parameters.AddWithValue("@KisiAdi", Val(Request.QueryString("Adi")))
Cmd_Kaydet.Parameters.AddWithValue("@KisiSoyadi", Val(Request.QueryString("Soyadi")))
Try
Cmd_Kaydet.ExecuteNonQuery()
Catch ex As Exception
Cmd_Kaydet.Dispose()
End Try
ConSTR.Close()Bu kod, sayfa yüklendiğinde otomatik olarak kodları çalıştırıcak ve kayıt işlemini tamamlıycak.
Şimdi Asp.NET kısmında işimiz bitti. Bu projeyi kayıt edip yeni bir File > New Project > Windows Application diyerek projemizi açalım.
Buraya 2 adet TextBox, 1 adet Button ve 1 adet WebBrowser kontrolü yerleştirelim. Button kontrolümüze aşağıda ki kodları yazalım.
Dim Adi, Soyadi As String
Adi = txt_Adi.Text
Soyadi = txt_Soyadi.Text
wb_Tarayici.Navigate("http://www.siteadi.com/uzakdb/Default.aspx?Adi=" & Adi & "&Soyadi=" & Soyadi) şeklide yapıcaz.
Tabi bu dosyaların host üzerinde olması gerekli... Ayrıca dizin izinlerini de ayarlamayı unutmayın...Umarım faydalı olur :)
-
güzel bir döküman olmuş
-
navigate ile kayıt girme tamamda kayıt listeleme adamı fitil ediyor :) eline sağlık...
-
WALLACEs bunu yazdı:
-----------------------------
navigate ile kayıt girme tamamda kayıt listeleme adamı fitil ediyor :) eline sağlık...
-----------------------------Onu zaten Access ile yapmak doğru olmaz... SQL Server kullanılmalı...