[Abdh111]

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

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

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

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 


[HASAN6.0]

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

[Abdh111]

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

[مهموم]

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

أخي عادل

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

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