PDA

View Full Version : تبدیل این قطعه کد به زبان vb.net



123s0ran
یک شنبه 20 اسفند 1391, 22:36 عصر
سلام دوستان این قطعه کدی که زیر مشاهده می کنید مربوط به جستجوی داخل بانک اطلاعاتی می باشد که اگر جواب درست باشد یک عدد به متغیر اضافه می شود وگرنه یک واحد کم می کندد و ناگفته نماند با هزار دردسری پیداش کردم و در واقعیت من کد vb.net مخواستم که خیلی جستجو کردم ما پیدا نشد و در نهایت یکی از دوستان لطف کرد و معادل #c واسم گذاشت الان اگه یکی از دوستان لطف کنه و به کد vb.net تبدیلش کننه خیلی ممنون میشم ...




Cmd = new SqlCommand("Select count(*) From TUser Where FUserPass=@FUserPass and FUserID=@FUserID ");
Cmd.Parameters.AddWithValue("@FUserID", Piduser);

Cmd.Parameters.AddWithValue("@FUserPass", ConstList.CalculateMD5Hash(TOldPass));
Cmd.Connection = Conn;
int i = (int)Cmd.ExecuteScalar();
if (i >0 )
{
Conn.Close();
// Conn.Dispose();
return true;
}
}

esafb52
یک شنبه 20 اسفند 1391, 23:27 عصر
سلام از این استفاده کن
http://www.developerfusion.com/tools/convert/csharp-to-vb/?batchId=dde37520-ef6f-43eb-9106-f814ca383ef8

erfan_urchin
دوشنبه 21 اسفند 1391, 00:02 صبح
بفرمایید اینم کد به زبان VB
Cmd = New SqlCommand("Select count(*) From TUser Where FUserPass=@FUserPass and FUserID=@FUserID ")
Cmd.Parameters.AddWithValue("@FUserID", Piduser)

Cmd.Parameters.AddWithValue("@FUserPass", ConstList.CalculateMD5Hash(TOldPass))
Cmd.Connection = Conn
Dim i As Integer = CInt(Cmd.ExecuteScalar())
If i > 0 Then
Conn.Close()
' Conn.Dispose();
Return True
End If