30-07-18, 04:33 AM
السلام عليكم ورحمه الله وبركاته
حياكم الله عزوجل
استخدم هذا الكود اولا اقوم بالبحث عن رقم ID اذا وجده يذهب لجزء التحديث
واذا لم يجده يضفيه كسجل جديد
المشكله ان يحدث تعليق حوالي 3 ثواني حتي يتم التنفيذ لكن التنفيذ سليم فقط اريد ان يكون اسرع او لا يحدث تعليق
الكود المستخدم
اولا البحث عن ال id موجود ام لا
كود التحديث
كود الاضافه
حياكم الله عزوجل
استخدم هذا الكود اولا اقوم بالبحث عن رقم ID اذا وجده يذهب لجزء التحديث
واذا لم يجده يضفيه كسجل جديد
المشكله ان يحدث تعليق حوالي 3 ثواني حتي يتم التنفيذ لكن التنفيذ سليم فقط اريد ان يكون اسرع او لا يحدث تعليق
الكود المستخدم
اولا البحث عن ال id موجود ام لا
PHP كود :
Dim search_command As New MySqlCommand("SELECT * FROM `student` WHERE `Id` = @id", connection)
search_command.Parameters.Add("@id", MySqlDbType.Int64).Value = TextBox1.Text
Dim adapter As New MySqlDataAdapter(search_command)
Dim table As New DataTable()
Try
adapter.Fill(table)
If table.Rows.Count > 0 Then
goto Updatesub
Else
goto Savesub
End If
Catch ex As Exception
MessageBox.Show("ERROR")
End Try
PHP كود :
Updatesub:
Private Sub ButtonInsert_Click(sender As Object, e As EventArgs) Handles ButtonInsert.Click
Dim insert_command As New MySqlCommand("INSERT INTO `student`(`FullName`, `Address`, `BirthDate`) VALUES (@fln,@adds,@brd)", connection)
insert_command.Parameters.Add("@fln", MySqlDbType.VarChar).Value = TextBox2.Text
insert_command.Parameters.Add("@adds", MySqlDbType.VarChar).Value = TextBox3.Text
insert_command.Parameters.Add("@brd", MySqlDbType.Date).Value = DateTimePicker1.Value
If command.ExecuteNonQuery() = 1 Then
MessageBox.Show("Data Inserted")
Else
MessageBox.Show("Data NOT Inserted")
End If
End Sub
PHP كود :
Savesub:
Dim update_command As New MySqlCommand("UPDATE `student` SET `FullName`=@fln,`Address`=@adds,`BirthDate`=@brd WHERE `Id` = @id", connection)
update_command.Parameters.Add("@id", MySqlDbType.Int64).Value = TextBox1.Text
update_command.Parameters.Add("@fln", MySqlDbType.VarChar).Value = TextBox2.Text
update_command.Parameters.Add("@adds", MySqlDbType.VarChar).Value = TextBox3.Text
update_command.Parameters.Add("@brd", MySqlDbType.Date).Value = DateTimePicker1.Value
If command.ExecuteNonQuery() = 1 Then
MessageBox.Show("Data Updated")
Else
MessageBox.Show("Data NOT Updated")
End If
End Sub