PDA

View Full Version : معادل این کد ویبی رو در سی شارپ میخواستم



xman_dj
سه شنبه 21 دی 1389, 18: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, 19:36 عصر
شما می تونید از سایت هایی مثل
http://www.developerfusion.com/tools/convert/vb-to-csharp/
استفاده کنید.
کد شما رو هم خواستم تبدیل کنم به C# خطا داد.

ali.rezaei7
سه شنبه 21 دی 1389, 22: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# و برعكس مي باشه. دليل خطا هم به خطار همين مسئله هست.