السلام عليكم
ممكن الخطا في الكود
Imports System.Data.OleDb
Public Class frmNew
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If txtName.Text = Nothing Then
MsgBox("يجب إدخال الاسم", MsgBoxStyle.Critical, "عذراً")
txtName.Focus()
Else
SaveData()
MsgBox("تم تخزين البيانات بنجاح", MsgBoxStyle.Information, "ألف مبروك")
txtName.Text = Nothing
txtName.Focus()
End If
End Sub
Private Sub SaveData()
Dim SaveDataSQl As String = "INSERT INTO TheTable (TheName,TheBirthDate,Old,Phone,Number,Note) VALUES(@TheName,@TheBirthDate,@Old,@Phone,@Number,@Note)"
Dim SaveDataCMD As New OleDbCommand
If Con.State = ConnectionState.Closed Then
' إذا كان الاتصال مقفل
Con.Open()
With SaveDataCMD
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SaveDataSQl
.Parameters.AddWithValue("TheName", txtName.Text)
.Parameters.AddWithValue("TheBirthDate", dtDate.Value.Date)
.Parameters.AddWithValue("Old", TextBox1.Text)
.Parameters.AddWithValue("Phone", TextBox2.Text)
.Parameters.AddWithValue("Number", TextBox3.Text)
.Parameters.AddWithValue("Note", TextBox4.Text)
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
Else
' الاتصال مفتوح مسبقاً
With SaveDataCMD
.Connection = Con
.CommandType = CommandType.Text
.CommandText = SaveDataSQl
.Parameters.AddWithValue("TheName", txtName.Text)
.Parameters.AddWithValue("TheBirthDate", dtDate.Value.Date)
.Parameters.AddWithValue("Old", TextBox1.Text)
.Parameters.AddWithValue("Phone", TextBox2.Text)
.Parameters.AddWithValue("Number", TextBox3.Text)
.Parameters.AddWithValue("Note", TextBox4.Text)
.ExecuteNonQuery()
.Dispose()
End With
Con.Close()
End If
frmMain.LoadData()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' تجهيز العنصر الخاص بعرض التاريخ
dtDate.Format = DateTimePickerFormat.Custom
dtDate.CustomFormat = "dd-MM-yyyy"
End Sub
Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
End Sub
End Class
