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

اريد كود للتحقق من ان السجل موجود ام لا عند الكتابه في تكست بوكس


ودمتم
الرد }}}
تم الشكر بواسطة:
#2



المثال البسيط مرفق



الملفات المرفقة
.zip   bumb.zip (الحجم : 42.26 ك ب / التحميلات : 129)
الرد }}}
تم الشكر بواسطة:
#3
وهذا كلاس الفورم بشكل كامل
استخدمت دالة تلافيا لتكرار الكود في حال احببت وضعه باكثر من مكان
كود :
Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Sub gd()
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select tn from tb", con)
        ds.Clear()
        d.DataSource = Nothing

        da.Fill(ds, "tb")

        d.DataSource = ds
        d.DataMember = "tb"
        If con.State = ConnectionState.Open Then
            con.Close()
        End If

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.m = Me.Location
        My.Settings.Save()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.m
        gd()
    End Sub
    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
            ' MsgBox("الاسم موجود", MsgBoxStyle.Critical, "")
            Return True
        Else
            Return False
        End If
        gd()
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text.Trim.Replace(" ", "").Length < 2 Then Exit Sub
        If insert(TextBox1.Text) Then
            MsgBox("الاسم موجود", MsgBoxStyle.Critical, "")
        Else
            MsgBox("تم الحفظ", MsgBoxStyle.Information, "")
        End If
    End Sub
    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
        gd()
        If con.State = ConnectionState.Open Then
            con.Close()
        End If

    End Function
    
End Class
الرد }}}
تم الشكر بواسطة:
#4
اخي سعود جزاك الله خير

انا عندي مشكله تواجهني دائماً وهي عندما افتح المرفق لا تظهر الكائنات في السلوشن يظهر فقط اسم المشروع

انا الذي اريده هو عندما اضغط انتر بعد الكتابه للإنتقال الى الصندوق التالي تظهر الرساله اذا كان ماكتبته موجود في نفس الحقل في قاعدة البيانات واذا لم يكن موجود تتواصل عملية ادخال البيانات لكي لا يتم تعبئة البيانات وبالتالي يكتشف ان القيمه موجوده فيذهب تعب مدخل البيانات سدى في تعبئته لكافة الحقول , المطلوب هو الاتصال بقاعدة البيانات والبحث عن القيمه داخل الحقل والموجوده في التيكت بوكس فاذا كانت موجوده تظهر الرساله ويتم قطع الاتصال ويتم مسح القيمه من التكست بوكس اما اذا كانت غير موجوده يتم قطع الاتصال لكي تتم باقي عمليات الإدخال
لا اريد الحفظ في هذه المرحله بل التحقق فقط اما عملية الحفظ فهي موجوده في زر الحفظ

تقبل تحياتي
الرد }}}
تم الشكر بواسطة:
#5
الامر بسيط جدا
اولا رتب الاندكس للادوات بحيث يكون الاول هو الاهم في التحرير.
ثم عند حدث LostFocus اكتب كود التحقق مثلا (لتسريع الامرSmile)
اريد التحقق ان مربع النص (Textbox1)ليس فارغا
في حدث TextBox1_LostFocus نكتب الكود التالي:
كود :
If TextBox1.Text.Trim.Replace(" ", "") = "" Then
            MsgBox("يجب كتابة شيء في مربع النص ", MsgBoxStyle.Critical, "")
            TextBox1.Focus()
            Exit Sub
        End If
لو حبيت مثال ممكن اعهدل على الاول واضيف مربع نص آخر واغير حدث التحقق.
الرد }}}
تم الشكر بواسطة:
#6
إقتباس :انا عندي مشكله تواجهني دائماً وهي عندما افتح المرفق لا تظهر الكائنات في السلوشن يظهر فقط اسم المشروع
ممكن تصور الجزء الخاص بالمشكلة لان الاسباب كثيرة.
الرد }}}
تم الشكر بواسطة:
#7
ممكن تشوف الرابط التالي بخصوص (لو ان المشكلة هي اختلاف الاصدار):
كيفية تشغيل مشاريع نسخة احدث بنسخة اقدم من برامج فيجوال استوديو.
الرد }}}
تم الشكر بواسطة:
#8
المثال بعد التعديل مرفق
اضطريت لعدة حيل لانجاح الفكرة قد توجد طرق افضل لعل احدا يدلنا بها





الكلاس بعد التعديل

