كيف ممكن ان ادخل داخل الداتا بيز

ممكن كتابة جملة sql حتى اتمكن من المعالجة

وهذا مثال ممكن يساعدك

ربما يساعدك

EMNALI كتب:

ممكن كتابة جملة sql حتى اتمكن من المعالجة

وهذا مثال ممكن يساعدك

وماذا تريد أن تأخذ منه

ليش عدلت ردك

اخي انا بدي تشرحلي كيف استخدم ال SqlDataReader فقط

جرب هذا الكود

dr.GetValue(0)

أو

dr.GetItem("firstname")

easy_3a3 كتب:

ليش عدلت ردك

اخي انا بدي تشرحلي كيف استخدم ال SqlDataReader فقط

لانه كان يوجد خطأ فعدلته

http://idealprogrammer.com/code-samples/vbnet-datatable-load-sqldatareader-source-code/

قد تحتاج في بعض الاحيان ان تاخذ مثلا الحقل الاول من الاستعلام وتربطه بمكان وتاخذ الحقل الثاني وتربطه بمكان ثاني

ذلك يتوجب عليك ذلك ينطبق على كل الادوات ساضع لك قائمة منسدلة كونها توضح الفكرة اكثر

  Dim x As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
  Dim con As New SqlConnection(x)
  Dim cot As String = "SELECT  id, name FROM        	tt"
  Dim com As New SqlCommand(cot, con)
  con.Open()
  Dim rd As SqlDataReader = com.ExecuteReader()
  DropDownList1.DataSource = rd
  DropDownList1.DataTextField = rd.GetName(0)
  DropDownList1.DataValueField = rd.GetName(1)
  DropDownList1.DataBind()
  con.Close()

X-File كتب:

قد تحتاج في بعض الاحيان ان تاخذ مثلا الحقل الاول من الاستعلام وتربطه بمكان وتاخذ الحقل الثاني وتربطه بمكان ثاني

ذلك يتوجب عليك ذلك ينطبق على كل الادوات ساضع لك قائمة منسدلة كونها توضح الفكرة اكثر

  Dim x As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"
  Dim con As New SqlConnection(x)
  Dim cot As String = "SELECT  id, name FROM        	tt"
  Dim com As New SqlCommand(cot, con)
  con.Open()
  Dim rd As SqlDataReader = com.ExecuteReader()
  DropDownList1.DataSource = rd
  DropDownList1.DataTextField = rd.GetName(0)
  DropDownList1.DataValueField = rd.GetName(1)
  DropDownList1.DataBind()
  con.Close()

هذا المثال رجعلي فيلد واحد بس

وبعدين لو اشيل DropDownList1.DataTextField = rd.GetName(0)

DropDownList1.DataValueField = rd.GetName(1)

بعطيني out put غريب ما بعرف ايش هو

Dim ConnStr As String = "Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Server.MapPath("App_Data") & "\Database.mdf"

Dim Conn As New SqlConnection(ConnStr)

Dim cmd As New SqlCommand()

cmd.Connection = Conn

cmd.CommandText = "select * from gedo "

Conn.Open()

Dim dr As SqlClient.SqlDataReader

dr = cmd.ExecuteReader

DropDownList1.DataSource = dr

DropDownList1.DataBind()

هذا ليش غلط ولو بدي اختار داتا معينة داخل التيبل كيف اعمل

هذا مثال يوضح ذلك

اتمنى التجريب

WebSite4.rar