[alims]

السلام عليكم شباب ممكن سؤال كيفية تحويل الكود ليعمل مع قاعدة بيانات سيكوال

كود :

        Try
            Dim cmdselect As New OleDbCommand
            cmdselect.Connection = conn
            cmdselect.CommandText =("select * from adduser where EMail='" & TextBox3.Text & "'", con)
            Dim re As OleDbDataReader
            re = cmdselect.ExecuteReader
            If re.Read Then
         
            Else
                MsgBox("بيانات الشخص غير موجوده قم باضافتها")
           
            End If
        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

[عبد العزيز البسكري]

OledbCommand

OledbDatareader

=

SqlCommand

SqlDatareader

[alims]

شكر ليك اخى العزيز على الرد
ولكن ظهر مشكلة غريبة بالنسبة لى ما هو الحل؟؟؟

   

---

الحمد الله لقيت الحل و هو

كود :

con.Open()
           Dim cmdselect As New SqlCommand
           cmdselect.Connection = con
           cmdselect.CommandText = "select * from adduser where EMail='" & TextBox3.Text & "'"
           Dim re As SqlDataReader
           re = cmdselect.ExecuteReader
           If re.Read Then
               MsgBox("البريد الالكترونى مسجل قبل ذلك برجاء التاكد من البريد الالكترونى او الضعط على المساعده", MsgBoxStyle.Information, "خطا")
               Exit Sub
           Else
             
           End If
           con.Close()