Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Asp / Asp.NET
bir page laod da iki datareader
Bu konudaki kullanıcılar: 1 misafir
2
Cevap 880
Tıklama 0
Öne Çıkarma
Cevap 880
Tıklama 0
Öne Çıkarma
1. sayfa
-
bir page laod da iki datareader
1. sayfa
DH Mobil uygulaması ile devam edin.
Mobil tarayıcınız ile mümkün olanların yanı sıra, birçok yeni ve faydalı özelliğe erişin.
Gizle ve güncelleme çıkana kadar tekrar gösterme.
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)
< Resime gitmek için tıklayın >