h.rezaee
جمعه 16 دی 1390, 12:24 عصر
سلام بر دوستان عزیز.
من یه مشکلی برای insert کردن اطلاعات یک تکس باکس در sqlserver 2008 R2 برام پیش اومده. کد ها رو میزارم ببینید مشکلش کجاست. error هم که میده براتون میزارم.ممنون میشم اگه کمکم کنید.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim con As New SqlConnection
Dim ds As New DataSet
Dim bs As New BindingSource
con.ConnectionString = "server=(local)\SQLEXPRESS;integrated security=sspi;initial Catalog=Dabirkhane;"
Dim com As New SqlCommand
com.Connection = con
com.CommandText = "insert into sefk values (@name)"
com.Parameters.AddWithValue("name", Trim(nametxt.Text))
con.Open()
com.ExecuteNonQuery()
con.Close()
a()
bs.MoveLast()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
من یه مشکلی برای insert کردن اطلاعات یک تکس باکس در sqlserver 2008 R2 برام پیش اومده. کد ها رو میزارم ببینید مشکلش کجاست. error هم که میده براتون میزارم.ممنون میشم اگه کمکم کنید.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim con As New SqlConnection
Dim ds As New DataSet
Dim bs As New BindingSource
con.ConnectionString = "server=(local)\SQLEXPRESS;integrated security=sspi;initial Catalog=Dabirkhane;"
Dim com As New SqlCommand
com.Connection = con
com.CommandText = "insert into sefk values (@name)"
com.Parameters.AddWithValue("name", Trim(nametxt.Text))
con.Open()
com.ExecuteNonQuery()
con.Close()
a()
bs.MoveLast()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub