منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال في التأكد من قيمة معينة في الجدل ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في التأكد من قيمة معينة في الجدل ؟ (/showthread.php?tid=13853)

سؤال في التأكد من قيمة معينة في الجدل ؟ - Abdh111 - 17-11-15

سؤالي كالتالي ؟
ابحث عن الاسم ( محمد ) وضع اسم المدينة المسجلة له في الجدول في تكست بوكس
يعني عندي جدول مثلا مسجل كالتالي

محمد    الاسكندرية
مصطفي    المنصورة
أحمد        القاهرة

يجي المستخدم يكتب محمد أريد اظهار اسم مدينتته المسجلة في الجدول

PHP كود :
    
        Try
            Call conecDB()
            Call initCMD()
            SQL = "Select * From Tab_Users Where User_Name like '" & Txt_User_Name.Text & "' "

            With Scmd
                .CommandText = SQL
                Sdr = .ExecuteReader
            End With

            If Sdr.Read Then
variablestring = ds.tables(0).rows.Items(2)
            ElseIf Not (Sdr.Read) Then
MsgBox("not Found Name")

                Txt_User_Name.Text = String.Empty
                Txt_PWD.Text = String.Empty
                Txt_User_Name.Focus()
            End If
            Sdr.Close()
            closeDB()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 


RE: سؤال في التأكد من قيمة معينة في الجدل ؟ - HASAN6.0 - 17-11-15

ازل جملة try وازل كلمة like وضع بدلها =

RE: سؤال في التأكد من قيمة معينة في الجدل ؟ - Abdh111 - 17-11-15

حاجة بجرب وشوف

RE: سؤال في التأكد من قيمة معينة في الجدل ؟ - مهموم - 18-11-15

السلام عليكم ورحمة الله

أخي عادل

أضع هذه الطريقة للفائدة، واحتمال أن تكون غير مرغوبة

LinqToSql
PHP كود :
Dim context As New DataClasses1DataContext
Dim ret = context.Tab_Users.Where(Function(x) x.User_Name = Txt_User_Name.Text).SingleOrDefault

If IsNothing(ret) Then
    MsgBox("not Found Name")
Else
    MsgBox(ret.User_City)
End If 

LinqToDataset
PHP كود :
Dim ret = Tab_UsersTableAdapter.GetData().Where(Function(x) x.User_Name = Txt_User_Name.Text).SingleOrDefault
If IsNothing(ret) Then
    MsgBox("not Found Name")
Else
        MsgBox(ret.User_City)
End If