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
به نظرتون مشکل کجاست؟؟؟؟؟؟؟؟؟؟؟؟؟:کف:
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
به نظرتون مشکل کجاست؟؟؟؟؟؟؟؟؟؟؟؟؟:کف: