PDA

View Full Version : سوال: تبدیل کد vb.net به c# (پایگاه داده)



reza69
سه شنبه 14 آذر 1391, 20:29 عصر
سلام این کدها vb.net رو به sql server وصل میکنه و اطلاعات رو در پایگاه داده ثبت میکنه
می خواستم به کدهای معادل c# تبدیل بشه.
اگه کدی برای ثبت اطلاعات از c# در sql دارید برام بزارید.

Dim constring As String = "Data Source=localhost;Initial Catalog=dantist_DB;Integrated Security=True"
Dim objcon As New SqlClient.SqlConnection(constring)
objcon.Open()

Dim dagroup As New SqlClient.SqlDataAdapter("select * from bimar", objcon)
Dim dsgroup As New DataSet
dagroup.Fill(dsgroup, "dantist_db")
Dim tblgroup As DataTable
tblgroup = dsgroup.Tables("dantist_db")
Dim drcurrent As DataRow
drcurrent = tblgroup.NewRow()

drcurrent("name") = txtname.Text
drcurrent("fname") = txtfname.Text
drcurrent("shenasname") = txtshenas.Text
drcurrent("birthday") = CDate(txtdate.Text)
drcurrent("sex") = txtsex.Text
drcurrent("telloffice") = txtteloffice.Text
drcurrent("mobilenum") = txttel.Text
drcurrent("numcode") = txtnumcode.Text

Dim cn As SqlConnection
cn = New SqlConnection("Data Source=localhost;Initial Catalog=dantist_DB;Integrated Security=True")
Dim da As SqlDataAdapter
da = New SqlDataAdapter("select * from bimar", cn)
Dim ds As DataSet
ds = New DataSet
da.FillSchema(ds, SchemaType.Mapped, "bimar")
da.Fill(ds, "bimar")
Dim dr As DataRow
dr = ds.Tables("bimar").Rows.Find(txtnumcode.Text)
If Not (dr Is Nothing) Then
MsgBox("کد پرونده تکراري است لطفا دوباره وارد کنيد")
GoTo next1
End If

drcurrent("adres") = txtadres.Text
drcurrent("adresoffice") = txtadresoffice.Text
drcurrent("coment") = txtcoment.Text
drcurrent("adrespic") = lblfilepath1.Text

tblgroup.Rows.Add(drcurrent)
Dim objcommandbuilder As New SqlClient.SqlCommandBuilder(dagroup)
dagroup.Update(dsgroup, "dantist_db")
MsgBox("ثبت با موفقيت انجام شد")

For Each ctrls In Me.Controls
If TypeOf ctrls Is TextBox Then
ctrls.Text = ""
End If
If TypeOf ctrls Is RichTextBox Then
ctrls.Text = ""
End If
Next
lblfilepath1.Text = ""
lblfilepath1.Text = ""
picbox.Image = Nothing
next1:
End Sub

r_s1389@yahoo.com
سه شنبه 14 آذر 1391, 20:35 عصر
جستجو کنی زود به نتیجه میرسی

using System.Data.SqlClient;


private void button1_Click(object sender, EventArgs e)
{
SqlConnection con = new SqlConnection("data source=(local);initial catalog=db;integrated security=true;");
SqlCommand cmd = new SqlCommand("insert into T2 (name,fname) values (@name,@fname)", con);
cmd.CommandType = CommandType.Text;

cmd.Parameters.AddWithValue("@name", textBox1.Text);
cmd.Parameters.AddWithValue("@fname", textBox2.Text);

con.Open();
cmd.ExecuteNonQuery();
con.Close();
}

reza69
سه شنبه 14 آذر 1391, 20:49 عصر
جستجو کنی زود به نتیجه میرسی

using System.Data.SqlClient;


private void button1_Click(object sender, EventArgs e)
{
SqlConnection con = new SqlConnection("data source=(local);initial catalog=db;integrated security=true;");
SqlCommand cmd = new SqlCommand("insert into T2 (name,fname) values (@name,@fname)", con);
cmd.CommandType = CommandType.Text;

cmd.Parameters.AddWithValue("@name", textBox1.Text);
cmd.Parameters.AddWithValue("@fname", textBox2.Text);

con.Open();
cmd.ExecuteNonQuery();
con.Close();
}
خیلی ممنون چند تا سوال داشتم
تو خط چهارم T2 چیه؟
ExecuteNonQuery چه کاری انجام میده؟

یه دستور هم می خوام وقتی اطلاعات ثبت شد پیام بده

r_s1389@yahoo.com
سه شنبه 14 آذر 1391, 21:50 عصر
MessageBox.Show("insert anjam shod");