1500字范文,内容丰富有趣,写作好帮手!
1500字范文 > VB.net 调用带参数存储过程

VB.net 调用带参数存储过程

时间:2021-01-09 04:33:53

相关推荐

VB.net 调用带参数存储过程

调用带参数存储过程, 调用带参数存储过程

--1:存储过程返回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();

OleDbCommand cmd=new OleDbCommand("P_Get_STCD_SingleAppraise_XunQi",

Constring);

try

{

OleDbDataAdapter ada=new OleDbDataAdapter();

;

("@StartTime", ).Value=StartTime ;

("@EndTime", ).Value=EndTime ;

("@SMTP", ).Value=SMTP ;

("@JL", , 50).Value=JL ;

//("@STDCD", , 50).Value=STDCD ;

//评价标准

("@STCDSTR", , 8000).Value=STCDSTR ;

data = new DataSet();

= cmd;

(,"");

ds = data;

ret=;

if ( ret ==-1 )

{

return -1000; //无数据

}

else

{

return ret;

}

}

catch(Exception e)

{

//数据库操作发生错误,返回错误代码

();

return -1001;

}

finally

{

();

();

}

调用:

Private Sub BindingDataGrid_Query()

Dim ds As

("1999-5-1", "1999-9-1", 1, "Ⅲ", "", "50181300,50185050,50181350,50185100,50185150,50185200,50185250,

50181200,50185150,51282300", ds)

= ds

()

End Sub

--1:存储过程返回数组字符串

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

()

Dim command As OleDbCommand = New OleDbCommand("P_GET_QueryValue", conn)

=

Dim sqlParams() As OleDbParameter = {New OleDbParameter("@STCD", Text_STCD),

New OleDbParameter("@GETM", Text_TIME),<

本内容不代表本网观点和政治立场,如有侵犯你的权益请联系我们处理。
网友评论
网友评论仅供其表达个人看法,并不表明网站立场。