maryam_vb
جمعه 09 آذر 1386, 14:47 عصر
با سلام
با کد زیر میخوام با زدن دکمه 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
با کد زیر میخوام با زدن دکمه 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