24-07-13, 06:40 AM
السلام عليكم شباب و هى عندى جوه datalist
label أسموه (name_ProductsLabel)
المشكلة هنا ان عايز اعمل استعلام فى قاعدة البيانات و لكن فشلت و ده الكود لى بحاول اعملو
:confused:
[HTML] Dim strConnString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Dim con As New SqlConnection(strConnString)
If ConnectionState.Open Then con.Close()
Dim itemIndex As Integer = 9
Dim label As Label = DataList1.Items(itemIndex).FindControl("name_ProductsLabel")
Dim text As String = label.Text
Dim str As String = "SELECT * WHERE (img_Products=N'" & text & "')"
Dim cmd As SqlCommand = New SqlCommand(str, con)
cmd.Connection = con
con.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
While (dr.Read())
'Label2.Text = dr("Text_book").ToString()
Label1.Text = dr("img_Products")
End While
dr.Close()[/HTML]
label أسموه (name_ProductsLabel)
المشكلة هنا ان عايز اعمل استعلام فى قاعدة البيانات و لكن فشلت و ده الكود لى بحاول اعملو
:confused:
[HTML] Dim strConnString As String = ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
Dim con As New SqlConnection(strConnString)
If ConnectionState.Open Then con.Close()
Dim itemIndex As Integer = 9
Dim label As Label = DataList1.Items(itemIndex).FindControl("name_ProductsLabel")
Dim text As String = label.Text
Dim str As String = "SELECT * WHERE (img_Products=N'" & text & "')"
Dim cmd As SqlCommand = New SqlCommand(str, con)
cmd.Connection = con
con.Open()
Dim dr As SqlDataReader = cmd.ExecuteReader()
While (dr.Read())
'Label2.Text = dr("Text_book").ToString()
Label1.Text = dr("img_Products")
End While
dr.Close()[/HTML]
يَامَعْشَرَ الْجِنِّ وَالإِنسِ إِنْ اسْتَطَعْتُمْ أَنْ تَنفُذُوا مِنْ أَقْطَارِ السَّمَاوَاتِ وَالأَرْضِ فَانفُذُوا لا تَنفُذُونَ إِلاّ بِسُلْطَانٍ(33) سورة الرحمن
