منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

كود :

        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

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

[attachment=26533]

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

كود :

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()

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alims

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

alims