03-06-15, 06:43 AM
لسه مش اتحدث برده
الكود داكل اهوة
لاوز اقفل وافتح عشان الاضافة تظهى
والكود الجديد اهوه
sqcomand.CommandText = "Insert Into t([a],[b],[c],[total],[datee],[timee]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & total.Text & "','" & dt & "','" & TimeOfDay & "')"
' If (Conn.State = ConnectionState.Open) Then Conn.Close()
Conn.Open()
'=========================
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "t")
'============================
sqcomand.ExecuteNonQuery()
Conn.Close()
'=======================================
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "t"
DataGridView1.Refresh()
الكود داكل اهوة
لاوز اقفل وافتح عشان الاضافة تظهى
PHP كود :
Dim sqcomand As New OleDb.OleDbCommand
sqcomand.Connection = Conn
sqcomand.CommandType = CommandType.Text
Label1.Text = 1
sqcomand.CommandText = "Insert Into t([a],[b],[c],[total],[datee],[timee]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & total.Text & "','" & dt & "','" & TimeOfDay & "')"
' If (Conn.State = ConnectionState.Open) Then Conn.Close()
Conn.Open()
sqcomand.ExecuteNonQuery()
Conn.Close()
'========================================
Timer1.Enabled = False
Timer2.Enabled = False
MsgBox("تم حفظ البيانات بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "تم الحفظ")
والكود الجديد اهوه
sqcomand.CommandText = "Insert Into t([a],[b],[c],[total],[datee],[timee]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & total.Text & "','" & dt & "','" & TimeOfDay & "')"
' If (Conn.State = ConnectionState.Open) Then Conn.Close()
Conn.Open()
'=========================
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "t")
'============================
sqcomand.ExecuteNonQuery()
Conn.Close()
'=======================================
DataGridView1.DataSource = DataSet1
DataGridView1.DataMember = "t"
DataGridView1.Refresh()