كود :
Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Sub gd()
        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select tn from tb", con)
        ds.Clear()
        d.DataSource = Nothing

        da.Fill(ds, "tb")

        d.DataSource = ds
        d.DataMember = "tb"
        If con.State = ConnectionState.Open Then
            con.Close()
        End If

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.m = Me.Location
        My.Settings.Save()
        End
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Location = My.Settings.m
        gd()
    End Sub
    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
            ' MsgBox("الاسم موجود", MsgBoxStyle.Critical, "")
            Return True
        Else
            Return False
        End If
        gd()
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        For Each tt In Me.Controls
            If TypeOf tt Is TextBox Then
                If tt.text.Trim.Replace(" ", "") = "" Then
                    tt.backcolor = Color.Red
                    Exit Sub
                End If
            End If
        Next

        If TextBox1.Text.Trim.Replace(" ", "").Length < 2 Then Exit Sub





        If insert(TextBox1.Text, Val(TextBox2.Text)) Then
            MsgBox("الاسم موجود", MsgBoxStyle.Critical, "")
        Else
            gd()
            MsgBox("تم الحفظ", MsgBoxStyle.Information, "")
        End If
    End Sub
    Function insert(ByVal t As String, ByVal m As Integer) As Boolean
        If isfound(t) Then
            Return True
        Else
            Dim se As New OleDbCommand("insert into tb(tn,mo) values(@tn,@mo)", con)
            se.Parameters.AddWithValue("@tn", t)
            se.Parameters.AddWithValue("@mo", Val(m))

            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
    Dim t_allow As Boolean = False
    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
        If TextBox1.Text.Trim.Replace(" ", "") = "" Then
            MsgBox("يجب كتابة اسم في مربع النص الخاص بالاسم ", MsgBoxStyle.Critical, "")
            TextBox1.Focus()
            Exit Sub
        End If

        If isfound(TextBox1.Text) Then
            t_allow = False
            TextBox1.BackColor = Color.Red
            MsgBox("الاسم محجوز , فضلا جرب اسما آخر ", MsgBoxStyle.Critical, "")
            TextBox1.Focus()
            Exit Sub
        Else
            TextBox1.BackColor = Color.White
            t_allow = True
            TextBox2.Focus()
        End If

    End Sub
    
  

    Private Sub TextBox2_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.LostFocus

        If TextBox1.Text.Trim.Replace(" ", "") = "" Then Exit Sub
        If t_allow = False Then Exit Sub
        If TextBox2.Text.Trim.Replace(" ", "") = "" Then
            MsgBox("يجب كتابة رقم في مربع النص الخاص بالرقم ", MsgBoxStyle.Critical, "")
            TextBox2.Focus()
            Exit Sub
        End If

    End Sub

  
  
  
End Class




الملفات المرفقة
.zip   bumb.zip (الحجم : 44.05 ك ب / التحميلات : 109)
الرد }}}
تم الشكر بواسطة:
#9
الاخ سعود انا اريد ان اتحقق من القيمه وليس ان ان اتحقق من كونه فارغاً ام


انا الذي اريده هو عندما اضغط انتر بعد الكتابه للإنتقال الى الصندوق التالي تظهر الرساله اذا كان ماكتبته موجود في نفس الحقل في قاعدة البيانات واذا لم يكن موجود تتواصل عملية ادخال البيانات لكي لا يتم تعبئة البيانات وبالتالي يكتشف ان القيمه موجوده فيذهب تعب مدخل البيانات سدى في تعبئته لكافة الحقول , المطلوب هو الاتصال بقاعدة البيانات والبحث عن القيمه داخل الحقل والموجوده في التيكت بوكس فاذا كانت موجوده تظهر الرساله ويتم قطع الاتصال ويتم مسح القيمه من التكست بوكس اما اذا كانت غير موجوده يتم قطع الاتصال لكي تتم باقي عمليات الإدخال
لا اريد الحفظ في هذه المرحله بل التحقق فقط اما عملية الحفظ فهي موجوده في زر الحفظ


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#10
اخي الكريم المطلوب موجود وزودSmile ومثل مايقولون زيادة الخير خيرين
اضفت تحقق من محتوى مربع النص والانتقال يكون بزر تاب Tab وليس زر الادخال Enter والتعديل بالمثال بسيط جداSmile
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  التحقق من خلال محتوى خلية عن طريق textbox صالح عبدالله 2 222 24-01-24, 12:54 PM
آخر رد: صالح عبدالله
  التحقق من معطيات قبل تشغيل البرنامج ابو محمد محمد محمد 3 509 30-04-23, 11:03 PM
آخر رد: عبدالله الدوسري
  [مثال] كيفيه التحقق من البريد الالكتروني حسن الجلب 7 971 05-08-22, 11:36 PM
آخر رد: سعود
  [سؤال] كود التحقق من لغه الادخال فيجوال بيسك حسن الجلب 3 770 22-07-22, 09:13 PM
آخر رد: حسن الجلب
  التحقق من تنفيذ عمليتان في نفس الوقت أو إلغائهما معتز حسن 7 1,210 17-07-22, 12:48 AM
آخر رد: معتز حسن
  التحقق من المصفوفة Mtaktak 3 1,016 28-04-22, 08:21 AM
آخر رد: Mtaktak
  [سؤال] كيفيه التحقق من الجدول بقاعدة البيانات حسن الجلب 2 1,192 28-03-22, 04:59 AM
آخر رد: Taha Okla
  [VB.NET] اريد مساعدة في كود التحقق من البيانات في قاعدة اكسس Safwan_Daw 2 1,261 22-03-22, 12:39 AM
آخر رد: Safwan_Daw
  [سؤال] كيفيه التحقق من الأرقام حسن الجلب 3 1,096 15-01-22, 06:25 PM
آخر رد: سعود
  طلب كود التحقق من وجود الاتصال بالانترنت bidaya 6 5,155 16-06-21, 06:49 PM
آخر رد: aliahmed-85

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


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