Asp.Net Web – Ms Access Veritabanı kullanımı (Bağlantı ve Kayıt)
Ajax kontrolleri bloglarına devam edeceğim,bu blog ve bundan sonraki bir kaç blogtada veritabanı ile ilgili işlemlerinede yer vermek lazım diye düşündüm.Sırasıyla Access,MsSql ve MySql veritabanı tiplerine bağlantı,kayıt ve sorgulamaları ile ilgili basit bilgiler paylaşacağım.Gayet uzun olacak bu blogun sonuna kadar okumaya devam ettiğinizde artık Ms Access veritabanınızı Asp.net web sayfalarınızda kullanmaya verilerinizi kaydetmeye hemen başlayabileceksiniz.Bu işin dahada uzun terimleri, tanımları varsada bunları ara bloglarda anlatmaya niyetliyim.Örneğin bir veritabanı tasarımı konusunu,arayüzleri, iş katmanları gibi detayları, bu anlatacağım uygulamadan sonra yine buradan okuyabilirsiniz.
Daha fazla teknik makalle yeni blog sayfamda gitmek için tıklayın
<add name="SamplesDatabaseConnectionString" connectionString="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\SamplesDatabase.accdb;Persist Security Info=True"
providerName="System.Data.OleDb" />
</connectionStrings>
Imports System.Data.OleDb
Imports System.IO
Inherits System.Web.UI.Page
Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("App_Data/SamplesDatabase.accdb")
Dim myAccessConnection As New OleDbConnection(connStr)
Public Sub openAccessConnection()
myAccessConnection.Open()
End If
End Sub
If myAccessConnection.State = ConnectionState.Open Then
myAccessConnection.Close()
End If
End Sub
‘——Bağlantı nesnesi kapanışı
‘——Buradada SampleSave buttonun Click olayında Ms Accesse kayıt için gerekli parametreler
Protected Sub SampleSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SampleSave.Click
Try
openAccessConnection()
Dim cmd As New OleDbCommand("insert into SampleText(SampleText,SampleMultiText) values(@SampleText,@SampleMultiText)", myAccessConnection)
cmd.CommandType = CommandType.Text
cmd.Parameters.Add("@SampleText", OleDbType.VarChar).Value = SampleText.Text
cmd.Parameters.Add("@SampleMultiText", OleDbType.VarChar).Value = SampleMultiText.Text
cmd.ExecuteNonQuery()
closeAccessConnection()
Catch ex As Exception
Response.Write(ex.Message)
closeAccessConnection()
End Try
Response.Redirect("Kayıt_tamamlandığında_yönlenecek_sayfa.aspx")
End Sub
End Class
Daha fazla teknik makalle yeni blog sayfamda gitmek için tıklayın