تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] تصحيح كود
#1
السلام عليكم
ممكن الخطا في الكود

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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
تم حل المشكلة
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم