منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاته ممكن تحويل كود الي لغة السي شارب

كود :

Sub SHOW_DETA(CODE_)

        Dim DT As New DataTable

        Dim DA As New SqlDataAdapter("select *from unite  where unite_code='" & CODE_ & "'", Module1.con)

        DA.Fill(DT)

        If DT.Rows.Count = 0 Then

            MessageBox.Show("الوحدة غير موجودة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else

            Dim DR = DT.Rows(0)

            TXT_CODE.Text = DR!unite_code

            TXT_NAME.Text = DR!unite_name

            btn_edit.Enabled = True

            btn_delete.Enabled = True

            btn_save.Enabled = False

        End If

    End Sub

كود :

public void SHOW_DETA(object CODE_)

{

    DataTable DT = new DataTable();

    SqlDataAdapter DA = new SqlDataAdapter("select *from unite  where unite_code='" + CODE_ + "'", Module1.con);

    DA.Fill(DT);

    if (DT.Rows.Count == 0)

        MessageBox.Show("الوحدة غير موجودة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);

    else

    {

        var DR = DT.Rows(0);

        TXT_CODE.Text = DR.unite_code;

        TXT_NAME.Text = DR.unite_name;

        btn_edit.Enabled = true;

        btn_delete.Enabled = true;

        btn_save.Enabled = false;

    }

}

كود :

'متنساش تضيف using System;

public void SHOW_DETA(object CODE_)

{

       DataTable DT = new DataTable();

       SqlDataAdapter DA = new SqlDataAdapter("select *from unite  where unite_code='" + CODE_.ToString() + "'", Module1.con);

       DA.Fill(DT);

       if (DT.Rows.Count == 0)

       {

           MessageBox.Show("الوحدة غير موجودة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error);

       }

       else

       {

           var DR = DT.Rows[0];

           TXT_CODE.Text = Convert.ToString(DR["unite_code"]);

           TXT_NAME.Text = Convert.ToString(DR["unite_name"]);

           btn_edit.Enabled = true;

           btn_delete.Enabled = true;

           btn_save.Enabled = false;

       }

   }

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ali_ahmed12

bidaya

الماجيك مسعد