Notes

MD5 şifreleme (Sınavda yok)
Kütüphaneler:
Imports System.Data
Imports System.Data.OleDb
Imports System.Security.Cryptography

Kodlar:
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ad, soyad, kAdi, sifre, yol, sql As String
ad = TextBox1.Text
soyad = TextBox2.Text
kAdi = TextBox3.Text
sifre = TextBox4.Text
yol = Server.MapPath("veri.accdb")
Dim encode As Encoding = Encoding.GetEncoding("iso-8859-9")
Dim kaynakByte() As Byte = encode.GetBytes(sifre)
Dim md5 As New MD5CryptoServiceProvider
Dim byteHash() As Byte
byteHash = md5.ComputeHash(kaynakByte)
Dim sifreMD5 As New StringBuilder
For Each sonuc In byteHash
sifreMD5.Append(sonuc.ToString("X2").ToUpper)
Next
Dim guvenliSifre As String
guvenliSifre = sifreMD5.ToString()
sql = "insert into uyeler(adSoyad, kAdi, sifre) values('" + ad + " " + soyad + "', '" + kAdi + "','" + guvenliSifre + "')"
Dim baglanti As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" + yol)
Dim komut As New OleDbCommand
komut.CommandText = sql
komut.Connection = baglanti
If sifre = TextBox5.Text Then
baglanti.Open()
komut.ExecuteNonQuery()
baglanti.Close()
Response.Redirect("WebForm2.aspx")
Else
Label1.Text = "Şifreler uyuşmuyor!"
End If


 
Genel örnekler – Kayıt olma – Giriş yapma – GridView’de bilgileri görüntüleme – Excel çıktı alma

Kayıt sayfası:
Imports System.Data.OleDb

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ad, soyad, tc, adres, mail, kullaniciAdi, sifre, dbYol, sqlKomut, resimYol As String
ad = TextBox1.Text
soyad = TextBox2.Text
kullaniciAdi = TextBox3.Text
sifre = TextBox4.Text

'İKİ ŞİFRENİN AYNI OLUP OLMADIĞI DURUMUNUN KONTROLÜ
If sifre <> TextBox5.Text Then
Label1.Text = "Şifreniz uyuşmuyor."
Return
End If
If FileUpload1.HasFile Then
FileUpload1.SaveAs(Server.MapPath("images/") + FileUpload1.FileName)
resimYol = "images/" + FileUpload1.FileName
Label2.Text = "Yüklenecek resim boyutu: " + FileUpload1.PostedFile.ContentLength.ToString()
Else
Label1.Text = "Resim Seçilmedi!"
Return
End If

Dim encode As Encoding = Encoding.GetEncoding("iso-8859-9")
Dim kaynakByte() As Byte = encode.GetBytes(sifre)
Dim md5 As New MD5CryptoServiceProvider
Dim byteHash() As Byte
byteHash = md5.ComputeHash(kaynakByte)
Dim sifreMD5 As New StringBuilder
'Dim sonucByte As Byte
For Each sonuc In byteHash
sifreMD5.Append(sonuc.ToString("X2").ToUpper)
Next
Dim guvenliSifre As String
guvenliSifre = sifreMD5.ToString()

dbYol = Server.MapPath("veri.accdb")
sqlKomut = "insert into uyeler(ad, soyad, kullaniciAdi, sifre, profilresmi) values('" + ad + "', '" + soyad + "', '" + kullaniciAdi + "', '" + guvenliSifre + "', '" + resimYol + "')"
Dim baglanti As New OleDbConnection("Provider = Microsoft.ACE.OLEDB.12.0; Data Source=" + dbYol)
Dim komut As New OleDbCommand
komut.CommandText = sqlKomut
komut.Connection = baglanti
baglanti.Open()
komut.ExecuteNonQuery()
baglanti.Close()
Label1.Text = "Kayıt başarılı. Yönlendiriliyorsunuz..."
Image1.Visible = True
Image1.ImageUrl = "images/files/check.png"
System.Threading.Thread.Sleep(2000)
Response.Redirect("WebForm2.aspx")
End Sub


 
Giriş sayfası:
Imports System.Data.OleDb
Imports System.Security.Cryptography

Dim rastgele As Integer
Dim rnd As New Random
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
rastgele = rnd.Next(1000, 9999)
Label1.Text = rastgele
End If
End Sub

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Label1.Text = TextBox3.Text Then

