参考:PriUserInsertSelf是 存储过程名 Public Sub InsertPriUserSelf(ByVal PriContentID As Int32, ByVal WorkNumber As String) Try m_conn.Open() Dim com As SqlCommand com = New SqlCommand("PriUserInsertSelf", m_conn) com.CommandType = CommandType.StoredProcedure com.Parameters.Add("@PriContentID", SqlDbType.Int, 4).Value = PriContentID com.Parameters.Add("@WorkNumber", SqlDbType.NVarChar, 20).Value = WorkNumber com.ExecuteNonQuery() Catch ex As Exception Throw New Exception(ex.Message) Finally m_conn.Close() End Try End Sub
不要太懒了,MSDN里面有很多代码可以用的,查查。
我自己写的一个,已经在使用中,参考一下。 Public Function Create( _ ByVal ZKeyno As String, _ ByVal WffzZKeyno As String, _ ByVal TName As String, _ ByVal ExtendCase As Integer, _ ByVal HitDate As DateTime) Dim parameters As SqlParameter() = { _ New SqlParameter("@ZKeyno", SqlDbType.VarChar, 23), _ New SqlParameter("@WffzZKeyno", SqlDbType.VarChar, 20), _ New SqlParameter("@TName", SqlDbType.VarChar, 20), _ New SqlParameter("@ExtendCase", SqlDbType.Int, 4), _ New SqlParameter("@HitDate", SqlDbType.DateTime)} parameters(0).Value = ZKeyno parameters(1).Value = WffzZKeyno parameters(2).Value = TName parameters(4).Value = ExtendCase parameters(5).Value = HitDate
Public Sub InsertPriUserSelf(ByVal PriContentID As Int32, ByVal WorkNumber As String)
Try
m_conn.Open()
Dim com As SqlCommand
com = New SqlCommand("PriUserInsertSelf", m_conn)
com.CommandType = CommandType.StoredProcedure
com.Parameters.Add("@PriContentID", SqlDbType.Int, 4).Value = PriContentID
com.Parameters.Add("@WorkNumber", SqlDbType.NVarChar, 20).Value = WorkNumber
com.ExecuteNonQuery()
Catch ex As Exception
Throw New Exception(ex.Message)
Finally
m_conn.Close()
End Try
End Sub
Public Function Create( _
ByVal ZKeyno As String, _
ByVal WffzZKeyno As String, _
ByVal TName As String, _
ByVal ExtendCase As Integer, _
ByVal HitDate As DateTime)
Dim parameters As SqlParameter() = { _
New SqlParameter("@ZKeyno", SqlDbType.VarChar, 23), _
New SqlParameter("@WffzZKeyno", SqlDbType.VarChar, 20), _
New SqlParameter("@TName", SqlDbType.VarChar, 20), _
New SqlParameter("@ExtendCase", SqlDbType.Int, 4), _
New SqlParameter("@HitDate", SqlDbType.DateTime)}
parameters(0).Value = ZKeyno
parameters(1).Value = WffzZKeyno
parameters(2).Value = TName
parameters(4).Value = ExtendCase
parameters(5).Value = HitDate
<%@ Import Namespace="System.Data.SqlClient" %>
<html>
<script language="C#" runat="server">
protected void Page_Load(Object Src, EventArgs E )
{
}
protected void query(Object Src, EventArgs E){
SqlConnection cn = new SqlConnection("server=localhost;uid=temp;pwd=temp;database=psms");
SqlCommand cm=new SqlCommand("select_customer", cn);
cm.CommandType=CommandType.StoredProcedure;
SqlParameter RetVal = cm.Parameters.Add("ReturnValue", SqlDbType.Int);
RetVal.Direction=ParameterDirection.ReturnValue;
SqlParameter Cid = cm.Parameters.Add("@cid", SqlDbType.Char, 8);
Cid.Direction = ParameterDirection.Input; SqlParameter Count = cm.Parameters.Add("@count", SqlDbType.Char, 8);
Count.Direction = ParameterDirection.Output;
SqlParameter Msg = cm.Parameters.Add("@msg", SqlDbType.Char, 40);
Msg.Direction = ParameterDirection.Output;
cm.Parameters["@cid"].Value=tcid.Text;
cn.Open();
//使用ExecuteNonQuery方法运行查询并返回参数值
string strRowAffect;
strRowAffect =cm.ExecuteNonQuery ().ToString() ;
Message.Text="msg:" ;
Message.Text+=Msg.Value+"<br>";
Message.Text+="Number of Rows:" ;
Message.Text+=Count.Value+"<br>";
Message.Text+="error code:" ;
Message.Text+=RetVal.Value+"<br>";
//DataReader对象返回只读的仅向前型数据流
SqlDataReader myReader=cm.ExecuteReader();
while (myReader.Read())
{
Message.Text+="customer_id:";
Message.Text+=myReader.GetString (0)+"<br>";
Message.Text+="customer_name:";
Message.Text+=myReader.GetString (1);
};
myReader.Close();
cn.Close();
}
</script>
<form runat="server">
<asp:Textbox id="tcid" runat="server" />
<asp:Button text="查询" Onclick=query runat="server" /><br>
<asp:label id="Message" runat="server" />
</form>
</html>