PDA

View Full Version : مشکل در ارتباط با Database



m_zamani
یک شنبه 01 بهمن 1385, 10:10 صبح
Private Sub que()
pn = InputBox("شماره کارمندی را وارد کنید")
strsql = "select * from enter where per_no=" & pn
cmd.CommandText = strsql
cmd.Connection = con
cmd.ExecuteNonQuery()
da.Fill(ss, "enter")
End Sub

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

sinpin
یک شنبه 01 بهمن 1385, 10:23 صبح
cmd.ExecuteNonQuery این متود وقتی صدا زده میشه چیزی جز تعداد تغییرات رو برنمیگردونه. ابتدا باید از cmd.ExecuteQuery استفاده کنید و بعد بهتره خروجیه اون رو بریزید توی یک دیتاریدر و با اون کار کنید

vahidiran
یک شنبه 01 بهمن 1385, 10:28 صبح
ببینید با این کد کا رشما راه می افته یعنی در 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
یک شنبه 01 بهمن 1385, 10:32 صبح
جناب 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
یک شنبه 01 بهمن 1385, 10:32 صبح
عنوان رو اصلاح کنید!
http://www.startvbdotnet.com/ado/sqlserver.aspx