在向SQL写入一段数据的时候为什么我的SQL语句必须要写在Button_Click中才能生效。如果不放入的话会插入的数据为空呢?代码如下。
Public Class index
Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.conn = New System.Data.SqlClient.SqlConnection
Me.addcmd = New System.Data.SqlClient.SqlCommand
'
'conn
'
Me.conn.ConnectionString = "workstation id=""AMD64-I0GULG2J1"";packet size=4096;user id=sa;data source=""AMD64-I" & _
"0GULG2J1"";persist security info=True;initial catalog=aspnet;password=jjdisk"
'
'addcmd
'==========放在这里的时候插入的数据为空。=============
'Me.addcmd.CommandText = "insert into news (title, content) values ('" + title.Text + "','" + content.Text + "')"
' Me.addcmd.Connection = Me.conn End Sub
Protected WithEvents title As System.Web.UI.WebControls.TextBox
Protected WithEvents content As System.Web.UI.WebControls.TextBox
Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
Protected WithEvents conn As System.Data.SqlClient.SqlConnection
Protected WithEvents addcmd As System.Data.SqlClient.SqlCommand '注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
title.Text = ""
content.Text = ""
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Len(content.Text) < 10 Then
content.Text = "我恨这个世界。长度不够。"
Else
Me.conn.Open()
Me.addcmd.CommandText = "insert into news (title, content) values ('" + title.Text + "','" + content.Text + "')"
Me.addcmd.Connection = Me.conn
Me.addcmd.ExecuteNonQuery()
Me.conn.Close() End If
End Sub Private Sub SqlConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlInfoMessageEventArgs) End Sub
End Class
Public Class index
Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.conn = New System.Data.SqlClient.SqlConnection
Me.addcmd = New System.Data.SqlClient.SqlCommand
'
'conn
'
Me.conn.ConnectionString = "workstation id=""AMD64-I0GULG2J1"";packet size=4096;user id=sa;data source=""AMD64-I" & _
"0GULG2J1"";persist security info=True;initial catalog=aspnet;password=jjdisk"
'
'addcmd
'==========放在这里的时候插入的数据为空。=============
'Me.addcmd.CommandText = "insert into news (title, content) values ('" + title.Text + "','" + content.Text + "')"
' Me.addcmd.Connection = Me.conn End Sub
Protected WithEvents title As System.Web.UI.WebControls.TextBox
Protected WithEvents content As System.Web.UI.WebControls.TextBox
Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Button2 As System.Web.UI.WebControls.Button
Protected WithEvents conn As System.Data.SqlClient.SqlConnection
Protected WithEvents addcmd As System.Data.SqlClient.SqlCommand '注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
title.Text = ""
content.Text = ""
End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Len(content.Text) < 10 Then
content.Text = "我恨这个世界。长度不够。"
Else
Me.conn.Open()
Me.addcmd.CommandText = "insert into news (title, content) values ('" + title.Text + "','" + content.Text + "')"
Me.addcmd.Connection = Me.conn
Me.addcmd.ExecuteNonQuery()
Me.conn.Close() End If
End Sub Private Sub SqlConnection1_InfoMessage(ByVal sender As System.Object, ByVal e As System.Data.SqlClient.SqlInfoMessageEventArgs) End Sub
End Class
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货