Else
Label2.Text = rastgele & "Güvenlik kodu yanlış! Lütfen tekrar deneyin." + TextBox3.Text
rastgele = rnd.Next(1000, 9999)
Label1.Text = rastgele
Return
End If
Dim kullaniciAdi, sifre, yol, sqlKomut, x As String
kullaniciAdi = TextBox1.Text
sifre = TextBox2.Text
yol = Server.MapPath("veri.accdb")

Dim encode As Encoding = Encoding.GetEncoding("iso-8859-9")
Dim kaynakByte() As Byte = encode.GetBytes(sifre)
Dim md5 As New MD5CryptoServiceProvider
Dim byteHash() As Byte
byteHash = md5.ComputeHash(kaynakByte)
Dim sifreMD5 As New StringBuilder
'Dim sonucByte As Byte
For Each sonuc In byteHash
sifreMD5.Append(sonuc.ToString("X2").ToUpper)
Next
Dim guvenliSifre As String
guvenliSifre = sifreMD5.ToString()

sqlKomut = "select * from uyeler where kullaniciadi='" + kullaniciAdi + "' and sifre='" + guvenliSifre + "'"
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0; Data Source=" + yol)
Dim verial As New OleDbDataAdapter(sqlKomut, baglanti)
Dim ds As New DataSet
verial.Fill(ds)
Dim sayi As Integer
sayi = ds.Tables(0).Rows.Count
If sayi = 1 Then
x = ds.Tables(0).Rows(0).Item(3)
Session("kadi") = x
x = ds.Tables(0).Rows(0).Item(5)
Session("resim") = x
Label2.Text = "Giriş başarılı. Yönlendiriliyorsunuz..."
'Image1.ImageUrl = "images/files/check.png"
'System.Threading.Thread.Sleep(2000)
Response.Redirect("WebForm3.aspx")
Else
Label2.Text = "Kullanıcı Adı veya Şifre hatalı."
rastgele = rnd.Next(1000, 9999)
Label1.Text = rastgele
End If

 
Verilerin olduğu sayfa ve excel çıktısı alma (giriş yapıldıktan sonra):
Imports System.Data.OleDb
Imports System.IO

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Session("kadi") = "" Then
Label1.Text = "Giriş yapmamışsınız! Yönlendiriliyorsunuz..."
System.Threading.Thread.Sleep(2000)
Response.Redirect("WebForm1.aspx")
Return
End If
Image1.ImageUrl = Session("resim")
Label1.Text = "Hoşgeldiniz! Sayın " + Session("kadi")
End Sub

Protected Sub LinkButton1_Click(sender As Object, e As EventArgs) Handles LinkButton1.Click
Dim yol, sql As String
yol = Server.MapPath("veri.accdb")
sql = "select * from uyeler where '" + Session("kadi") + "'"
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + yol)
Dim verial As New OleDbDataAdapter(sql, baglanti)
Dim ds As New DataSet
verial.Fill(ds)
GridView1.DataSource = ds.Tables(0)
GridView1.DataBind()
GridView1.Visible = True
End Sub

Protected Sub LinkButton2_Click(sender As Object, e As EventArgs) Handles LinkButton2.Click
Session.Abandon()
End Sub

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ek As String
ek = "attachment; filename=menu.xls"
Response.ClearContent()
Response.AddHeader("content-disposition", ek)
Response.ContentType = "application/ms-excel"
Dim sw As New StringWriter
Dim htw As New HtmlTextWriter(sw)
GridView1.GridLines = GridLines.Both
GridView1.RenderControl(htw)
Response.Write(sw.ToString)
Response.End()

End Sub
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
'MyBase.VerifyRenderingInServerForm(control)
End Sub


 
GridView Sorting (Sıralama):

Imports System.Data.OleDb
Imports System.IO

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim yol, sql As String
yol = Server.MapPath("veri.accdb")
sql = "select * from uyeler"
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + yol)
Dim verial As New OleDbDataAdapter(sql, baglanti)
Dim ds As New DataSet
verial.Fill(ds)
GridView1.DataSource = ds.Tables(0)
GridView1.DataBind()
End Sub

Protected Sub GridView1_Sorting(sender As Object, e As GridViewSortEventArgs) Handles GridView1.Sorting
Dim yol, sql As String
yol = Server.MapPath("veri.accdb")
sql = "select * from uyeler"
Dim baglanti As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + yol)
Dim verial As New OleDbDataAdapter(sql, baglanti)
Dim ds As New DataSet
verial.Fill(ds)
Dim dv As New DataView(ds.Tables(0))
dv.Sort = e.SortExpression
GridView1.DataSource = dv
GridView1.DataBind()
End Sub