Command
对象
简介
Command
对象最主要的工作是透过
Connection
对象对数据源下达操作数据库的命令。
我们以下列语法产生
Command
对象：
Dim cmA As Command = New ADOCommand
或是在产生对象的时候顺便指定属性：
Dim cmA As Command = New ADOCommand("CommandText",ActiveConnection)
Command
对象常用的属性：
|
属性
|
说明
|
|
ActiveConnection
|
设定要透过哪个连结对象下命令
|
|
CommandBehavior
|
设定Command 对象的动作模式
|
|
CommandType(Text\TableDirect\StoredProcedure)
|
命令型态(SQL 陈述、数据表名称、预存程序)
|
|
CommandText
|
要下达至数据源的命令
|
|
CommandTimeout
|
指令逾时时间
|
|
Parameters
|
参数集合
|
|
RecordsAffected
|
受影响的纪录笔数
|
范例中直接输入数据表名称，将数据表中的所有数据传回：
Dim cmA As Command
cmA.CommandType=CommandType.TableDirect
cmA.CommandText="Members"
Command
对象常用的方法
Execute
透过Connection 对象下达命令至数据源
Cancel
放弃命令的执行
ExecuteNonQuery
使用本方法表示所下达的命令不会传回任何纪录
Prepare
将命令以预存程序储存于数据源，以加快后续执行效率
产生独立的
Command
对象
使用
Command
对象，不一定要明确地宣告一个
Connection
对象。可以在产生
Command
对象的时候，将
ActiveConnection
参数所要指定的连结对象改成
ConnectionString
即可。不过
独立的
Command
对象并不代表不需要
Connection
对象，而是由
Command
对象来自动产生它。在使用独立的
Command
对象之前要明确的将连结打开，我们可以利用
ActiveConnection.Open()
方法来开启连结，如下所示：
Dim cmA As ADOCommand = New _
ADOCommand("SQL
陈述", "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Inetpub\wwwroot\cr\ch05\MyWeb.mdb;" & _"User ID=Admin"
cmA.ActiveConnection.Open() '
将连结打开
下面例子将使用者信息输入到数据库中：
Sub btnSubmit_Click(Sender As Object, e As EventArgs)
Dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\InetPub\wwwroot\CR\CH05\MyWeb.mdb"
Dim cmA As ADOCommand = New ADOCommand("",strConStr)
CmA.ActiveConnection.Open()
cmA.CommandText="Insert Into Members Values('" & _
Text1.Value & "','" & Text2.Value & "
’
,'" & _
Text3.Value & "','" & Text4.Value & "','" & _
Text5.Value & "','" & Text6.Value & "')"
cmA.Execute()
Sp1.InnerText="
这个叙述影响了" & cmA.RecordsAffected & "笔资料"
End Sub