31-03-13, 10:43 PM
السلام عليكم ورحمة الله وبركاته
اخواني انا عندي كود في زر رقم 1 اضافة بيانات في قاعدة بيانات SQL وعندي كود تعديل البياانات في كود زر رقم 2 ،، اريد فقط ان ادمجهم في زر واحد يعني اذا وجد في فراغ Textbox رقم ID يعني انه يعدل اما اذا لم يوجد رقم ID يعني حفظ جديد ،،، مع العلم اني جربت اوامر IF ولم تنجح لانه الكوديين متشابهيين .
هذا كود الحفظ كاملا ،،
وهذا كود تعريفات امر التعديل
،، شكرا .
اخواني انا عندي كود في زر رقم 1 اضافة بيانات في قاعدة بيانات SQL وعندي كود تعديل البياانات في كود زر رقم 2 ،، اريد فقط ان ادمجهم في زر واحد يعني اذا وجد في فراغ Textbox رقم ID يعني انه يعدل اما اذا لم يوجد رقم ID يعني حفظ جديد ،،، مع العلم اني جربت اوامر IF ولم تنجح لانه الكوديين متشابهيين .
هذا كود الحفظ كاملا ،،
كود :
Dim cm As New SqlCommand("[color=#FF0000]insert into Table1[/color] (UserName,MobileNumber,Date,Price,Rest,Recipient,NameShop,PlaceShop,UserShop,Email,NumberDresses,ColorDress1,TypeCloth1,TypeDesign1,TypePocket1,IDCloth1,LengthM1,LengthY1,ColorDress2,TypeCloth2,TypeDesign2,TypePocket2,IDCloth2,LengthM2,LengthY2,ColorDress3,TypeCloth3,TypeDesign3,TypePocket3,IDCloth3,LengthM3,LengthY3,LengthDress,DisplayKtf,DisplayDress,LengthKmSadh,LengthKmKbk,DisplayKmSadh1,DisplayKmSadh2,DisplayKmSadh3,DisplayKmKbk1,DisplayKmKbk2,DisplayKmKbk3,RakbhKllab1,RakbhKllab2,RakbhSadh1,RakbhSadh2,DownDress1,DownDress2,LengthKbzor,Other,Img1U1,Img2U1,Img3U1,Img4U1,Img1U2,Img2U2,Img3U2,Img4U2,Img1U3,Img2U3,Img3U3,Img4U3) values (@UserName,@MobileNumber,@Date,@Price,@Rest,@Recipient,@NameShop,@PlaceShop,@UserShop,@Email,@NumberDresses,@ColorDress1,@TypeCloth1,@TypeDesign1,@TypePocket1,@IDCloth1,@LengthM1,@LengthY1,@ColorDress2,@TypeCloth2,@TypeDesign2,@TypePocket2,@IDCloth2,@LengthM2,@LengthY2,@ColorDress3,@TypeCloth3,@TypeDesign3,@TypePocket3,@IDCloth3,@LengthM3,@LengthY3,@LengthDress,@DisplayKtf,@DisplayDress,@LengthKmSadh,@LengthKmKbk,@DisplayKmSadh1,@DisplayKmSadh2,@DisplayKmSadh3,@DisplayKmKbk1,@DisplayKmKbk2,@DisplayKmKbk3,@RakbhKllab1,@RakbhKllab2,@RakbhSadh1,@RakbhSadh2,@DownDress1,@DownDress2,@LengthKbzor,@Other,@Img1U1,@Img2U1,@Img3U1,@Img4U1,@Img1U2,@Img2U2,@Img3U2,@Img4U2,@Img1U3,@Img2U3,@Img3U3,@Img4U3)", Conn)
cm.Parameters.AddWithValue("@UserName", (TextBox1.Text)).ToString()
cm.Parameters.AddWithValue("@MobileNumber", (TextBox2.Text)).ToString()
cm.Parameters.AddWithValue("@Date", CDate(TextBox7.Text)).ToString()
cm.Parameters.AddWithValue("@Price", (TextBox45.Text)).ToString()
cm.Parameters.AddWithValue("@Rest", (TextBox46.Text)).ToString()
cm.Parameters.AddWithValue("@Recipient", (TextBox47.Text)).ToString()
cm.Parameters.AddWithValue("@NameShop", (TextBox4.Text)).ToString()
cm.Parameters.AddWithValue("@PlaceShop", (TextBox5.Text)).ToString()
cm.Parameters.AddWithValue("@UserShop", (TextBox6.Text)).ToString()
cm.Parameters.AddWithValue("@Email", (TextBox3.Text)).ToString()
cm.Parameters.AddWithValue("@NumberDresses", (TextBox71.Text)).ToString()
cm.Parameters.AddWithValue("@ColorDress1", (TextBox8.Text)).ToString()
cm.Parameters.AddWithValue("@TypeCloth1", (TextBox9.Text)).ToString()
cm.Parameters.AddWithValue("@TypeDesign1", (TextBox10.Text)).ToString()
cm.Parameters.AddWithValue("@TypePocket1", (TextBox11.Text)).ToString()
cm.Parameters.AddWithValue("@IDCloth1", (TextBox20.Text)).ToString()
cm.Parameters.AddWithValue("@LengthM1", (TextBox21.Text))
cm.Parameters.AddWithValue("@LengthY1", (TextBox87.Text))
cm.Parameters.AddWithValue("@ColorDress2", (TextBox15.Text)).ToString()
cm.Parameters.AddWithValue("@TypeCloth2", (TextBox14.Text)).ToString()
cm.Parameters.AddWithValue("@TypeDesign2", (TextBox13.Text)).ToString()
cm.Parameters.AddWithValue("@TypePocket2", (TextBox12.Text)).ToString()
cm.Parameters.AddWithValue("@IDCloth2", (TextBox22.Text)).ToString()
cm.Parameters.AddWithValue("@LengthM2", Val(TextBox23.Text))
cm.Parameters.AddWithValue("@LengthY2", Val(TextBox88.Text))
cm.Parameters.AddWithValue("@ColorDress3", (TextBox19.Text)).ToString()
cm.Parameters.AddWithValue("@TypeCloth3", (TextBox18.Text)).ToString()
cm.Parameters.AddWithValue("@TypeDesign3", (TextBox17.Text)).ToString()
cm.Parameters.AddWithValue("@TypePocket3", (TextBox16.Text)).ToString()
cm.Parameters.AddWithValue("@IDCloth3", (TextBox24.Text)).ToString()
cm.Parameters.AddWithValue("@LengthM3", Val(TextBox25.Text))
cm.Parameters.AddWithValue("@LengthY3", Val(TextBox89.Text))
cm.Parameters.AddWithValue("@LengthDress", (TextBox26.Text)).ToString()
cm.Parameters.AddWithValue("@DisplayKtf", (TextBox27.Text)).ToString()
cm.Parameters.AddWithValue("@DisplayDress", (TextBox28.Text)).ToString()
cm.Parameters.AddWithValue("@LengthKmSadh", (TextBox29.Text)).ToString()
cm.Parameters.AddWithValue("@LengthKmKbk", (TextBox30.Text)).ToString()
cm.Parameters.AddWithValue("@DisplayKmSadh1", (TextBox31.Text)).ToString()
cm.Parameters.AddWithValue("@DisplayKmSadh2", (TextBox32.Text)).ToString()
cm.Parameters.AddWithValue("@DisplayKmSadh3", (TextBox33.Text)).ToString()
cm.Parameters.AddWithValue("@DisplayKmKbk1", (TextBox34.Text)).ToString()
cm.Parameters.AddWithValue("@DisplayKmKbk2", (TextBox35.Text)).ToString()
cm.Parameters.AddWithValue("@DisplayKmKbk3", (TextBox36.Text)).ToString()
cm.Parameters.AddWithValue("@RakbhKllab1", (TextBox37.Text)).ToString()
cm.Parameters.AddWithValue("@RakbhKllab2", (TextBox39.Text)).ToString()
cm.Parameters.AddWithValue("@RakbhSadh1", (TextBox40.Text)).ToString()
cm.Parameters.AddWithValue("@RakbhSadh2", (TextBox41.Text)).ToString()
cm.Parameters.AddWithValue("@DownDress1", (TextBox42.Text)).ToString()
cm.Parameters.AddWithValue("@DownDress2", (TextBox43.Text)).ToString()
cm.Parameters.AddWithValue("@LengthKbzor", (TextBox44.Text)).ToString()
cm.Parameters.AddWithValue("@Other", (TextBox38.Text)).ToString()
If IsNothing(PictureBox2.Image) = False Then
Dim picStream2 As New MemoryStream
PictureBox2.Image.Save(picStream2, ImageFormat.Gif)
Dim PicByte2 As Byte() = picStream2.ToArray
cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2
Else
Dim PicByte2 As New Byte
cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox3.Image) = False Then
Dim picStream3 As New MemoryStream
PictureBox3.Image.Save(picStream3, ImageFormat.Gif)
Dim PicByte3 As Byte() = picStream3.ToArray
cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3
Else
Dim PicByte3 As New Byte
cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox4.Image) = False Then
Dim picStream4 As New MemoryStream
PictureBox4.Image.Save(picStream4, ImageFormat.Gif)
Dim PicByte4 As Byte() = picStream4.ToArray
cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4
Else
Dim PicByte4 As New Byte
cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox5.Image) = False Then
Dim picStream5 As New MemoryStream
PictureBox5.Image.Save(picStream5, ImageFormat.Gif)
Dim PicByte5 As Byte() = picStream5.ToArray
cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5
Else
Dim PicByte5 As New Byte
cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox6.Image) = False Then
Dim picStream6 As New MemoryStream
PictureBox6.Image.Save(picStream6, ImageFormat.Gif)
Dim PicByte6 As Byte() = picStream6.ToArray
cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6
Else
Dim PicByte6 As New Byte
cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox7.Image) = False Then
Dim picStream7 As New MemoryStream
PictureBox7.Image.Save(picStream7, ImageFormat.Gif)
Dim PicByte7 As Byte() = picStream7.ToArray
cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7
Else
Dim PicByte7 As New Byte
cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox8.Image) = False Then
Dim picStream8 As New MemoryStream
PictureBox8.Image.Save(picStream8, ImageFormat.Gif)
Dim PicByte8 As Byte() = picStream8.ToArray
cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8
Else
Dim PicByte8 As New Byte
cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox9.Image) = False Then
Dim picStream9 As New MemoryStream
PictureBox9.Image.Save(picStream9, ImageFormat.Gif)
Dim PicByte9 As Byte() = picStream9.ToArray
cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9
Else
Dim PicByte9 As New Byte
cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox10.Image) = False Then
Dim picStream10 As New MemoryStream
PictureBox10.Image.Save(picStream10, ImageFormat.Gif)
Dim PicByte10 As Byte() = picStream10.ToArray
cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10
Else
Dim PicByte10 As New Byte
cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox11.Image) = False Then
Dim picStream11 As New MemoryStream
PictureBox11.Image.Save(picStream11, ImageFormat.Gif)
Dim PicByte11 As Byte() = picStream11.ToArray
cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11
Else
Dim PicByte11 As New Byte
cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox12.Image) = False Then
Dim picStream12 As New MemoryStream
PictureBox12.Image.Save(picStream12, ImageFormat.Gif)
Dim PicByte12 As Byte() = picStream12.ToArray
cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12
Else
Dim PicByte12 As New Byte
cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12
End If
'------------------------------------------------------------------------------------------------------
If IsNothing(PictureBox13.Image) = False Then
Dim picStream13 As New MemoryStream
PictureBox13.Image.Save(picStream13, ImageFormat.Gif)
Dim PicByte13 As Byte() = picStream13.ToArray
cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13
Else
Dim PicByte13 As New Byte
cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13
End If
'------------------------------------------------------------------------------------------------------
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
Me.RefreshListView()
MessageBox.Show("تم الحفظ والإضافة بنجاح", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)
On Error Resume Next
For i1 As Integer = 0 To ListView2.Items.Count - 1
If ListView2.Items.Item(i1).SubItems(0).Text = TextBox20.Text Then
ListView2.Items.Item(i1).SubItems(4).Text = Val(ListView2.Items.Item(i1).SubItems(4).Text) - Val(TextBox21.Text)
ListView2.Items.Item(i1).SubItems(5).Text = Val(ListView2.Items.Item(i1).SubItems(5).Text) - Val(TextBox87.Text)
Dim cm1 As New SqlCommand("update Table2 set LengthM=@LengthM,LengthY=@LengthY where ID=" & TextBox20.Text, Conn)
cm1.Parameters.AddWithValue("@LengthM", SqlDbType.Decimal).Value = ListView2.Items.Item(i1).SubItems(4).Text
cm1.Parameters.AddWithValue("@LengthY", SqlDbType.Decimal).Value = ListView2.Items.Item(i1).SubItems(5).Text
End If
Next
On Error Resume Next
For i11 As Integer = 0 To ListView2.Items.Count - 1
If ListView2.Items.Item(i11).SubItems(0).Text = TextBox22.Text Then
ListView2.Items.Item(i11).SubItems(4).Text = Val(ListView2.Items.Item(i11).SubItems(4).Text) - Val(TextBox23.Text)
ListView2.Items.Item(i11).SubItems(5).Text = Val(ListView2.Items.Item(i11).SubItems(5).Text) - Val(TextBox88.Text)
Dim cm11 As New SqlCommand("update Table2 set LengthM=@LengthM,LengthY=@LengthY where ID=" & TextBox22.Text, Conn)
cm11.Parameters.AddWithValue("@LengthM", SqlDbType.Decimal).Value = ListView2.Items.Item(i11).SubItems(4).Text
cm11.Parameters.AddWithValue("@LengthY", SqlDbType.Decimal).Value = ListView2.Items.Item(i11).SubItems(5).Text
End If
Next
On Error Resume Next
For i111 As Integer = 0 To ListView2.Items.Count - 1
If ListView2.Items.Item(i111).SubItems(0).Text = TextBox24.Text Then
ListView2.Items.Item(i111).SubItems(4).Text = Val(ListView2.Items.Item(i111).SubItems(4).Text) - Val(TextBox25.Text)
ListView2.Items.Item(i111).SubItems(5).Text = Val(ListView2.Items.Item(i111).SubItems(5).Text) - Val(TextBox89.Text)
Dim cm111 As New SqlCommand("update Table2 set LengthM=@LengthM,LengthY=@LengthY where ID=" & TextBox24.Text, Conn)
cm111.Parameters.AddWithValue("@LengthM", SqlDbType.Decimal).Value = ListView2.Items.Item(i111).SubItems(4).Text
cm111.Parameters.AddWithValue("@LengthY", SqlDbType.Decimal).Value = ListView2.Items.Item(i111).SubItems(5).Text
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm111.ExecuteNonQuery()
cm111.Parameters.Clear()
cm111.Dispose()
Me.RefreshListView2()
Exit Sub
End If
Next
وهذا كود تعريفات امر التعديل
كود :
Dim cm As New SqlCommand("[color=#FF0000]update table1 set[/color] UserName=@UserName,MobileNumber=@MobileNumber,Date=@Date,Price=@Price,Rest=@Rest,Recipient=@Recipient,NameShop=@NameShop,PlaceShop=@PlaceShop,UserShop=@UserShop,Email=@Email,NumberDresses=@NumberDresses,ColorDress1=@ColorDress1,TypeCloth1=@TypeCloth1,TypeDesign1=@TypeDesign1,TypePocket1=@TypePocket1,IDCloth1=@IDCloth1,LengthM1=@LengthM1,LengthY1=@LengthY1,ColorDress2=@ColorDress2,TypeCloth2=@TypeCloth2,TypeDesign2=@TypeDesign2,TypePocket2=@TypePocket2,IDCloth2=@IDCloth2,LengthM2=@LengthM2,LengthY2=@LengthY2,ColorDress3=@ColorDress3,TypeCloth3=@TypeCloth3,TypeDesign3=@TypeDesign3,TypePocket3=@TypePocket3,IDCloth3=@IDCloth3,LengthM3=@LengthM3,LengthY3=@LengthY3,LengthDress=@LengthDress,DisplayKtf=@DisplayKtf,DisplayDress=@DisplayDress,LengthKmSadh=@LengthKmSadh,LengthKmKbk=@LengthKmKbk,DisplayKmSadh1=@DisplayKmSadh1,DisplayKmSadh2=@DisplayKmSadh2,DisplayKmSadh3=@DisplayKmSadh3,DisplayKmKbk1=@DisplayKmKbk1,DisplayKmKbk2=@DisplayKmKbk2,DisplayKmKbk3=@DisplayKmKbk3,RakbhKllab1=@RakbhKllab1,RakbhKllab2=@RakbhKllab2,RakbhSadh1=@RakbhSadh1,RakbhSadh2=@RakbhSadh2,DownDress1=@DownDress1,DownDress2=@DownDress2,LengthKbzor=@LengthKbzor,Other=@Other,Img1U1=@Img1U1,Img2U1=@Img2U1,Img3U1=@Img3U1,Img4U1=@Img4U1,Img1U2=@Img1U2,Img2U2=@Img2U2,Img3U2=@Img3U2,Img4U2=@Img4U2,Img1U3=@Img1U3,Img2U3=@Img2U3,Img3U3=@Img3U3,Img4U3=@Img4U3 where ID=@ID", Conn)
،، شكرا .