Private Sub ibnSend_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ibnSend.Click
Dim conn As SqlConnection = New SqlConnection(cnstring)
conn.Open() Dim mycommand As SqlDataAdapter = New SqlDataAdapter("select * from 公告板", conn)
Dim mycb As SqlCommandBuilder = New SqlCommandBuilder(mycommand)
Dim mydataset As DataSet
mydataset = New DataSet()
mycommand.Fill(mydataset, "公告板")
Dim mytable As DataTable = mydataset.Tables("公告板")
Dim mydatarow As DataRow
mydatarow = mytable.NewRow mydatarow(0) = Trim(tbxTitle.Text)
mydatarow(1) = RTrim(tbxContent.Text)
mydatarow(2) = Trim(tbxTime.Text)
mydatarow(3) = Trim(tbxUnit.Text)
mydatarow(4) = Trim(tbxSender.Text)
mydatarow(5) = Trim(tbxPhone.Text)
mydatarow(6) = Trim(ddltype.SelectedItem.Value)
'mydatarow(7) = Trim(lblEmail.Text)
mytable.Rows.Add(mydatarow)
mycommand.Update(mydataset, "公告板") Response.Write("<script language=javascript>alert(" + Chr(34) + "公告发布成功!" + Chr(34) + ")</script>") End Sub
Dim conn As SqlConnection = New SqlConnection(cnstring)
conn.Open() Dim mycommand As SqlDataAdapter = New SqlDataAdapter("select * from 公告板", conn)
Dim mycb As SqlCommandBuilder = New SqlCommandBuilder(mycommand)
Dim mydataset As DataSet
mydataset = New DataSet()
mycommand.Fill(mydataset, "公告板")
Dim mytable As DataTable = mydataset.Tables("公告板")
Dim mydatarow As DataRow
mydatarow = mytable.NewRow mydatarow(0) = Trim(tbxTitle.Text)
mydatarow(1) = RTrim(tbxContent.Text)
mydatarow(2) = Trim(tbxTime.Text)
mydatarow(3) = Trim(tbxUnit.Text)
mydatarow(4) = Trim(tbxSender.Text)
mydatarow(5) = Trim(tbxPhone.Text)
mydatarow(6) = Trim(ddltype.SelectedItem.Value)
'mydatarow(7) = Trim(lblEmail.Text)
mytable.Rows.Add(mydatarow)
mycommand.Update(mydataset, "公告板") Response.Write("<script language=javascript>alert(" + Chr(34) + "公告发布成功!" + Chr(34) + ")</script>") End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货