basit bir alışveriş sitesi hazırlıyorum yorum kısmını falan ekledim yalnız yorumu yapanın adının user.identityname ile çektikten sonra resmini de göstermek istiyorum fakat üstte çalışan kod altta çalışmıyor hata verior aşağıda kodalr ve hata var yardımcı olan olursa sevinirim.
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label5.Text = User.Identity.Name
ID = Request.QueryString.Get(0) TextBox1.Text = Convert.ToString(ID)
Dim c As New Data.OleDb.OleDbConnection c.ConnectionString = "provider=microsoft.jet.oledb.4.0;Data source=" + Server.MapPath("~\app_data\urun.mdb") c.Open()
Dim co As New Data.OleDb.OleDbCommand co.Connection = c
co.CommandText = String.Format("select * from urun ")
Dim dr As Data.OleDb.OleDbDataReader
dr = co.ExecuteReader
Do While dr.Read = True If ID = dr(0) Then
Label2.Text = dr(2) Label3.Text = dr(3).ToString End If Loop
c.Close() Dim cc As New Data.OleDb.OleDbConnection cc.ConnectionString = "provider=microsoft.jet.oledb.4.0;Data source=" + Server.MapPath("~\app_data\urun.mdb")
cc.Open()
Dim coco As New Data.OleDb.OleDbCommand coco.Connection = cc
coco.CommandText = String.Format("select * from uyeler ")
Dim drdr As Data.OleDb.OleDbDataReader
drdr = co.ExecuteReader
Do While drdr.Read = True If User.Identity.Name = dr(1) Then
Label6.Text = dr(8)
End If Loop cc.Close()
End Sub
hata:
line 51:
line 52: Do While drdr.Read = True
line 53: If User.Identity.Name = dr(1) Then
line 54:
line 55: Label6.Text = dr(8)
yokmu asp.net bilen?
sorun çözülmüştür genede sağolun
yeni mesaja git
Yeni mesajları sizin için sürekli kontrol ediyoruz, bir mesaj yazılırsa otomatik yükleyeceğiz.Bir Daha Gösterme