asp.net visual basic kodlarını c# çevirme

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:

DarkScannel

Katılımcı Üye
22 Haz 2015
712
23
Kod:
using System.Data.OleDb;
using System.Data;
using System.Data.OleDb.OleDbCommand;
using System.IO;
using System.Web.Configuration;

partial class yonetim_Default : System.Web.UI.Page
{
    protected **** Button1_Click(object sender, EventArgs e)
    {
        string gelenadres;
        OleDbConnection baglanti = new OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" + MapPath("~/App_Data/Database1.mdb"));
        OleDbCommand cmd = new OleDbCommand("Select * From Tablo2", baglanti);
        baglanti.Open();
        OleDbDataReader Dr;
        Dr = cmd.ExecuteReader;
        while ((Dr.Read()))
        {
            if (((Dr("kul").ToString() == TextBox1.Text) & (Dr("sifre").ToString() == TextBox2.Text)))
            {
                Session("girenid") = Dr("kid");
                Session("giris") = "1";
                Session("yetki") = Dr("yetki");
                Dr.Close();
                if (Session("yetki") == "2")
                {
                    gelenadres = "default2.aspx";
                }
                else if (Session("yetki") == "1")
                {
                    gelenadres = "super.aspx";
                }
                else
                {
                    gelenadres = Request.QueryString("ReturnUrl");
                }

                Response.Redirect(gelenadres);
                return;
            }
        }

        Dr.Close();
    }
}
 
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.