本篇文章给大家分享的是有关VB.NET中怎么调用存储过程，小编觉得挺实用的，因此分享给大家学习，希望大家阅读完这篇文章后可以有所收获，话不多说，跟着小编一起来看看吧。
八种常用VB.NET语法详解
VB.NET事件通道使用技巧须知
实际操作VB.NET启动外部程序技巧讲解
迅速实现VB.NET图像操作方法简介
VB.NET多窗体实际编写方式讲解
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中怎么调用存储过程，小编相信有部分知识点可能是我们日常工作会见到或用到的。希望你能通过这篇文章学到更多知识。更多详情敬请关注亿速云行业资讯频道。
亿速云「云服务器」，即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘，价格低至29元/月。点击查看>>
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
