17-04-18, 01:02 AM
If (String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso String.IsNullOrWhiteSpace(TextBox2.Text) AndAlso String.IsNullOrWhiteSpace(TextBox3.Text)) Then
MessageBox.Show("أرجو ان تقوم بتعبية بعض البيانات ")
Return
End If
Dim cmd As New OleDbCommand("insert into moka1 (maxq,max,sill,DATA) values(' " & TextBox1.Text & "','" & TextBox2.Text & " ',' " & TextBox3.Text & "' , # " & DateTimePicker1.Value.ToString("yyyy / MM / dd") & " #)")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم الادراج بنجاح")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty
MessageBox.Show("أرجو ان تقوم بتعبية بعض البيانات ")
Return
End If
Dim cmd As New OleDbCommand("insert into moka1 (maxq,max,sill,DATA) values(' " & TextBox1.Text & "','" & TextBox2.Text & " ',' " & TextBox3.Text & "' , # " & DateTimePicker1.Value.ToString("yyyy / MM / dd") & " #)")
cmd.Connection = con
con.Open()
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show("تم الادراج بنجاح")
TextBox1.Text = String.Empty
TextBox2.Text = String.Empty
TextBox3.Text = String.Empty