shocraneh
یک شنبه 01 آذر 1388, 01:30 صبح
تمام ثبت هام رکورد مورد نظر رو درج می کنه (بعضی اوقات فکر کنم درست بود ). اما یه رکورد خالی هم درج می کنه .(فیلد id ,autonumber است )مثل
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Btnsave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsave.Click
Try
LblAlart.Text = ""
Dim priority As Integer = Val(Txtpriority.Text)
Dim cn As New OleDbConnection(strCnn)
Dim strlink As String = "Insert into Tblnews(newstitr,newsmatn,newspriority) Values (@titr,@matn,@priority)"
Dim Cmd As New OleDbCommand(strlink, cn)
Cmd.Parameters.AddWithValue("@titr", Txttitr.Text)
Cmd.Parameters.AddWithValue("@matn", Txtmatn.Text)
Cmd.Parameters.AddWithValue("@priority", priority)
cn.Open()
Cmd.ExecuteNonQuery()
cn.Close()
clear()
Catch
LblAlart.Visible = True
LblAlart.Text = "در اجرا خطا رخ داده است "
End Try
End Sub
فکر کنم دلیلش refresh صفحه هنگام فشردن کلید است .از page.ispostback هم نمیشه استفاده کرد
لطفا عجله دارم
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub Btnsave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnsave.Click
Try
LblAlart.Text = ""
Dim priority As Integer = Val(Txtpriority.Text)
Dim cn As New OleDbConnection(strCnn)
Dim strlink As String = "Insert into Tblnews(newstitr,newsmatn,newspriority) Values (@titr,@matn,@priority)"
Dim Cmd As New OleDbCommand(strlink, cn)
Cmd.Parameters.AddWithValue("@titr", Txttitr.Text)
Cmd.Parameters.AddWithValue("@matn", Txtmatn.Text)
Cmd.Parameters.AddWithValue("@priority", priority)
cn.Open()
Cmd.ExecuteNonQuery()
cn.Close()
clear()
Catch
LblAlart.Visible = True
LblAlart.Text = "در اجرا خطا رخ داده است "
End Try
End Sub
فکر کنم دلیلش refresh صفحه هنگام فشردن کلید است .از page.ispostback هم نمیشه استفاده کرد
لطفا عجله دارم