۲۱-اردیبهشت-۱۳۸۸, ۲۳:۳۶:۲۸
من خودم فکر می کنم به خاطر حجم کد insert باشه چون وقتی مقداری از اون رو که حذف می کنم کار میکنه ولی کلش رو error میده و اون قسمتیش رو که حذف میکنم با یه دستور update میتونم وارد دیتابیس کنم اما می‌خوام به صورت یک Insert باشه و دیگه از دستور update استقاده نکنم .
از اساتید محترم خواهشمند است کمک کنید .
از اساتید محترم خواهشمند است کمک کنید .
کد:
Dim piccon As New SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & "data" & " ;Data Source=server")
Dim ms As New MemoryStream
If EditBox16.Text = "0" Then picbox.Image.Save(ms, picbox.Image.RawFormat)
Dim arrimage() As Byte = ms.GetBuffer
Try
piccon.Open()
Dim strsql As String = "INSERT INTO acc_persons (name,family,fathername,idno,codemeli,birthdate" & _
",birthplace,idplace,gender,childno,madrak,reshte,married,address,tell,mobile,personelcode" & _
",cardcode,semat,datein,khateme,dateout,nobatkaricode,nobatkari,noeestekhdam,masool,dep,grooh" & _
",paye)" & _
" VALUES (N'" + EditBox1.Text + "',N'" + EditBox2.Text + "',N'" + EditBox3.Text + "',N'" + EditBox4.Text + "'" & _
",N'" + EditBox7.Text + "','" & date1.DateValue & "',N'" + EditBox5.Text + "',N'" + EditBox6.Text + "'" & _
",N'" + view.Text + "','" + a.Text + "',N'" + madrak.Text + "',N'" + reshte.Text + "'" & _
",'" + marrid.Checked + "',N'" + EditBox10.Text + "',N'" + EditBox8.Text + "',N'" + EditBox11.Text + "'" & _
",N'" + EditBox14.Text + "',N'" + EditBox13.Text + "',N'" + EditBox12.Text + "','" & date2.DateValue & "'" & _
",'" + khateme.Checked + "','" & date3.DateValue & "',N'" + ncode.Text + "',N'" + n.Text + "'" & _
",N'" + estekhdam.Text + "',N'" + masool.Text + "',N'" + dep.Text + "','" & grooh.Text & "'" & _
",'" & paye.Text + "')"
Dim cmd As New SqlCommand(strsql, piccon)
With cmd
.Parameters.Add(New SqlParameter("@pic", SqlDbType.Image)).Value = arrimage
End With
If cmd.ExecuteNonQuery = 1 Then
m.Prompt = "ثبت اطلاعات" + vbCrLf + "----------------------------------------" + vbCrLf + "اطلاعات مورد نظر با موفقیت ثبت شد"
m.Buttons = MBMsgBoxEx.mbButtonConstants.mbOneCustomButton
m.Show()
Me.EDARIhokmTableAdapter.Fill(Me.ERPDataSet.EDARIhokm)
piccon.Close()
Me.Close()
Else
m.Prompt = "خطا در ثبت اطلاعات" + vbCrLf + "----------------------------------------" + vbCrLf + "به علت عدم اتصال با سرور اطلاعات مورد نظر ذخیره نشد لطفاً دوباره عملیات ذخیره سازی را انجام دهید"
m.Buttons = MBMsgBoxEx.mbButtonConstants.mbOneCustomButton
m.Show()
End If
Catch ex As Exception
m.Prompt = "خطا در ثبت اطلاعات" + vbCrLf + "----------------------------------------" + vbCrLf + "به علت عدم اتصال با سرور اطلاعات مورد نظر ذخیره نشد لطفاً دوباره عملیات ذخیره سازی را انجام دهید"
m.Buttons = MBMsgBoxEx.mbButtonConstants.mbOneCustomButton
m.Show()
End Try
piccon.Close()