PDA

View Full Version : سوال: نمایش اطلاعات از جدول روی فرم



shabgard2oo9
شنبه 19 آذر 1390, 23:01 عصر
سلام

من میخوام اطلاعات رکوردخاصی ازجدول بانک اطلاعاتی رو توی textboxهای روی فرم نمایش بدم اما قسمت نمایش درtextهاخطامیده چطورمشکل روحل کنم.ازاین روش استفاده کردم خطاگرفت:
cmdSelect = New OleDbCommand(strSelect, con)
con.Open()
dr = cmdSelect.ExecuteReader()
If dr.HasRows Then

TextBox25.Text = dr("code_motaghazi")این قسمت خطامیگیره

ali_najari
یک شنبه 20 آذر 1390, 00:08 صبح
دوست عزیز شما داری یک سری اطلاعت رو از جدول میخونی مثلا 10 خط رو باید یکی از خط ها رو انتخاب کنی یا اگر نمیخوای این کارو کنی باید بایند کنی به این تکس باکست

meisam3322
یک شنبه 20 آذر 1390, 11:02 صبح
با سلام، دوست عزیز فکر کنم dr شما در کد بالا همان DataReader باشه ؟ اگه هست بعد از دستوری ()dr= cmdSelect.ExecuteReade یه حلقه درست کن به این صورت :



while dr.read
textbox1.text=dr("fieldname").tostring
.
.
.
end while
dr.close


منظور از نقطه ها دستورات بعدی برای خوندن فیلدهاست. البته یه چیز دیگه هم هست امکان داره ارور شما از دستور sql باشه به Command ارسال کردی. اگه حل نشد دستور Sql رو اینجا بذار

موفق باشی

zeos_man
یک شنبه 20 آذر 1390, 12:34 عصر
به نظر من باید بایند کنه تا از روشی که استفاده کرده

shabgard2oo9
یک شنبه 20 آذر 1390, 22:15 عصر
میشه درباره نحوه بایندکردن بیشترتوضیح بدی

shabgard2oo9
یک شنبه 20 آذر 1390, 22:31 عصر
با سلام، دوست عزیز فکر کنم dr شما در کد بالا همان DataReader باشه ؟ اگه هست بعد از دستوری ()dr= cmdSelect.ExecuteReade یه حلقه درست کن به این صورت :



while dr.read
textbox1.text=dr("fieldname").tostring
.
.
.
end while
dr.close


منظور از نقطه ها دستورات بعدی برای خوندن فیلدهاست. البته یه چیز دیگه هم هست امکان داره ارور شما از دستور sql باشه به Command ارسال کردی. اگه حل نشد دستور Sql رو اینجا بذار

موفق باشی

ممنون مشکل حل شد

mgh64120
یک شنبه 20 آذر 1390, 22:41 عصر
سلام دوست عزيز

Dim Cmd As New SqlCommand
Dim DR As SqlDataReader
'
Try
Cmd = New SqlCommand("SELECT Field1, Field2 FROM <TableName> ", Connection)
DR = Cmd.ExecuteReader
If DR.Read = True Then
TextBox1.Text = DR("Field1").ToString
TextBox2.Text = DR("Field2").ToString
End If
Catch ex As SqlException
MessageBox.Show(ex.Message, "خطا در نمايش اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
Finally
Cmd.Dispose() : DR.Close() : DR = Nothing
End Try

sirjan1
دوشنبه 26 فروردین 1392, 22:58 عصر
کد این کار برای بانک اکسس چطوریه؟