View Full Version : معادل این کد ویبی رو در سی شارپ میخواستم
xman_dj
سه شنبه 21 دی 1389, 19:35 عصر
با سلام و خسته نباشید
معادل این کد که به زبان ویبی هست رو به زبان سی شارپ میخواستم خیلی ممون
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
If cn.State = 1 Then cn.Close
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\db1.mdb"
If rs.State = 1 Then rs.Close
rs.Open "select * from table_name", cn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
Text01.Text = rs(2)
Text02.Text = rs(3)
Text03.Text = rs(4)
Text07.Text = rs(8)
Text08.Text = rs(Name)
end if
mdssoft
سه شنبه 21 دی 1389, 20:36 عصر
شما می تونید از سایت هایی مثل
http://www.developerfusion.com/tools/convert/vb-to-csharp/
استفاده کنید.
کد شما رو هم خواستم تبدیل کنم به C# خطا داد.
ali.rezaei7
سه شنبه 21 دی 1389, 23:13 عصر
تبديل كد موردنظر:
//Dim cn As New ADODB.Connection
//Dim rs As New ADODB.Recordset
//If cn.State = 1 Then cn.Close
//cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\db1.mdb"
OleDbConnection c = new OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=db1.mdb");
OleDbDataAdapter da = new OleDbDataAdapter("select * from table_name", c);
DataTable dt = new DataTable();
da.Fill(dt);
--------------------------------------------------------------
//If rs.RecordCount > 0 Then
// Text01.Text = rs(2)
// Text02.Text = rs(3)
// Text03.Text = rs(4)
// Text07.Text = rs(8)
// Text08.Text = rs(Name)
//end if
if (dt.Rows.Count > 0)
{
Text01.Text = dt.Rows[0][2].ToString();
Text02.Text = dt.Rows[0][3].ToString();
Text03.Text = dt.Rows[0][4].ToString();
Text07.Text = dt.Rows[0][8].ToString();
Text08.Text = dt.Rows[0][name].ToString();
}
براي دسترسي به سطرهاي مختلف، مقدار صفر رو، روي عددي كه مي خواي تنظيم كن.
اين دوتا دستور هم در ابتداي سورس برنامه قرار بده
using System.Data;
using System.Data.OleDb;
شما می تونید از سایت هایی مثل
http://www.developerfusion.com/tools.../vb-to-csharp/ (http://www.developerfusion.com/tools/convert/vb-to-csharp/)
استفاده کنید.
کد شما رو هم خواستم تبدیل کنم به C# خطا داد. اين يه سورس VB6 هست، اين آدرسي كه شما معرفي كرديد براي تبديل VB.NET به C# و برعكس مي باشه. دليل خطا هم به خطار همين مسئله هست.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.