تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] استفسار :- تحديث ال TEXTBOX
#1
السلام عليكم ورحمة الله

يوجد عندي TEXTBOX   عندما اكتب في اسم اي شخص يقوم بالبحث في قاعدة البيانات هل الاسم موجود او لا

في حالت ان موجود يكتب لي ان هذا الاسم موجود  

المشكله الان مثلا اذا كتبت -- كمثال فقط اذا كتبت 

محمد    يقولي هذا الاسم موجود

اذا مثلا مسحت حرف ليصبح

حمد  لا يزال يقولي حمد موجود وللعلم حمد غير موجود هذا الاسم 

يعني ما يحتاج امسح الاسم كامل فقط امسح حرف

كمثال كتبت 



AA9AA  يطلع لي ان موجود في القاعدة حبيت اعدل في الاسم وامسح حرف واحد ليصبح AA9A  هذا الاسم غير موجود في القاعدة بس Label  لا يزال كاتب ان موجدود 
مثال


هنا الاسم موجود في القاعدة
   

A41Q

مسحت حرف 
Q

   

غير موجود في القاعدة بس كاتب لي ان موجود طبعا محتاج كود يعمل تحديث لل TEXTBOX  ويبحث من جديد



هنا المثال لبرنامج اخر شغال صح

   


   


حاولت ابحث عن طريقه بس ما حصلت الحل 

