bhasoft
شنبه 27 فروردین 1390, 12:12 عصر
با سلام.خسته نباشيد جميعا.
دوستان عزيز كسي بلده چطور با اين دستورات درج ،دستورات آپديت رو بنويسم؟
Dim Save As New OleDbCommand()
Save.Connection = myconnection
Save.CommandText = "Insert Into UP Values (@UsName,@Pass,@FirstName,@LastName,@FatherName,@M elliCode,@Semat,@HomePhone,@MobilePhone,@Address,@ Admin,@Plane,@TSearch,@TSave,@TEdit,@TDelete,@TRep ort,@TOption,@Timage)"
Save.Parameters.AddWithValue("@UsName", T1.Text)
Save.Parameters.AddWithValue("@Pass", T2.Text)
Save.Parameters.AddWithValue("@FirstName", T3.Text)
Save.Parameters.AddWithValue("@LastName", T4.Text)
Save.Parameters.AddWithValue("@FatherName", T5.Text)
Save.Parameters.AddWithValue("@MelliCode", Long.Parse(T6.Text))
Save.Parameters.AddWithValue("@Semat", T7.Text)
Save.Parameters.AddWithValue("@HomePhone", Long.Parse(T8.Text))
Save.Parameters.AddWithValue("@MobilePhone", Long.Parse(T9.Text))
Save.Parameters.AddWithValue("@Address", T10.Text)
Save.Parameters.AddWithValue("@Admin", "0")
Save.Parameters.AddWithValue("@Plane", ChBx1.CheckState)
Save.Parameters.AddWithValue("@TSearch", CBx1.CheckState)
Save.Parameters.AddWithValue("@TSave", CBx2.CheckState)
Save.Parameters.AddWithValue("@TEdit", CBx3.CheckState)
Save.Parameters.AddWithValue("@TDelete", CBx4.CheckState)
Save.Parameters.AddWithValue("@TReport", CBx5.CheckState)
Save.Parameters.AddWithValue("@TOption", CBx6.CheckState)
Save.Parameters.AddWithValue("@Timage", ConvertImageToByte(OFD.FileName))
Save.ExecuteNonQuery()
من با اين دستورات به خوبي درج ميكنم.
دستور آپديت من هم معموليه اما چون عكس از نوع آبجكت هست نميشه با string بگيرم و ذخيره كنم.
اين هم دستور آپديت من ما بدون عكس .اگه كسي بلده دستورات درج رو به آپديت تبديل كنه ممنونش ميشم...
Dim update As String
update = "update T_Address set code_P =" & T11.Text & "," & _
"shahr='" & T12.Text & "'," & _
"roosta='" & T13.Text & "'," & _
"khiaban='" & T14.Text & "'," & _
"kooy='" & T15.Text & "'," & _
"kuche='" & T16.Text & "'," & _
"bonbast='" & T17.Text & "'," & _
"mojtama='" & T18.Text & "'," & _
"aparteman='" & T19.Text & "'," & _
"tabage='" & T20.Text & "'," & _
"pelak='" & T21.Text & "'" & _
"where code_P=" & Int(T11.Text)
Dim d As New OleDb.OleDbCommand(update, myconnection)
d.ExecuteNonQuery()
دوستان عزيز كسي بلده چطور با اين دستورات درج ،دستورات آپديت رو بنويسم؟
Dim Save As New OleDbCommand()
Save.Connection = myconnection
Save.CommandText = "Insert Into UP Values (@UsName,@Pass,@FirstName,@LastName,@FatherName,@M elliCode,@Semat,@HomePhone,@MobilePhone,@Address,@ Admin,@Plane,@TSearch,@TSave,@TEdit,@TDelete,@TRep ort,@TOption,@Timage)"
Save.Parameters.AddWithValue("@UsName", T1.Text)
Save.Parameters.AddWithValue("@Pass", T2.Text)
Save.Parameters.AddWithValue("@FirstName", T3.Text)
Save.Parameters.AddWithValue("@LastName", T4.Text)
Save.Parameters.AddWithValue("@FatherName", T5.Text)
Save.Parameters.AddWithValue("@MelliCode", Long.Parse(T6.Text))
Save.Parameters.AddWithValue("@Semat", T7.Text)
Save.Parameters.AddWithValue("@HomePhone", Long.Parse(T8.Text))
Save.Parameters.AddWithValue("@MobilePhone", Long.Parse(T9.Text))
Save.Parameters.AddWithValue("@Address", T10.Text)
Save.Parameters.AddWithValue("@Admin", "0")
Save.Parameters.AddWithValue("@Plane", ChBx1.CheckState)
Save.Parameters.AddWithValue("@TSearch", CBx1.CheckState)
Save.Parameters.AddWithValue("@TSave", CBx2.CheckState)
Save.Parameters.AddWithValue("@TEdit", CBx3.CheckState)
Save.Parameters.AddWithValue("@TDelete", CBx4.CheckState)
Save.Parameters.AddWithValue("@TReport", CBx5.CheckState)
Save.Parameters.AddWithValue("@TOption", CBx6.CheckState)
Save.Parameters.AddWithValue("@Timage", ConvertImageToByte(OFD.FileName))
Save.ExecuteNonQuery()
من با اين دستورات به خوبي درج ميكنم.
دستور آپديت من هم معموليه اما چون عكس از نوع آبجكت هست نميشه با string بگيرم و ذخيره كنم.
اين هم دستور آپديت من ما بدون عكس .اگه كسي بلده دستورات درج رو به آپديت تبديل كنه ممنونش ميشم...
Dim update As String
update = "update T_Address set code_P =" & T11.Text & "," & _
"shahr='" & T12.Text & "'," & _
"roosta='" & T13.Text & "'," & _
"khiaban='" & T14.Text & "'," & _
"kooy='" & T15.Text & "'," & _
"kuche='" & T16.Text & "'," & _
"bonbast='" & T17.Text & "'," & _
"mojtama='" & T18.Text & "'," & _
"aparteman='" & T19.Text & "'," & _
"tabage='" & T20.Text & "'," & _
"pelak='" & T21.Text & "'" & _
"where code_P=" & Int(T11.Text)
Dim d As New OleDb.OleDbCommand(update, myconnection)
d.ExecuteNonQuery()