[RaggiTech]

تابع

سنتحدث الأن عن أماور الإضافة و الحذف و تحديث البيانات المدخلة سابقا و كل منها سأضعه في رد منفصل لزيادة الفهم

قبل البدء أريد من الجميع تغيير الحقل التالي في قاعدة البيانات

Number إلى Phone_Number

عملية الإضافة :

إن مبدأ الإضافة هو Insert Into أي نقوم بإدخال قيمة محددة في أحد حقول جدول ما في قاعدة بيانات و كوده لبرنامجنا هو

كود :

Try
Dim SavInto As New OleDb.OleDbCommand
Dim ConStr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\Database.mdb"
Dim Conn As New OleDbConnection(ConStr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "INSERT INTO Table1(Name,Phone_Number,Address,Mobile)" & _
"values ('" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "') "
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
　
Catch ex As Exception
Exit Sub
End Try
Dim frm As New Form1
Me.Hide()
frm.Show()

الكود عبارة عن عملية اتصال بسيطة جدا و لكننا عرفنا متغير حفظ السجلات على أنه نص سواء كتابة أو أرقام

بالنسبة للـ

كود :

[color=#000000][COLOR=#0000bb]SavInto[/color][color=#007700].[/color][color=#0000bb]CommandText [/color][color=#007700]= [/color][color=#dd0000]"INSERT INTO Table1(Name,Phone_Number,Address,Mobile)" [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#dd0000]"values ('" [/color][color=#007700]& [/color][color=#0000bb]TextBox4[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"','" [/color][color=#007700]& [/color][color=#0000bb]TextBox5[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"','" [/color][color=#007700]& [/color][color=#0000bb]TextBox6[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][color=#dd0000]"','" [/color][color=#007700]& [/color][color=#0000bb]TextBox7[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][COLOR=#dd0000]"') "  
[/COLOR][color=#0000bb][/color][/COLOR]

هذا هو الكود الذي حدثتكم عنه ما بين القوسين في البداية هي اسماء جداول القاعدة أما القوسين في الاسفل هي مربعات النص كل مربع يرافق أحد الحقول بالترتيب أي الحقل الأول هو الـ Name يقابله مربع النص TextBox4 موضوع سهل صح ؟؟

كود :

[color=#000000][COLOR=#0000bb]Dim frm [/color][color=#007700]As New [/color][COLOR=#0000bb]Form1
Me[/COLOR][color=#007700].[/color][color=#0000bb]Hide[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]frm[/color][color=#007700].[/color][color=#0000bb]Show[/color][COLOR=#007700]()  
[/COLOR][color=#0000bb][/color][/COLOR]

إن مشكلة هذه الطريقة أنها تحتاج إلى إعادة تشغيل البرنامج من جديد لكي تظهر القيم الجديدة و هنا قمنا بإعادة تحميل البرنامج لكي تظهر القيم الجديدة

يتبع في الرد التالي عن عملية الحذف