19-11-19, 11:55 PM
سلام عليكم انا مبرمجه مبتداء في برمجه جامعتي طالبه مني مشروع دراسة وامتحانات وانا كتبت كود اضافة بس بدي تعديل عليه بدي اعرف هل بيانات موجودة قبل كتابه اسم ام لا وعرض البانات في datagridview بعد اضافة ارجو مساعد
هذا كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
conn.Open()
Try
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "insert into aa values ('" + Txtid.Text + "','" + Txt_no.Text + "','" + Txtname.Text + "','" + ComboBox1.Text + "','" + DateTimePicker1.Value + "','" + Txtst.Text + "','" + Txtpho.Text + "')"
cmdinsert.ExecuteNonQuery()
MsgBox("تم إضافة الطالب")
Txtid.Clear()
Txtname.Clear()
Txt_no.Clear()
Txtst.Clear()
DateTimePicker1.Value = Now
Txtpho.Clear()
MsgBox("بيانات الطالب موجودة")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
conn.Close()
End Sub
هذا كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
conn.Open()
Try
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "insert into aa values ('" + Txtid.Text + "','" + Txt_no.Text + "','" + Txtname.Text + "','" + ComboBox1.Text + "','" + DateTimePicker1.Value + "','" + Txtst.Text + "','" + Txtpho.Text + "')"
cmdinsert.ExecuteNonQuery()
MsgBox("تم إضافة الطالب")
Txtid.Clear()
Txtname.Clear()
Txt_no.Clear()
Txtst.Clear()
DateTimePicker1.Value = Now
Txtpho.Clear()
MsgBox("بيانات الطالب موجودة")
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
conn.Close()
End Sub