[سعود]

افكر احذف الالتميت واثبت الاكسبرس واشوف كيف الشغل فيه

[bumb]

لا تحذفه لأنه نفس الشي الفرق في عمل القروبات وبعض الادوات المكمله

[bumb]

الاكسبرس ميزته مجاني وهو شخصي بالمره مافيه مشاركة مشاريع

[سعود]

حذفت الالتميت وثبت الاكسبرس وشغلت المثال واشتغل...

[bumb]

انا سويت مشروع جديد ونسخت مكونات مثالك الى المشروع الجديد بس الكود طويل وحاولت استخلص منه ما يخص التكست بوكس1 ولكن وجدت صعوبه هل من الممكن ان تستخلص لي الكود الخاص بال تكست بوكس1

يعني تستبعد من المثال التكست بوكس 2 والداتا قريد والزرار

تحياتي لك

[سعود]

إقتباس :يعني تستبعد من المثال التكست بوكس 2 والداتا قريد والزرار

طيب ابشر
ان ماسبقني احد اجهز المثال وانسخ الكود باذن الله

[bumb]

(14-03-14, 07:49 PM)سعود كتب :

إقتباس :يعني تستبعد من المثال التكست بوكس 2 والداتا قريد والزرار

طيب ابشر
ان ماسبقني احد اجهز المثال وانسخ الكود باذن الله

جعل عمرك طويل اتعبتك معي اليوم

[سعود]

شوف اخوي عدلت على المثال بحيث نستخدم الزر Enter للتحقق والادخال ايضا حذفت مربع النص الاخر والداتاقريد

اتبع الخطوات التالية:
انشي فورم جديد واكتب باعلاه(اعلى اطار محرر الكود) الاستدعاء التالي:

كود :

Imports System.Data.OleDb

ثم في منطقة التصريحات العامة (ليس ضمن اي روتين)

كود :

Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
Dim con As New OleDbConnection(str)

ثم اكتب دالة فحص هل الاسم موجود

كود :

Function isfound(ByVal t As String) As Boolean
        Dim sql As New OleDbCommand("select count(tn) from tb where tn=@tn", con)
        sql.Parameters.AddWithValue("@tn", t)

        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        If sql.ExecuteScalar > 0 Then
            Return True
        Else
            Return False
        End If

        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Function

ثم اكتب دالة اضافة اسم جديد

كود :

Function insert(ByVal t As String) As Boolean
        If isfound(t) Then
            Return True
        Else
            Dim se As New OleDbCommand("insert into tb(tn) values(@tn)", con)
            se.Parameters.AddWithValue("@tn", t)


            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            Try
                se.ExecuteNonQuery()
                Return False
            Catch ex As Exception
                Return True
            End Try


        End If

        If con.State = ConnectionState.Open Then
            con.Close()
        End If

    End Function

ثم اضف مربع نص وليكن اسمه Textbox1
وضمن حدث TextBox1_KeyDown اكتب:

كود :

If e.KeyData = Keys.Enter Then
            If TextBox1.Text.Trim.Replace(" ", "") = "" Then
                MsgBox("يجب كتابة اسم في مربع النص الخاص بالاسم ", MsgBoxStyle.Critical, "")
                TextBox1.Focus()
                Exit Sub
            End If

            If insert(TextBox1.Text) = False Then
                TextBox1.Focus()
                TextBox1.BackColor = Color.White
                MsgBox("تمت الاضافة بنجاح", MsgBoxStyle.Information, "")
                TextBox1.Clear()
            Else
                TextBox1.BackColor = Color.Red
                TextBox1.Clear()
                MsgBox("الاسم محجوز , فضلا جرب اسما آخر ", MsgBoxStyle.Critical, "")
                TextBox1.Focus()
                Exit Sub

            End If
        End If

اخشى ان الدوال سببت لك اشكال لكن استخدامها فيها متعة لاحدود لها وعن تجربة.

[سعود]

(14-03-14, 08:10 PM)bumb كتب :

(14-03-14, 07:49 PM)سعود كتب :

إقتباس :يعني تستبعد من المثال التكست بوكس 2 والداتا قريد والزرار

طيب ابشر
ان ماسبقني احد اجهز المثال وانسخ الكود باذن الله

جعل عمرك طويل اتعبتك معي اليوم

على خير وطاعة الله واياك اخي الكريم

[bumb]

انا اتعلم من خلال عمل مشاريع
حاولت التعلم من خلال النت لكن عيب التعلم من خلال النت انه يركز على كيف تنشئ داله او متغير ولكن مايعلمك طرق استخدامها

على العموم انا اشكرك على جهودك معي وابيك انت وربعك تصبرون على اسئلتي