کمک در مورد حذف و ویرایش اطلاعت

[oliya24]

سلام دوستان من از اس کیو ال 2008 استفاده میکنم و از اعمال درج و حذف و ویزایش ویرایش و پاک کردن اطلا عات رو بلد نیستم البته با دستور میخواستم از شما دوستان تقاضا کنم که اگر کدش رو دارید بم بدید
ممنون میشم

[ircast]

سلام

سری به این تاپیک بزن


http://barnamenevis.org/showthread.php?276342-%D8%A7%D9%86%D8%AC%D8%A7%D9%85-%DA%A9%D8%A7%D8%B1%D9%87%D8%A7%DB%8C-Delete-Insert-Update-%D8%A8%D8%A7-Store-Procedure&p=1235341&highlight=#post1235341

[farzan_219]

سلام دوستان من از اس کیو ال 2008 استفاده میکنم و از اعمال درج و حذف و ویزایش ویرایش و پاک کردن اطلا عات رو بلد نیستم البته با دستور میخواستم از شما دوستان تقاضا کنم که اگر کدش رو دارید بم بدید
ممنون میشم

بتشکر از دو ستمون در ادامه صحبتشون می تونی از ایهم استفاده کنی

برای update



وبرای delete


com.CommandText = "DELETE FROM Table1 WHERE pcode='" + txb_personalcode.Text + "';"

com.CommandText = "UPDATE Table1 SET name='" + txb_name.Text + "', family='" + txb_lname.Text + "', serial='" + txb_serial.Text + "', tell='" + txb_tell.Text + "', licence='" + cmb_licence.Text + "' WHERE pcode='" + txb_personalcode.Text + "';"

[oliya24]

دوستان از لطفی که کردید متشکرم ولی من با رویهای ذخیره شده نمیخواستم اگر لطف کنید و بدون رویه ذخیره شده بدید
ممنون میشم

[ircast]

دوستان از لطفی که کردید متشکرم ولی من با رویهای ذخیره شده نمیخواستم اگر لطف کنید و بدون رویه ذخیره شده بدید
ممنون میشم

چشم

Insert:
Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If
Con.ConnectionString = ConString
Dim Cmd As New SqlCommand("INSERT INTO Student ( SFName, SLName) VALUES ( @SFName, @SLName)",Con)
Cmd.Parameters.AddWithValue("@SFName", Me.TxtSFName.Text)
Cmd.Parameters.AddWithValue("@SLName", Me.TxtSLName.Text)
Con.Open()
Cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Con.Close()
End Try
Update:

Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If
Con.ConnectionString = ConString
Dim Cmd As New SqlCommand("Update Student SET SFName=@SFName,SLName=@SLName Where SCode=@SCode (SCode=@SCode[/EMAIL) ,Con)
Cmd.Parameters.AddWithValue("@SCode", Me.TxtSCode.Text)
Cmd.Parameters.AddWithValue("@SFName", Me.TxtSFName.Text)
Cmd.Parameters.AddWithValue("@SLName", Me.TxtSLName.Text)
Con.Open()
Cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Con.Close()
End Try

Delete:

Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If
Con.ConnectionString = ConString
Dim Cmd As New SqlCommand("Delete From Student Where Scode=@SCode",Con)
Cmd.Parameters.AddWithValue("@SCode", Me.TxtSCode.Text)
Con.Open()
Cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Con.Close()
End Try

[ali190]

سلام
فرض کنید میخواهیم اطلاعات رو بعد از تغییرات (ثبت و حذف و ویرایش و یا حتی در شبکه زمانیکه یک کاربر دیگر رکوردی رو می افزاید ) در یک gridview م تصل به datatable نمایش دهیم
آیا هربرا باید datatable رو مجدداً clear و پر نماییم؟

[ircast]

سلام
فرض کنید میخواهیم اطلاعات رو بعد از تغییرات (ثبت و حذف و ویرایش و یا حتی در شبکه زمانیکه یک کاربر دیگر رکوردی رو می افزاید ) در یک gridview م تصل به datatable نمایش دهیم
آیا هربرا باید datatable رو مجدداً clear و پر نماییم؟

می توانید براش یک متد مثل زیر بنویسید
Public Sub LoadList()
Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If
Con.ConnectionString = ConString
Dim Cmd As New SqlCommand("Select * From TableText", Con)
Con.Open()
Dim Dr As SqlDataReader
Dr = Cmd.ExecuteReader
Dim dt As New DataTable
dt.Load(Dr)
DGV.DataSource = dt
Dr.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
Con.Close()
End Try
End Sub

و در صورت موفق اجرا شدن دستورات بالا اون رو به شکل زیر صدا بزنید


LoadList()