chuyển code từ VB sang C# [website asp]

[saolaikhong]

@webshot
@microstar

thank's hai pro nhìu! ^^

View more random threads:

• Một số bài tập cơ bản về ngôn ngữ C# kèm lời giải
• Làm thế nào để phát hiện số tăng? Nhờ anh em chỉ giáo
• đề tài nhỏ
• connect wpf + sqlite
• giúp mình xuất file làm màn hình chờ cho máy tính với.
• Bỏ dấu chấm khi Spacer trong Visual Studio?
• Làm sao để không cho hiện mã html trong textbox multiline?
• Automation download tool
• Lập trình thời gian thực
• Hỏi về JQuery và C# trong asp.net

[Boom]

[IMG]images/smilies/Cry.gif[/IMG] chả là mem có souce 1 trang asp tin tức nhưng viết trên vb [IMG]images/smilies/dont_tell_anyone.gif[/IMG] nên k biết chuyển qua C# như thế nào, nhờ mọi người giúp [IMG]images/smilies/Cry.gif[/IMG]

Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Partial Class quantri_Default
    Inherits System.Web.UI.Page
    Dim image_up As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ha1()
        'btn_sua.Enabled = False
        btn_huy.Enabled = False
        load_dl()
        If Not IsPostBack Then
            load_du_lieu_len_textbox()
            ha1()
        End If
    End Sub
    Sub load_du_lieu_len_textbox()
        Dim myconn As New SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString)
        Dim chuoi As New SqlCommand("select * from TBL_BAIVIET where idBV='" & Request.QueryString("idBV") & "'", myconn)
        myconn.Open()
        Dim oreader As SqlDataReader
        oreader = chuoi.ExecuteReader
        While oreader.Read
            'DropDownList1.Items.Capacity = oreader.GetValue(1).ToString
            lblGroupCaption.Text = oreader.GetValue(1).ToString
            t_tenbv.Text = oreader.GetValue(2).ToString
            t_motabv.Text = oreader.GetValue(3).ToString
            t_noidung.Text = oreader.GetValue(4).ToString
            t_id.Text = oreader.GetValue(0).ToString
            btn_sua.Enabled = True
            btn_huy.Enabled = True
            btn_them.Enabled = False
        End While
        myconn.Close()
    End Sub
    Sub upload_image()
        If FileUpload1.HasFile Then
            ' hàm này có ý nghia là: thay kho?ng tr?ng b?ng d?u _ vì khi up load tên hình ?nh có kho?ng tr?ng thì hình ?nh ko hi?n th? lên datalist
            image_up = FileUpload1.FileName.Replace(" ", "_")
            ' upload là thu m?c ch?a hình upload lên
            FileUpload1.SaveAs(Server.MapPath("..\upload\" & image_up))
        End If
    End Sub
    Sub load_dl()
        Dim myconn As New SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString)
        myconn.Open()
        Dim chuoi As String = "select *from tbL_BAIVIET"
        Dim dt As New DataTable
        Dim Cmd As New SqlCommand(chuoi, myconn)
        Dim Da As New SqlDataAdapter(Cmd)
        Da.FillSchema(dt, SchemaType.Source)
        Da.Fill(dt)
        DataGrid2.DataSource = dt
        DataGrid2.DataBind()
        myconn.Close()
    End Sub
    Sub themdulieu()
        Dim myconn As New SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString)
        myconn.Open()
        Dim chuoi As String = "insert into tbL_BAIVIET values('" & lblGroupCaption.Text & "',N'" & t_tenbv.Text & "',N'" & t_motabv.Text & "',N'" & t_noidung.Text & "','" & "upload/" & image_up & "')"
        Dim lenh As SqlCommand = myconn.CreateCommand
        lenh.CommandType = CommandType.Text
        lenh.CommandText = chuoi
        lenh.ExecuteNonQuery()
        DataGrid2.DataBind()
        myconn.Close()
    End Sub
    Sub xoa()
        Try
            Dim myconn As New SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString)
            myconn.Open()
            Dim chuoi As String = "delete from tbL_BAIVIET where idBV =('" & t_id.Text & "')"
            Dim lenh As SqlCommand = myconn.CreateCommand()
            lenh.CommandText = chuoi
            lenh.ExecuteNonQuery()
            myconn.Close()
        Catch ex As Exception
            MsgBox("File Read Errors" & ex.ToString())
        End Try
    End Sub
    Sub sua_du_lieu()
        Dim myconn As New SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString)
        myconn.Open()
        Dim chuoi As New SqlCommand("update tbL_BAIVIET set idcd='" & lblGroupCaption.Text & "',tenBV=N'" & t_tenbv.Text & "',motaBV=N'" & t_motabv.Text & "',noidungBV=N'" & t_noidung.Text & "',hinhanh='" & "upload/" & image_up & "' where idBV='" & Request.QueryString("idBV") & "';", myconn)
        chuoi.ExecuteNonQuery()
        myconn.Close()
        Response.Redirect("qtbaiviet.aspx")
    End Sub

    Protected Sub btn_sua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_sua.Click
        upload_image()
        sua_du_lieu()
    End Sub

    Protected Sub BTN_XOA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BTN_XOA.Click
        xoa()
        load_dl()
        load_du_lieu_len_textbox()
    End Sub

    Protected Sub btn_huy_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_huy.Click
        'Response.Redirect("qtbaiviet.aspx")
        btn_them.Enabled = True
        btn_huy.Enabled = False
    End Sub

    Protected Sub btn_them_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_them.Click
        upload_image()
        themdulieu()
        DataGrid2.DataBind()
        load_dl()
        ' Response.Redirect("qtbaiviet.aspx")
    End Sub

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        ha1()
    End Sub
    Sub ha1()

        Dim myConn As New SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString)
        Try
            myConn.Open()
            Dim sql As String = "SELECT idcd FROM tbl_chude WHERE tencd=N'" & DropDownList1.SelectedValue & "'"
            Dim myCmd As SqlCommand = New SqlCommand(sql, myConn)
            Dim myReader As SqlDataReader
            'All
            myReader = myCmd.ExecuteReader()
            If myReader.HasRows Then
                While myReader.Read()
                    lblGroupCaption.Text = myReader("idcd")
                End While
            End If
            myReader.Close()
        Catch ex As Exception
        Finally
            myConn.Close()
        End Try
    End Sub
   
   
