+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحويل كود الاستعلام الى sql (/showthread.php?tid=37956)
تحويل كود الاستعلام الى sql - alims - 08-03-21
السلام عليكم شباب ممكن سؤال كيفية تحويل الكود ليعمل مع قاعدة بيانات سيكوال
كود :
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 TryRE: تحويل كود الاستعلام الى sql - عبد العزيز البسكري - 08-03-21
OledbCommand
OledbDatareader
=
SqlCommand
SqlDatareader
RE: تحويل كود الاستعلام الى sql - alims - 09-03-21
شكر ليك اخى العزيز على الرد
ولكن ظهر مشكلة غريبة بالنسبة لى ما هو الحل؟؟؟
[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()