- 23 Eyl 2012
- 72
- 0
Merhaba arkadaşlar aşağıdaki kodları Do Whileden itibaren c# olarak çevirebilir misiniz? Teşekkürler.
Kod:
Imports System.Data.OleDb
Imports System.Data
Imports System.Data.OleDb.OleDbCommand
Imports System.IO
Imports System.Web.Configuration
Partial Class yonetim_Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim gelenadres As String
Dim baglanti As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & MapPath("~/App_Data/Database1.mdb"))
Dim cmd As New OleDbCommand("Select * From Tablo2", baglanti)
baglanti.Open()
Dim Dr As OleDbDataReader
Dr = cmd.ExecuteReader
Do While (Dr.Read())
If ((Dr("kul").ToString() = TextBox1.Text) And (Dr("sifre").ToString() = TextBox2.Text)) Then
Session("girenid") = Dr("kid")
Session("giris") = "1"
Session("yetki") = Dr("yetki")
Dr.Close()
If Session("yetki") = "2" Then
gelenadres = "default2.aspx"
ElseIf Session("yetki") = "1" Then
gelenadres = "super.aspx"
Else
gelenadres = Request.QueryString("ReturnUrl")
End If
Response.Redirect(gelenadres)
Return
End If
Loop
Dr.Close()
End Sub
End Class
Moderatör tarafında düzenlendi: