Asp.net ile ms access veritabani baglantisi || Okan Düzgün ||

E-Mail : info@okanduzgun.com

" Umut, hiç görmeyen birine gökkuşağını anlatmak kadar zor ve imkansız... "

Python 0	Asp.Net 63	Vb.Net 47	C$.Net 8	Programlama 12	OS 19	Tekno Haber 17	Veri Tabanı 11	Java 0	Sunucu 8

Asp.net ile ms access veritabani baglantisi

Asp.net ile vb.net programlama dili kullanilarak access veritabanindaki verileri datalist data kontrolune çekme islemini gerçeklestirecegiz. Programlamaya ilk basladigimda not olarak aldigim veritabani baglantisini paylasmak istiyorum. Datalist içerisine verileri çektikten sonra eval komutu ile verilerimizi gösterme islemi gerçeklestiriyoruz.

Default.aspx.vb kodlarimiz :

Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Connection nesnesi tanimla
        Dim baglanti As New OleDbConnection
        'Kullanilacak provider ve veritabani yolunu belirle
        baglanti.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=" & Server.MapPath("Database1.mdb")
        'Baglantiyi aç
        baglanti.Open()
        'Command nesnesi tanimla
        Dim komut As New OleDbCommand
        'Command nesnesini connection nesnesiyle iliskendir
        komut.Connection = baglanti
        'Command nesnesinin SQL komutunu belirle
        komut.CommandText = "Select * From pdiller"
        'Adapter nesnesi tanimla
        Dim adapter As New OleDbDataAdapter
        'Adapter nesnesini SQL command ile ikiskilendir
        adapter.SelectCommand = komut
        'Dataset nesnesi tanimla
        Dim ds As New DataSet
        'Adapter nesnesi ile dataset içerigini doldur
        adapter.Fill(ds, "pdiller")
        'Datalistin veri kaynagini ds olarak belirle
        DataList1.DataSource = ds
        'Dataliste veriyi bagla
        DataList1.DataBind()
        'SQL ve connection sorgusundaki arta kalan parçalari temizle
        komut.Dispose()
        baglanti.Dispose()
        'Baglantiyi kapat
        baglanti.Close()
    End Sub
End Class

Default.aspx kodlarimiz :

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>
 
<!DOCTYPE html>
 
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
    <title></title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
     
        <asp:DataList ID="DataList1" runat="server">
            <ItemTemplate >
 
                <asp:Label ID="Label1" runat="server" Text='<%# Eval("diller") %>'></asp:Label>
            </ItemTemplate>
        </asp:DataList>
     
        <br />
        <asp:Button ID="Button1" runat="server" Text="Bilgilerimi Getir" />
     
    </div>
    </form>
</body>
</html>

Örnek uygulamayi buradan indirebilirsiniz

0
1926
0

Tarafından yazılmıştır.

OKAN DÜZGÜN

Başka bir günde, bir saatte, farklı konularda görüşmek dileklerimleee. Yüzünüzden gülücükler eksik olmasın, unutmayın her gecenin bir aydınlığı vardır !