reza69
سه شنبه 14 آذر 1391, 21: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
می خواستم به کدهای معادل 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