تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] ازاى اعمل ربط بين زر الحفظ وقاعدة البانات
#1
Question 
كنت عايز اعرف ازاى اعمل ربط بين زر الحفظ وقاعدة البيانات

زى مثلا فى phonbook

كنت عايز كود زر حفظ المعلومات اللى هدخلها ويحفظها فى قاعدة البيانات

الاسم
رقم التليفون

حفظ ـــــــــــــــــــــــــــ عايز كود زر الحفظ
الرد }}}}
تم الشكر بواسطة:
#2
ياريت ضرورى الرد
الرد }}}}
تم الشكر بواسطة:
#3
انظر إلى المثال على الرابط التالي

http://vb4arb.com/vb/thread-1236.html
الرد }}}}
تم الشكر بواسطة: Sajad , سعود
#4
السلام عليكم ورحمة الله وبركاته

إذا كانت قاعدة البيانات سيكوال سيرفر (SQL Server Database)

كود :
Imports System.Data.SqlClient

Public Class Form1


    ' متغير نصي لتخزين نص الاتصال بقاعدة البيانات في السيرفر
    ' مثلا إذا كانت قاعدة البيانات اسمها Phones
    Dim DatabaseName As String = "Phones"
    Dim ConString As String = "Data Source=.\sqlexpress;Initial Catalog=" & DatabaseName & ";Integrated Security=True"

    ' إنشاء نسخة من كائن الاتصال
    Dim con As SqlConnection = New SqlConnection(ConString)


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' لتنفيذ دالة الحفظ
        SaveInfo()
    End Sub


    ' حفظ البيانات
    Private Sub SaveInfo()
        '  sqlcommand إنشاء نسخة من ال
        Dim cmd As New SqlCommand

        Try

            With cmd
                ' إسناد الاتصال للكوماند
                .Connection = con

                ' جملة إضافة المعلومات بقاعدة البيانات
                .CommandText = "Insert Into PhoneTable (PersonName, PersonPhoneNumber) Values (@1, @2)"

                ' تفريغ البارميتر
                .Parameters.Clear()

                '  إضافة البيانات للبارميتر حسب ترقيمها في جملة الإضافة
                .Parameters.AddWithValue("@1", txt_Name.Text.Trim)
                .Parameters.AddWithValue("@2", txt_Phone.Text.Trim)

                ' التحقق من إغلاق الاتصال بقاعدة البيانات قبل فتحه
                If con.State = ConnectionState.Open Then con.Close()

                ' فتح الاتصال بقاعدة البيانات
                con.Open()

                ' تنفيذ جملة الإضافة
                .ExecuteNonQuery()

                MsgBox("تم الحفظ بنجاح")

            End With

        Catch ex As SqlException

            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")

        Finally ' Finally تعني تنفيذ الأوامر اللي تحتها سواء حدث خطأ أو لم يحدث

            ' قتل الكوماند بعد الانتهاء من الحفظ
            cmd.Dispose()

            ' إغلاق الاتصال بقاعدة البيانات بعد التحقق من أنه ليس مغلقا بالفعل
            If con.State = ConnectionState.Open Then con.Close()
        End Try
    End Sub




End Class


إذا كانت قاعدة البيانات آكسس :

كود :
Imports System.Data.OleDb

Public Class Form2

    ' متغير نصي لتخزين نص الاتصال بقاعدة البيانات في السيرفر
    ' مثلا إذا كانت قاعدة البيانات اسمها Phones وموجودة بجانب الملف التنفيذي لبرنامجنا
    Dim DatabaseName As String = Application.StartupPath & "\Phones.mdb"
    Dim ConString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseName

    ' إنشاء نسخة من كائن الاتصال
    Dim con As OleDbConnection = New OleDbConnection(ConString)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' لتنفيذ دالة الحفظ
        SaveInfo()
    End Sub


    ' حفظ البيانات
    Private Sub SaveInfo()
        '  OleDbcommand إنشاء نسخة من ال
        Dim cmd As New OleDbCommand

        Try

            With cmd
                ' إسناد الاتصال للكوماند
                .Connection = con

                ' جملة إضافة المعلومات بقاعدة البيانات
                .CommandText = "Insert Into PhoneTable (PersonName, PersonPhoneNumber) Values (@1, @2)"

                ' تفريغ البارميتر
                .Parameters.Clear()

                '  إضافة البيانات للبارميتر حسب ترقيمها في جملة الإضافة
                .Parameters.AddWithValue("@1", txt_Name.Text.Trim)
                .Parameters.AddWithValue("@2", txt_Phone.Text.Trim)

                ' التحقق من إغلاق الاتصال بقاعدة البيانات قبل فتحه
                If con.State = ConnectionState.Open Then con.Close()

                ' فتح الاتصال بقاعدة البيانات
                con.Open()

                ' تنفيذ جملة الإضافة
                .ExecuteNonQuery()

                MsgBox("تم الحفظ بنجاح")

            End With

        Catch ex As OleDbException

            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")

        Finally ' Finally تعني تنفيذ الأوامر اللي تحتها سواء حدث خطأ أو لم يحدث

            ' قتل الكوماند بعد الانتهاء من الحفظ
            cmd.Dispose()

            ' إغلاق الاتصال بقاعدة البيانات بعد التحقق من أنه ليس مغلقا بالفعل
            If con.State = ConnectionState.Open Then con.Close()
        End Try
    End Sub

End Class

والله أعلم

***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة: Sajad , سعود , Easy4ever
#5
شكرا لكم جميعا اعضاء افضل منتدى تصفحته
انا لسه مبتدا فى مجال البرمجة وانا سعيد بوجودى بينكم
الرد }}}}
تم الشكر بواسطة:
#6
(20-02-14, 07:17 PM)saad_aone كتب :
شكرا لكم جميعا اعضاء افضل منتدى تصفحته
انا لسه مبتدا فى مجال البرمجة وانا سعيد بوجودى بينكم

موفق إنشاء الله

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 7 368 24-07-16, 06:26 PM
آخر رد: سعود
  ازاى بعد اما اعمل سكان بالباركود ويتسجل فى تكست بوكس معين يتنقل اوتوماتيك لتكست اخر araxis 1 163 07-07-16, 12:11 AM
آخر رد: الوادي
  ازاى اظهر مسج بوكس بدل رسالة ال duplicate فى الاكسس araxis 2 206 09-06-16, 04:07 PM
آخر رد: hassan
  اريد اعمل قاعدة بيانات لخزن فيديوهات ابراهيم كركوكي 6 210 05-06-16, 02:34 AM
آخر رد: khodor1985
  اريد اعمل برنامج يخزن اكواد كيف ابراهيم كركوكي 15 423 03-06-16, 11:18 PM
آخر رد: سعود
  تكرار البيانات داخل قاعدة البيانات اثناء الحفظ Medo555 1 407 23-12-15, 04:08 AM
آخر رد: Adrees
  كود التأكد قبل الحفظ sameerah 3 315 12-12-15, 08:32 PM
آخر رد: sameerah
  تعديل كود الحفظ hglogtd 6 363 06-12-15, 11:51 AM
آخر رد: hglogtd
  كيف اعمل اضافة في جدول وتكون الإضافة في الجدول الآخر تلقائي مجروحه 4 708 22-08-15, 02:03 PM
آخر رد: مجروحه
  الحفظ والحذف في قاعدة البيانات aftfm 1 572 22-05-14, 06:32 AM
آخر رد: aftfm

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


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