[كود] تصحيح كود - نسخة قابلة للطباعة

[كود] تصحيح كود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [كود] تصحيح كود (/showthread.php?tid=31789)

تصحيح كود - AbdoDabak - 18-10-19

السلام عليكم

ممكن الخطا في الكود

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

RE: تصحيح كود - AbdoDabak - 18-10-19

تم حل المشكلة