02-04-13, 01:13 AM
(آخر تعديل لهذه المشاركة : 02-04-13, 09:16 PM {2} بواسطة ahmed mohamed soliman.)
السلام عليكم ورحمة الله وبركاته
اخواني انا عندي كود استخراج بيانات من قاعدة بيانات SQL وهو يستخرج ،، لكن لمره وحده فقط ،،،
يعني استخرج المره الاولى لا يظهر خطا وعند استخراجي ب ID ثاني تظهر مشكلة ،، انا حاوت اتآكد انه تم قفل الامر ،، ولاحظت انه يقفل الامر السابق ،،
لكن المشكلة هي فالامر الاول للاستخراج لا يقفل ،،، هذا كود الاستخراج
هذه صورة المشكلة http://vb4arb.com/vb/uploaded/521_01364922855.png
اخواني انا عندي كود استخراج بيانات من قاعدة بيانات SQL وهو يستخرج ،، لكن لمره وحده فقط ،،،
يعني استخرج المره الاولى لا يظهر خطا وعند استخراجي ب ID ثاني تظهر مشكلة ،، انا حاوت اتآكد انه تم قفل الامر ،، ولاحظت انه يقفل الامر السابق ،،
لكن المشكلة هي فالامر الاول للاستخراج لا يقفل ،،، هذا كود الاستخراج
كود :
Dim cm As New SqlDataAdapter("select * from Table1 where ID=" & Val(ListView1.SelectedItems(0).Text) & "", Conn)
Dim ds As New DataSet
ds.Clear()
TextBox1.[color=#FF0000]DataBindings.Clear[/color]()
TextBox2.DataBindings.Clear()
TextBox7.DataBindings.Clear()
DateTimePicker8.DataBindings.Clear()
TextBox45.DataBindings.Clear()
TextBox46.DataBindings.Clear()
TextBox47.DataBindings.Clear()
TextBox4.DataBindings.Clear()
TextBox5.DataBindings.Clear()
TextBox6.DataBindings.Clear()
TextBox3.DataBindings.Clear()
TextBox71.DataBindings.Clear()
ComboBox1.DataBindings.Clear()
ComboBox4.DataBindings.Clear()
TextBox20.DataBindings.Clear()
TextBox21.DataBindings.Clear()
TextBox87.DataBindings.Clear()
ComboBox2.DataBindings.Clear()
ComboBox5.DataBindings.Clear()
TextBox22.DataBindings.Clear()
TextBox23.DataBindings.Clear()
TextBox88.DataBindings.Clear()
ComboBox3.DataBindings.Clear()
ComboBox6.DataBindings.Clear()
TextBox20.DataBindings.Clear()
TextBox21.DataBindings.Clear()
TextBox87.DataBindings.Clear()
TextBox22.DataBindings.Clear()
TextBox23.DataBindings.Clear()
TextBox88.DataBindings.Clear()
TextBox24.DataBindings.Clear()
TextBox25.DataBindings.Clear()
TextBox89.DataBindings.Clear()
TextBox24.DataBindings.Clear()
TextBox25.DataBindings.Clear()
TextBox89.DataBindings.Clear()
TextBox26.DataBindings.Clear()
TextBox27.DataBindings.Clear()
TextBox28.DataBindings.Clear()
TextBox29.DataBindings.Clear()
TextBox30.DataBindings.Clear()
TextBox37.DataBindings.Clear()
TextBox39.DataBindings.Clear()
TextBox40.DataBindings.Clear()
TextBox41.DataBindings.Clear()
TextBox42.DataBindings.Clear()
TextBox43.DataBindings.Clear()
TextBox38.DataBindings.Clear()
PictureBox2.DataBindings.Clear()
PictureBox3.DataBindings.Clear()
PictureBox4.DataBindings.Clear()
PictureBox5.DataBindings.Clear()
PictureBox6.DataBindings.Clear()
PictureBox7.DataBindings.Clear()
PictureBox8.DataBindings.Clear()
PictureBox9.DataBindings.Clear()
PictureBox10.DataBindings.Clear()
PictureBox11.DataBindings.Clear()
PictureBox12.DataBindings.Clear()
PictureBox13.DataBindings.Clear()
cm.Fill(ds, "Table1")
TextBox1.DataBindings.Add("text", ds, "Table1.UserName")
TextBox2.DataBindings.Add("text", ds, "Table1.MobileNumber")
TextBox7.DataBindings.Add("text", ds, "Table1.Date", True)
DateTimePicker8.DataBindings.Add("text", ds, "Table1.DateGiveDress", True)
TextBox45.DataBindings.Add("text", ds, "Table1.Price")
TextBox46.DataBindings.Add("text", ds, "Table1.Rest")
TextBox47.DataBindings.Add("text", ds, "Table1.Recipient")
TextBox4.DataBindings.Add("text", ds, "Table1.NameShop")
TextBox5.DataBindings.Add("text", ds, "Table1.PlaceShop")
TextBox6.DataBindings.Add("text", ds, "Table1.UserShop")
TextBox3.DataBindings.Add("text", ds, "Table1.Email")
TextBox71.DataBindings.Add("text", ds, "Table1.NumberDresses")
ComboBox1.DataBindings.Add("text", ds, "Table1.TypeDesign1")
ComboBox4.DataBindings.Add("text", ds, "Table1.TypePocket1")
TextBox20.DataBindings.Add("text", ds, "Table1.IDCloth1")
TextBox21.DataBindings.Add("text", ds, "Table1.LengthM1")
TextBox87.DataBindings.Add("text", ds, "Table1.LengthY1")
ComboBox2.DataBindings.Add("text", ds, "Table1.TypeDesign2")
ComboBox5.DataBindings.Add("text", ds, "Table1.TypePocket2")
TextBox22.DataBindings.Add("text", ds, "Table1.IDCloth2")
TextBox23.DataBindings.Add("text", ds, "Table1.LengthM2")
TextBox88.DataBindings.Add("text", ds, "Table1.LengthY2")
ComboBox3.DataBindings.Add("text", ds, "Table1.TypeDesign3")
ComboBox6.DataBindings.Add("text", ds, "Table1.TypePocket3")
TextBox24.DataBindings.Add("text", ds, "Table1.IDCloth3")
TextBox25.DataBindings.Add("text", ds, "Table1.LengthM3")
TextBox89.DataBindings.Add("text", ds, "Table1.LengthY3")
TextBox26.DataBindings.Add("text", ds, "Table1.LengthDress")
TextBox27.DataBindings.Add("text", ds, "Table1.DisplayKtf")
TextBox28.DataBindings.Add("text", ds, "Table1.DisplayDress")
TextBox29.DataBindings.Add("text", ds, "Table1.LengthKmSadh")
TextBox30.DataBindings.Add("text", ds, "Table1.LengthKmKbk")
TextBox37.DataBindings.Add("text", ds, "Table1.RakbhKllab1")
TextBox39.DataBindings.Add("text", ds, "Table1.RakbhKllab2")
TextBox40.DataBindings.Add("text", ds, "Table1.RakbhSadh1")
TextBox41.DataBindings.Add("text", ds, "Table1.RakbhSadh2")
TextBox42.DataBindings.Add("text", ds, "Table1.DownDress1")
TextBox43.DataBindings.Add("text", ds, "Table1.DownDress2")
TextBox38.DataBindings.Add("text", ds, "Table1.Other")
PictureBox2.DataBindings.Add("image", ds, "Table1.Img1U1", True)
PictureBox3.DataBindings.Add("image", ds, "Table1.Img2U1", True)
PictureBox4.DataBindings.Add("image", ds, "Table1.Img3U1", True)
PictureBox5.DataBindings.Add("image", ds, "Table1.Img4U1", True)
'
PictureBox6.DataBindings.Add("image", ds, "Table1.Img1U2", True)
PictureBox7.DataBindings.Add("image", ds, "Table1.Img2U2", True)
PictureBox8.DataBindings.Add("image", ds, "Table1.Img3U2", True)
PictureBox9.DataBindings.Add("image", ds, "Table1.Img4U2", True)
'
PictureBox10.DataBindings.Add("image", ds, "Table1.Img1U3", True)
PictureBox11.DataBindings.Add("image", ds, "Table1.Img2U3", True)
PictureBox12.DataBindings.Add("image", ds, "Table1.Img3U3", True)
PictureBox13.DataBindings.Add("image", ds, "Table1.Img4U3", True)
TextBox20.ReadOnly = True
TextBox21.ReadOnly = True
TextBox87.ReadOnly = True
'
TextBox22.ReadOnly = True
TextBox23.ReadOnly = True
TextBox88.ReadOnly = True
'
TextBox24.ReadOnly = True
TextBox25.ReadOnly = True
TextBox89.ReadOnly = True
[COLOR="#FF0000"] cm.Dispose()
Conn.Dispose()
ds.Dispose()
DataBindings.Clear()
[/COLOR]
هذه صورة المشكلة http://vb4arb.com/vb/uploaded/521_01364922855.png