16-08-17, 12:24 AM
(16-08-17, 12:04 AM)سعود كتب : ممكن ترفع مثال بسيط لرؤية الاكواد؟؟
شاكر لك ردك السريع اخوي سعود .... تفضل هذا كود الاضافه ..!
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
conn.Open()
Try
Dim cmdinsert As New OleDbCommand
cmdinsert.Connection = conn
cmdinsert.CommandText = "insert into tab values ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "','" + DateTimePicker1.Text + "','" + TextBox8.Text + "','" + TextBox9.Text + "','" + TextBox10.Text + "','" + TextBox7.Text + "')"
cmdinsert.ExecuteNonQuery()
MsgBox("تم الاضافه بنجاح")
Catch ex As Exception
MsgBox(ex.ToString)
End Try
conn.Close()
