پیمایش بین رکوردهای نتیجه شده از دستور select

[maryam_vb]

با سلام

با کد زیر میخوام با زدن دکمه next به رکورد بعد در نتیجه select برود ولی خطا میگیره چه تغییری باید اعمال کنم تا مشکلش برطرف بشه؟

If i > 1 Then
Dim conn AsNew OleDb.OleDbConnection("provider=microsoft.jet.oledb.4.0 ; data source=" & Application.StartupPath() & "\calendar.mdb")
Dim adap AsNew OleDb.OleDbDataAdapter
Dim ds AsNew DataSet
Dim cmd AsNew OleDb.OleDbCommand("select title,matn from messages2 where tarikh='" & date1 & "'", conn)
conn.Open()
cmd.ExecuteNonQuery()
adap.SelectCommand = cmd
adap.Fill(ds)
For j = 2 To i
Ttitle.Text = ds.Tables(0).Rows(j).Item(0)
tmessage.Text = ds.Tables(0).Rows(j).Item(1)
Next j
conn.Close()
EndIf

متغیر i قبلا به این شکل مقدار دهی شده:


i = ds.Tables(0).Rows.Count

[kablayi]

شما اول باید Ttitle و tmessage خودتو به مقادیر مورد نظرت bind کنی بعد به راحتی میتونی از دستور زیر برای پیمایش استفاده کنی ...
توی رویداد کلیک دکمه next اینو بنویس ...

me.bindingcontext(ds,"message2").position+=1

...:::موفق باشی:::... :چشمک:

[saeed_rezaei]

سلام
مگه شما از متد fill استفاده کردید؟
شما دیگه نیازی به استفاده از comand ندارید.



dim cn as new connection ...
dim strsel as string = "select title , msg from mytable where tarikh = ...."
dim da as new dataadapter (strsel,cn)
dim ds as new dataset

cn.open
da.fill (ds,"tbl1")
cn.close

dim i as integer
i= ds.tabels(0).rows.count

dim m as integer

for m=0 to i-1

Ttitle.Text = ds.Tables(0).Rows(j)(0).tostring

...
next i


دیگه نیازی به command نیست

[maryam_vb]

سلام
خوب باشه از روش binding میخوام استفاده میکنم . حالا میشه راهنماییم کنید چه طوری از طریق کد نویسی باید عمل کنم؟
از این کد باید استفاده کنم؟


ttitle.databonding.add(آرگومانها)

لطفاتوضیحی راجع به آرگومانهاش بدید.

[kablayi]

لطفاتوضیحی راجع به آرگومانهاش بدید.

سلام ...
تکست باکساتو اینجوری میتونی bind کنی ...


' is the Text property. The data source is a DataSet
' (ds). The data member is specified by a navigation
' path in the form : TableName.ColumnName.
TextBox1.DataBindings.Add (New Binding("Text", ds, "customers.custName"))



موفق باشید ....