24-08-13, 03:06 PM
(آخر تعديل لهذه المشاركة : 29-08-13, 04:22 PM {2} بواسطة Omar Mekkawy.)
السلام عليكم ورحمة الله وبركاته
اخواني اعضاء منتدى فيجوال بيسك ارجوا ان تساعدوني في حل هذه المشكله اترككم مع الصوره :
[ATTACH=CONFIG]3877[/ATTACH]
او من هذا الرابط اذا لم تكن الصورة واضحه
http://im41.gulfup.com/qqQJD.png
هذه هو كود الحفظ ارجوا التعديل عليه :
هذا الكود في حدث اللود فورم ارجوا التعديل عليه لعرض عناصر اللست بوكس
اخواني اعضاء منتدى فيجوال بيسك ارجوا ان تساعدوني في حل هذه المشكله اترككم مع الصوره :
[ATTACH=CONFIG]3877[/ATTACH]
او من هذا الرابط اذا لم تكن الصورة واضحه
http://im41.gulfup.com/qqQJD.png
هذه هو كود الحفظ ارجوا التعديل عليه :
PHP كود :
Private Sub btn_save_Click(sender As Object, e As EventArgs) Handles btn_save.Click
Try
saveinto.Connection = con
saveinto.CommandType = CommandType.Text
saveinto.CommandText = " insert into table1(name,units)" & "values ('" & txtname.Text & _
"', '" & lst_add.Sorted & "')"
con.Open()
saveinto.ExecuteNonQuery()
con.Close()
MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information, "Save Operation")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "خطاء في عملية الحفظ")
End Try
updatedataset()
End Sub
هذا الكود في حدث اللود فورم ارجوا التعديل عليه لعرض عناصر اللست بوكس
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
con.Open()
adpter.Fill(ds, "table1")
con.Close()
txtshowname.DataBindings.Add("text", ds, "table1.name")
lst_show.DataBindings.Add("text", ds, "table1.units")
DataGridView1.DataSource = ds
DataGridView1.DataMember = "table1"
DataGridView1.AllowUserToAddRows = False
End Sub