PDA

View Full Version : آپدیت و ذخیره اطلاعات در بانک از گرید ویو



samane85107
یک شنبه 23 خرداد 1389, 23:55 عصر
من این کد رو از سایت خودتون برداشتم.یکی از عزیزان برای راهنمایی کسی فرستاده بود.ولی موقعی که دکمه آپدیت رو می زنم خطا میده :



Try


Dim conn As New SqlClient.SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\proje1.mdf;Integrated Security=True;User Instance=True")
Dim dta As New SqlClient.SqlDataAdapter("select * from proje1", conn)
Dim ds As New DataSet
Dim cmd As New SqlClient.SqlCommand
cmd.Connection = conn
cmd.CommandText = "insert into proje values(@id_proje,@title_prj,@endtime_prj,@edittime _prj,@starttime_prj,@periorities_prj,@types_prj)"

cmd.Parameters.AddWithValue("id_proje", Trim(id_proje.Text))
cmd.Parameters.AddWithValue("title_prj", Trim(title_prj.Text))
cmd.Parameters.AddWithValue("endtime_prj", Trim(endtime_prj.Text))
cmd.Parameters.AddWithValue("edittime_prj", Trim(edittime_prj.Text))
cmd.Parameters.AddWithValue("starttime_prj", Trim(starttime_prj.Text))
cmd.Parameters.AddWithValue("periorities_prj", Trim(periorities_prj.Text))
cmd.Parameters.AddWithValue("types_prj", Trim(types_prj.Text))
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
MessageBox.Show(" ")
DataGridView1.AutoGenerateColumns = True

ds.Clear()
dta.Fill(ds, "proje1")
id_proje.Text = ""

title_prj.Text = ""

endtime_prj.Text = ""

edittime_prj.Text = ""

starttime_prj.Text = ""

types_prj.Text = ""

periorities_prj.Text = ""

types_prj.Text = ""

id_proje.Select()
Catch ex As Exception
MsgBox(ex.Message)
End Try

به نظرتون مشکل کجاست؟؟؟؟؟؟؟؟؟؟؟؟؟:کف:

samane85107
یک شنبه 23 خرداد 1389, 23:56 عصر
منظورم همون دکمه ذخیره بود

samane85107
یک شنبه 23 خرداد 1389, 23:57 عصر
بدون date time هم امتحان کردم.جواب نمیده؟؟؟؟؟؟؟؟؟؟؟/

ali_ahr7
دوشنبه 24 خرداد 1389, 00:29 صبح
چه خطايي ميده؟
متنش رو بذار.

samane85107
دوشنبه 24 خرداد 1389, 15:30 عصر
erroresh ine ke soton haye jadvalet ba ham mach nist.man check kardam.ba ham machan???????????????