End Class

[toyota]

bạn có thể sử dụng công cụ trực tuyến tại địa chỉ:
http://www.developerfusion.com/tools.../vb-to-csharp/
chỉ cần copy code vào rồi ấn convert là ok. mình dùng khá nhiều thấy nó tương đối ổn, code convert rất ít khi bị lỗi

[luuvanthuc]

using System.Data;using System.Data.Sql;using System.Data.SqlClient;partial class quantri_Default : System.Web.UI.Page{    string image_up;        protected void  // ERROR: Handles clauses are not supported in C#Page_Load(object sender, System.EventArgs e)    {        ha1();        //btn_sua.Enabled = False        btn_huy.Enabled = false;        load_dl();        if (!IsPostBack) {            load_du_lieu_len_textbox();            ha1();        }    }    public void load_du_lieu_len_textbox()    {        SqlConnection myconn = new SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString);        SqlCommand chuoi = new SqlCommand("select * from TBL_BAIVIET where idBV='" + Request.QueryString("idBV") + "'", myconn);        myconn.Open();        SqlDataReader oreader = default(SqlDataReader);        oreader = chuoi.ExecuteReader;        while (oreader.Read) {            //DropDownList1.Items.Capacity = oreader.GetValue(1).ToString            lblGroupCaption.Text = oreader.GetValue(1).ToString;            t_tenbv.Text = oreader.GetValue(2).ToString;            t_motabv.Text = oreader.GetValue(3).ToString;            t_noidung.Text = oreader.GetValue(4).ToString;            t_id.Text = oreader.GetValue(0).ToString;            btn_sua.Enabled = true;            btn_huy.Enabled = true;            btn_them.Enabled = false;        }        myconn.Close();    }    public void upload_image()    {        if (FileUpload1.HasFile) {            // hàm này có ý nghia là: thay kho?ng tr?ng b?ng d?u _ vì khi up load tên hình ?nh có kho?ng tr?ng thì hình ?nh ko hi?n th? lên datalist            image_up = FileUpload1.FileName.Replace(" ", "_");            // upload là thu m?c ch?a hình upload lên            FileUpload1.SaveAs(Server.MapPath("..\\upload\\" + image_up));        }    }    public void load_dl()    {        SqlConnection myconn = new SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString);        myconn.Open();        string chuoi = "select *from tbL_BAIVIET";        DataTable dt = new DataTable();        SqlCommand Cmd = new SqlCommand(chuoi, myconn);        SqlDataAdapter Da = new SqlDataAdapter(Cmd);        Da.FillSchema(dt, SchemaType.Source);        Da.Fill(dt);        DataGrid2.DataSource = dt;        DataGrid2.DataBind();        myconn.Close();    }    public void themdulieu()    {        SqlConnection myconn = new SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString);        myconn.Open();        string chuoi = "insert into tbL_BAIVIET values('" + lblGroupCaption.Text + "',N'" + t_tenbv.Text + "',N'" + t_motabv.Text + "',N'" + t_noidung.Text + "','" + "upload/" + image_up + "')";        SqlCommand lenh = myconn.CreateCommand;        lenh.CommandType = CommandType.Text;        lenh.CommandText = chuoi;        lenh.ExecuteNonQuery();        DataGrid2.DataBind();        myconn.Close();    }    public void xoa()    {        try {            SqlConnection myconn = new SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString);            myconn.Open();            string chuoi = "delete from tbL_BAIVIET where idBV =('" + t_id.Text + "')";            SqlCommand lenh = myconn.CreateCommand();            lenh.CommandText = chuoi;            lenh.ExecuteNonQuery();            myconn.Close();        }        catch (Exception ex) {            Interaction.MsgBox("File Read Errors" + ex.ToString());        }    }    public void sua_du_lieu()    {        SqlConnection myconn = new SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString);        myconn.Open();        SqlCommand chuoi = new SqlCommand("update tbL_BAIVIET set idcd='" + lblGroupCaption.Text + "',tenBV=N'" + t_tenbv.Text + "',motaBV=N'" + t_motabv.Text + "',noidungBV=N'" + t_noidung.Text + "',hinhanh='" + "upload/" + image_up + "' where idBV='" + Request.QueryString("idBV") + "';", myconn);        chuoi.ExecuteNonQuery();        myconn.Close();        Response.Redirect("qtbaiviet.aspx");    }        protected void  // ERROR: Handles clauses are not supported in C#btn_sua_Click(object sender, System.EventArgs e)    {        upload_image();        sua_du_lieu();    }        protected void  // ERROR: Handles clauses are not supported in C#BTN_XOA_Click(object sender, System.EventArgs e)    {        xoa();        load_dl();        load_du_lieu_len_textbox();    }        protected void  // ERROR: Handles clauses are not supported in C#btn_huy_Click(object sender, System.EventArgs e)    {        //Response.Redirect("qtbaiviet.aspx")        btn_them.Enabled = true;        btn_huy.Enabled = false;    }        protected void  // ERROR: Handles clauses are not supported in C#btn_them_Click(object sender, System.EventArgs e)    {        upload_image();        themdulieu();        DataGrid2.DataBind();            // Response.Redirect("qtbaiviet.aspx")        load_dl();    }        protected void  // ERROR: Handles clauses are not supported in C#DropDownList1_SelectedIndexChanged(object sender, System.EventArgs e)    {        ha1();    }    public void ha1()    {                SqlConnection myConn = new SqlConnection(ConfigurationManager.ConnectionStrings("connectionstring").ConnectionString);        try {            myConn.Open();            string sql = "SELECT idcd FROM tbl_chude WHERE tencd=N'" + DropDownList1.SelectedValue + "'";            SqlCommand myCmd = new SqlCommand(sql, myConn);            SqlDataReader myReader = default(SqlDataReader);            //All            myReader = myCmd.ExecuteReader();            if (myReader.HasRows) {                while (myReader.Read()) {                    lblGroupCaption.Text = myReader("idcd");                }            }            myReader.Close();        }        catch (Exception ex) {        }        finally {            myConn.Close();        }    }        }