مشکل در ارتباط با Database

[m_zamani]

PrivateSub que()
pn = InputBox("شماره کارمندی را وارد کنید")
strsql = "select * from enter where per_no=" & pn
cmd.CommandText = strsql
cmd.Connection = con
cmd.ExecuteNonQuery()
da.Fill(ss, "enter")
EndSub

ببینید من اینو نوشتم که یه کد کارمند رو بگیره و اطلاعات مربوط به اونو برگردونه
اولا می خوام ببینم این کد مشکل داره یا نه؟
ثانیا من نمی دونم چطوری اطلاعات رو که با select برمی گردونه ببینم یا بریزم توی
گزارش یا textbox

[sinpin]

cmd.ExecuteNonQuery این متود وقتی صدا زده میشه چیزی جز تعداد تغییرات رو برنمیگردونه. ابتدا باید از cmd.ExecuteQuery استفاده کنید و بعد بهتره خروجیه اون رو بریزید توی یک دیتاریدر و با اون کار کنید

[vahidiran]

ببینید با این کد کا رشما راه می افته یعنی در DataSet شما فقط یک Record قرار می گیره که اون هم همونی است که شماره کارمندیش وارد شده است بعد DataSet رو با کنترل هایی نظیر DataGridView و یا TextBox می تونی لینک کنی (binding) که فقط رکور مورد نظر نمایش داده می شه

Dim Command As New OleDbCommand

        Command.Connection = OleDbConnection1

        strsql = "select * from enter where per_no=" & pn

        Command.CommandText = strsql

        Command.CommandType = CommandType.Text

        OleDbDataAdapter1.SelectCommand = Command

        DataSet21.Clear()

        OleDbDataAdapter1.Fill(DataSet21)

[Sub Zero]

جناب m_zamani برای قرار دادن کد توی پستهاتون ابتدا علامت # رو از توی ابزارهای بالای محیط Edit کلیک کرده بعد کدهاتون رو بین دو تگ باز شده Paste کنید . ( صرفا برای واضح تر شدن سوالتون وزودتر رسیدن به جواب)

اما جواب فکر کنم این کارتون رو راه بندازه :

        Dim strs As String = "SELECT * From  Enter"  & " Where ( per_no = ?)"

        Dim ds As New DataSet

        Dim da As New OleDbDataAdapter(strs, con)

         con.Open()

         da.SelectCommand.Parameters.AddWithValue("pn", InputBox("شماره کارمندی را وارد کنید"))

         da.Fill(ds, "Enter")

         Form1.Datagridview.DataSource = ds.Tables("Enter")

[reza_rad]

عنوان رو اصلاح کنید!
http://www.startvbdotnet.com/ado/sqlserver.aspx