VB.NET调用存储过程详细代码编写方式解读

VB.NET在使用带参数的存储过程进行调用的时候，应该如何编写具体的代码来进行功能去求的实现呢？下面就为大家带来了主要的操作技巧，希望能够在大家实际编写的过程中给与一些帮助。#t#

创新互联是一家专注于网站设计制作、成都网站设计与策划设计,项城网站建设哪家好?创新互联做网站,专注于网站建设十多年,网设计领域的专业建站公司;建站业务涵盖:项城等地区。项城做网站价格咨询:18982081108

VB.NET调用存储过程返回DataSet 的例子:

C# 代码 :通用类

public static int SingleSTCD
(DateTime StartTime,DateTime EndTime,
int SMTP,string JL,string STDCD,string
STCDSTR, out DataSet ds )
{
int ret=0;
ds=null;
OleDbConnection Constring=
new OleDbConnection(Appraise.ConStr);
OleDbCommand cmd=new OleDbCommand
("P_Get_STCD_SingleAppraise_XunQi",
Constring);
try
{
OleDbDataAdapter ada=
new OleDbDataAdapter();
cmd.CommandType=CommandType.
StoredProcedure;
cmd.Parameters.Add("@StartTime",
OleDbType.DBTimeStamp).Value=StartTime ;
cmd.Parameters.Add("@EndTime",
OleDbType.DBTimeStamp).Value=EndTime ;
cmd.Parameters.Add("@SMTP",
OleDbType.Integer).Value=SMTP ;
cmd.Parameters.Add("@JL", OleDbType.
VarChar, 50).Value=JL ;
//cmd.Parameters.Add("@STDCD",
OleDbType.VarChar, 50).Value=STDCD ;
//评价标准
cmd.Parameters.Add("@STCDSTR",
OleDbType.VarChar, 8000).Value=STCDSTR ;
System.Data.DataSet data = new DataSet();
ada.SelectCommand = cmd;
ada.Fill(data,"table");
ds = data;
ret=ds.Tables[0].Rows.Count;
if ( ret ==-1 )
{
return -1000; //无数据
}
else
{
return ret;
}
}
catch(Exception e)
{
//数据库操作发生错误,返回错误代码
System.Diagnostics.Debug.
WriteLine(e.Message);
return -1001;
}
finally
{
Constring.Close();
cmd.Parameters.Clear();
}

VB.NET调用存储过程:

 
 
   
  
  Private Sub BindingDataGrid_Query()    
  
  Dim ds As System.Data.DataSet    
  
  Zehua.Water.Appraise.SingleSTCD
("1999-5-1", "1999-9-1", 1, "Ⅲ", "", 
"50181300,50185050,50181350,50185100,
50185150,50185200,50185250,50181200,
50185150,51282300", ds)    
  
  DataGrid_Query.DataSource = ds   
  
  DataGrid_Query.DataBind()    
  
  End Sub

VB.NET调用存储过程返回数组字符串

REM 执行存储过程,返回一数组

 
 
   
  
  Public Shared Function ExecuteSP_ToArrary
(ByVal sConnString As String, ByVal 
Text_STCD As String, ByVal Text_TIME 
As String, ByRef TableInfo() As String)    
  
  Dim conn As OleDbConnection = 
New OleDbConnection(sConnString)    
  
  ReDim TableInfo(2)    
  
  Try    
  
  conn.Open()    
  
  Dim command As OleDbCommand = 
New OleDbCommand("P_GET_QueryValue", conn)    
  
  command.CommandType = CommandType.
StoredProcedure    
  
  Dim sqlParams() As OleDbParameter = 
{New OleDbParameter("@STCD", Text_STCD), 
New OleDbParameter("@GETM", Text_TIME), 
New OleDbParameter("@ReturnValue", OleDbType.
VarChar, 8000), New OleDbParameter
("@ReturnColumnCode", OleDbType.VarChar, 
8000), New OleDbParameter
("@ReturnColumnName", OleDbType.VarChar, 8000)}    
  
  sqlParams(2).Direction = ParameterDirection.Output    
  
  sqlParams(3).Direction = ParameterDirection.Output    
  
  sqlParams(4).Direction = ParameterDirection.Output    
  
  Dim i As Integer = 0   
  
  While i < sqlParams.Length   
  
  command.Parameters.Add(sqlParams(i))    
  
  i += 1    
  
  End While    
  
  command.ExecuteNonQuery()    
  
  If sqlParams(2).Value.ToString().Length > 0 Then    
  
  TableInfo(0) = sqlParams(2).Value.ToString()    
  
  Else    
  
  End If    
  
  If sqlParams(3).Value.ToString().Length > 0 Then    
  
  TableInfo(1) = sqlParams(3).Value.ToString()    
  
  Else    
  
  End If    
  
  If sqlParams(4).Value.ToString().Length > 0 Then    
  
  TableInfo(2) = sqlParams(4).Value.ToString()    
  
  Else    
  
  End If    
  
  Catch ex As Exception    
  
  ZeHua.Log.exNoteBugs(ex, "SigleStcdEdit.aspx") 
'sb.Append(ex.Message)    
  
  Finally    
  
  conn.Close()    
  
  End Try    
  
  End Function

以上就为我们为大家介绍的VB.NET调用存储过程的相关概念及操作方法。

网页名称：VB.NET调用存储过程详细代码编写方式解读
URL分享：http://www.shufengxianlan.com/qtweb/news26/8976.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容