بارك الله فيكم وشكرا من جديد
الرد
تم الشكر بواسطة:
#2
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click

    
If IsExist(Me.TextBox1.TextThen
        MsgBox
("Yes")
    Else
        
MsgBox("No")
    
End If

End Sub


Function IsExist(ByVal theName As String) As Boolean

    Dim lst 
As New List(Of String)
    
lst.Add("[NAME] LIKE '" theName.Trim "'")
    
lst.Add("[NAME] LIKE '% " theName.Trim "'")
    
lst.Add("[NAME] LIKE '" theName.Trim " %'")
    
lst.Add("[NAME] LIKE '% " theName.Trim " %'")
    
Dim lk As String String.Join(" OR "lst)

    
Dim cmd As New OleDbCommand(" SELECT COUNT(Name) FROM [Table1] WHERE " lkcon)
    
cmd.Parameters.AddWithValue("@p1"TextBox1.Text)
    If 
con.State <> ConnectionState.Open Then con.Open()
    
Dim cnt cmd.ExecuteScalar
    con
.Close()

    If 
cnt 0 Then
        
Return True
    
Else
        Return 
False
    End 
If

End Function 
الرد
تم الشكر بواسطة: dubai.eig , Amir_Alzubidy , Amir_Alzubidy
#3
(09-10-17, 09:53 AM)a.ahmed كتب :
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click

    If IsExist
(Me.TextBox1.TextThen
        MsgBox
("Yes")
 
   Else
        MsgBox
("No")
 
   End If

End Sub


Function IsExist(ByVal theName As String) As Boolean

    Dim lst 
As New List(Of String)
 
   lst.Add("[NAME] LIKE '" theName.Trim "'")
 
   lst.Add("[NAME] LIKE '% " theName.Trim "'")
 
   lst.Add("[NAME] LIKE '" theName.Trim " %'")
 
   lst.Add("[NAME] LIKE '% " theName.Trim " %'")
 
   Dim lk As String String.Join(" OR "lst)

 
   Dim cmd As New OleDbCommand(" SELECT COUNT(Name) FROM [Table1] WHERE " lkcon)
 
   cmd.Parameters.AddWithValue("@p1"TextBox1.Text)
 
   If con.State <> ConnectionState.Open Then con.Open()
 
   Dim cnt cmd.ExecuteScalar
    con
.Close()

 
   If cnt 0 Then
        Return True
    Else
        Return False
    End 
If

End Function 



شكرا لك بارك الله فيك

راح اجرب وبعطيك خبر Smile
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#4
كود :
'function to check if the user is already exists
   Public Function UserEx(ByVal id_number As String) As Boolean
       Dim correct_version As Boolean = False
       Dim command As New SqlCommand("SELECT eid FROM Employees WHERE eid = @eid", SQL.conn)
       command.Parameters.AddWithValue("@eid", id_number)
       SQL.conn.Open()
       Using reader As SqlDataReader = command.ExecuteReader
           While reader.Read
               If IsDBNull(reader("eid")) Then
                   correct_version = False
               Else
                   correct_version = True
               End If
           End While
       End Using
       command.Parameters.Clear()
       SQL.conn.Close()
       Return correct_version
   End Function
كود :
If UserEx(emp_id_txt.Text) = True Then
           
         
           
         
           End If
الرد
تم الشكر بواسطة: Amir_Alzubidy
#5
(09-10-17, 09:53 AM)a.ahmed كتب :
PHP كود :
Private Sub Button1_Click(ByVal sender As ObjectByVal e As EventArgsHandles Button1.Click

    If IsExist
(Me.TextBox1.TextThen
        MsgBox
("Yes")
 
   Else
        MsgBox
("No")
 
   End If

End Sub


Function IsExist(ByVal theName As String) As Boolean

    Dim lst 
As New List(Of String)
 
   lst.Add("[NAME] LIKE '" theName.Trim "'")
 
   lst.Add("[NAME] LIKE '% " theName.Trim "'")
 
   lst.Add("[NAME] LIKE '" theName.Trim " %'")
 
   lst.Add("[NAME] LIKE '% " theName.Trim " %'")
 
   Dim lk As String String.Join(" OR "lst)

 
   Dim cmd As New OleDbCommand(" SELECT COUNT(Name) FROM [Table1] WHERE " lkcon)
 
   cmd.Parameters.AddWithValue("@p1"TextBox1.Text)
 
   If con.State <> ConnectionState.Open Then con.Open()
 
   Dim cnt cmd.ExecuteScalar
    con
.Close()

 
   If cnt 0 Then
        Return True
    Else
        Return False
    End 
If

End Function 


السلام عليكم

اولا شكرا لك على الرد حاولت اضبط الكود بس ما مشى معاي

بعد اذنك هذا الكود اللي استخدمه كيف اربطه مع الكود الخاص بك


كود :
       Dim conXCX As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
       Dim cmdXX As New SQLiteCommand("SELECT CALLop FROM [DBqsos] WHERE [CALLop]=@param1 AND [Band]=@param2", conXCX)
       cmdXX.Parameters.AddWithValue("@param1", Trim(calls.Text))
       cmdXX.Parameters.AddWithValue("@param2", bands.Text)
       If conXCX.State <> ConnectionState.Open Then conXCX.Open()
       If cmdXX.ExecuteScalar > 0 Then
 
           Label14.Text = "DOUBLE"
           Label14.BackColor = Color.Red
   

   End If


وشكرا لك
الرد
تم الشكر بواسطة:
#6
PHP كود :
Dim conXCX As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db"Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
Dim cmdXX As New SQLiteCommand("SELECT COUNT(*) FROM [DBqsos] WHERE [CALLop]=@param1 AND [Band]=@param2"conXCX)
cmdXX.Parameters.AddWithValue("@param1"Trim(calls.Text))
cmdXX.Parameters.AddWithValue("@param2"bands.Text)
If 
conXCX.State <> ConnectionState.Open Then conXCX.Open()
If 
cmdXX.ExecuteScalar 0 Then
    Label14
.Text "DOUBLE"
    
Label14.BackColor Color.Red
Else
    
Label14.Text ""
    
Label14.BackColor Nothing
End 
If 
الرد
تم الشكر بواسطة: dubai.eig , Amir_Alzubidy
#7
(10-10-17, 09:30 AM)a.ahmed كتب :
PHP كود :
Dim conXCX As New SQLiteConnection(String.Format("Data Source= {0}\DB.s3db"Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)))
Dim cmdXX As New SQLiteCommand("SELECT COUNT(*) FROM [DBqsos] WHERE [CALLop]=@param1 AND [Band]=@param2"conXCX)
cmdXX.Parameters.AddWithValue("@param1"Trim(calls.Text))
cmdXX.Parameters.AddWithValue("@param2"bands.Text)
If 
conXCX.State <> ConnectionState.Open Then conXCX.Open()
If 
cmdXX.ExecuteScalar 0 Then
    Label14
.Text "DOUBLE"
 
   Label14.BackColor Color.Red
Else
 
   Label14.Text ""
 
   Label14.BackColor Nothing
End 
If 

شكرا  شكرا استاذ احمد بارك الله فيك احسنت

طمعان بكرمك بارك الله فيك

سؤال اخير 

كيف اعمل تحديث لتيبل واحد مرتين في نفس الاستعمال

مثلا

كود :
Dim cmdlid As New SQLiteCommand("", conlid)
   
   cmdlid =("UPDATE DBSetting SET score=@score WHERE contestnyear=@contestnyear ", conlid)
       conlid.Open()
       cmdlid.Parameters.AddWithValue("@score", xtotelall)
       cmdlid.Parameters.AddWithValue("@contestnyear", contestnyearx)
     
 Dim reader = cmdlid.ExecuteNonQuery()
     cmdlid =("UPDATE DBSetting SET score=@score WHERE contestnyear=@contestnyear ", conlid)

       cmdlid2.Parameters.AddWithValue("@score", xtotelall2)
       cmdlid2.Parameters.AddWithValue("@contestnyear", contestnyearx)
       cmdlid2.ExecuteNonQuery()

     
       conlid.Close()


حاولت بالشكل التالي بس طلع لي غلط 

محتاج اضيف في خانة score عدد وفي المرهع الثانيه عدد اخر تحديث مرتين
 cmdlid.Parameters.AddWithValue("@score", xtotelall)

   cmdlid2.Parameters.AddWithValue("@score", xtotelall2)

ما اعرف هل يجوز او لا التحديث بهذه الطريقه

وشكرا
الرد
تم الشكر بواسطة:
#8
PHP كود :
Dim cmdlid As New SQLiteCommand(" UPDATE [DBSetting] SET [score]=([score]+@score) WHERE ([contestnyear]=@contestnyear) "conlid)
cmdlid.Parameters.AddWithValue("@score"xtotelall xtotelall2)
cmdlid.Parameters.AddWithValue("@contestnyear"contestnyearx)

If 
conlid.State <> ConnectionState.Open Then conlid.Open()
Dim ret As Integer cmdlid.ExecuteNonQuery()
conlid.Close()

If 
ret 0 Then
    MsgBox
("Updated."MsgBoxStyle.Information)
Else
    
MsgBox("Nothing."MsgBoxStyle.Exclamation)
End If 
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy , dubai.eig , dubai.eig , lemozza
#9
(10-10-17, 10:36 AM)a.ahmed كتب :
PHP كود :
Dim cmdlid As New SQLiteCommand(" UPDATE [DBSetting] SET [score]=([score]+@score) WHERE ([contestnyear]=@contestnyear) "conlid)
cmdlid.Parameters.AddWithValue("@score"xtotelall xtotelall2)
cmdlid.Parameters.AddWithValue("@contestnyear"contestnyearx)

If 
conlid.State <> ConnectionState.Open Then conlid.Open()
Dim ret As Integer cmdlid.ExecuteNonQuery()
conlid.Close()

If 
ret 0 Then
    MsgBox
("Updated."MsgBoxStyle.Information)
Else
 
   MsgBox("Nothing."MsgBoxStyle.Exclamation)
End If 

احسنت يا بطل بارك الله فيك
Smile
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] استفسار بسيط اسامه الهرماوي 3 83 05-05-19, 07:26 PM
آخر رد: asemshahen5
Heart استفسار حول treeview احمد كبه 3 113 25-04-19, 06:44 PM
آخر رد: elgokr
  مقارنة بين قيمتي textbox وحفظ الخطأ في جدول قاعدة بيانات ahmedfa71 0 71 24-04-19, 12:19 PM
آخر رد: ahmedfa71
  [VB.NET] استفسار بخصوص sql server dubai.eig 1 94 13-04-19, 09:47 PM
آخر رد: Rabeea Qbaha
  [VB.NET] استفسار :- بخصوص SQLite و local db dubai.eig 2 115 11-04-19, 08:35 AM
آخر رد: elgokr
  سؤال حول TextBox مرتبط ب WebBrowser ارجو رد من الاخ DK-x وشكرا للاخ بدري حاتمي 4 111 09-04-19, 06:16 PM
آخر رد: حاتمي
  [VB.NET] [تم الحل] كيفية انشاء صندوق نص و زر شفاف textbox & button الماجيك مسعد 4 235 09-04-19, 02:25 AM
آخر رد: بدري
  سؤال حول TextBox مرتبط ب WebBrowser حاتمي 6 218 09-04-19, 01:00 AM
آخر رد: حاتمي
  [VB.NET] استفسار :- تحويل داتا من Form1 الى Form2 dubai.eig 5 146 06-04-19, 09:08 PM
آخر رد: elgokr
  [VB.NET] استفسار :- html table to datagridview dubai.eig 5 179 30-03-19, 06:44 PM
آخر رد: asemshahen5

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


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