ارسال نتیجه دستور select

[maryam_vb]

با سلام

چه جوری میتونم خروجی دستور select زیر رو درون textbox از طریق کد نویسی بریزم؟

Dim date1 = Convert_date1.current
Dim conn AsNew OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\calendar.mdb")
Dim comm AsNew OleDb.OleDbCommand("select text from messages2 where tarikh='" & date1 & "'", conn)
conn.Open()
comm.ExecuteNonQuery()
conn.Close()

[maryam_jamshid]

شما باید یه شی به نام dr به صورت زیر دریافت نمایید:
dim dr as OleDb

بعد به جای ()comm.ExecuteNonQuery بنویس cmd.ExecuteReader()
بعد dr.read()

if dr.read then
(extbox1.text=dr(text
end if

[اَرژنگ]

Dim date1 = Convert_date1.current
Dim conn AsNew OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\calendar.mdb")
Dim comm AsNew OleDb.OleDbCommand("select text from messages2 where tarikh='" & date1 & "'", conn)
conn.Open()

dim s as string=comm.excutescalar
TextBox1.Text = s

conn.Close()

[ice007]

Dim date1 = Convert_date1.current
Dim conn AsNew OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\calendar.mdb")
Dim comm AsNew OleDb.OleDbCommand("select text from messages2 where tarikh='" & date1 & "'", conn)
conn.Open()

dim s as string=comm.excutescalar

یا


dim dr as OleDb.OleDbdatareader
dr=comm.exwcuteredear
while dr.read
dr.item() هر کاری
next
conn.Close

[morteza_261]

ببین این کد بدردت میخوره:


Dim Ad AsNew SqlClient.SqlDataAdapter
Dim Ds AsNew DataSet
conn.Open()
comm.ExecuteNonQuery()
Ad.SelectCommand = comm
Ad.Fill(Ds)
Textbox.Text = Ds.Tables(0).Rows(0).Item(0)
conn.Close()