Dim rs As ADODB.Recordset
Dim sqlstr As String
'查询
sqlstr = "select * from 表名 where 字段名 = '" & 查询的内容 & "'"
rs = VScn.Execute("" & SqlStr & "")
If Not rs.EOF Then
TextBox1.Text = rs("字段名").Value.ToString
End If
'修改
sqlstr = "update 表名 set 字段名= '" & 要修改的内容 & "' where 字段名= '" & 查询的内容 & "'"
VScn.Execute(sqlstr)
'删除
sqlstr = "delete from 表名 where 字段名= '" & 查询的内容 & "'"
VScn.Execute(sqlstr)
declare @XML XML
SET @XML='<root>
<OLDVALUE>
<H_Action id="1130">030</H_Action>
<D_Action>030</D_Action>
<OrderCompany>00220</OrderCompany>
<OrderNumber>10004035</OrderNumber> ......
触发器是一种特殊的存储过程，在用户试图对指定的表执行指定的数据修改语句时自动执行。Microsoft® SQL Server™ 允许为任何给定的 INSERT、UPDATE 或 DELETE 语句创建多个触发器。
1、INSERT触发器：可以定义一个无论何时用INSERT语句向表中插入数据时都会执行的触发器。
......
