在vb中如何调用带两个输入参数begindate，enddate（参数为8位的datetime型，4[2人参与]

当前位置：首页

开发技术指南» 文章正文

引言：

摘要：方法或者使用工具？我将一些图片使用photoshop直接调整尺寸，改变后的图片就失真了，模糊和产生棱角。如何才能让其改变大小的时候保持原有的清晰度？ ......

·：关于request »显示摘要«

摘要： dim n,i n = 4 for i = 0 to n %> <input type=text name=text_<%=i%>> <% next %> 这样的话，文本框的值如何取得？ ......

旧题新问

在vb中如何调用带两个输入参数begindate，enddate
的存储过程，即在vb界面中如何通过控件或其它方式传两个时间值给存储过程，时间由用户的需要决定
能否用文本框输入，如可以，如何编程并进行数据转换？如不能用文本框，其它的方法都行！！！

注：在sql中执行此存储过程的语句为 exec2003-01-01,2003-06-30

解决的方法为：
Dim cn As New ADODB.Connection
cn.Open ConnectString
Dim CC As New ADODB.Command
Set CC.ActiveConnection = cn
CC.CommandText = "test"你的存储过程
CC.CommandType = adCmdStoredProc
CC.Parameters.Refresh
CC.Parameters("@begindate") = Trim(text1.text)这里你自己加个时间转换的函数
CC.Parameters("@enddate") = Trim(text2.text)
CC.Execute

希望哪位能将此程序补充完整：即加上与数据库连接语句和时间转换的过程
我要连接的数据库为本机上的settleDB 登陆帐号：sa 密码：无
在此先谢了！

NO.1 作者： txlicenhe

ConnectString =
"Provider=SQLOLEDB.1;SERVER=local;DATABASE=settleDB;UID=sa;PWD="

NO.2 作者： zjcxc

VB中,可以用format函数来格式化数据

Dim cn As New ADODB.Connection
cn.Open ConnectString
Dim CC As New ADODB.Command
Set CC.ActiveConnection = cn
CC.CommandText = "test"你的存储过程
CC.CommandType = adCmdStoredProc
CC.Parameters.Refresh
CC.Parameters("@begindate") = format(Trim(text1.text),"yyyy-mm-dd") 用format将日期转换成如下格式2003-06-30
CC.Parameters("@enddate") = format(Trim(text2.text),"yyyy-mm-dd")
CC.Execute

·日期格式转化问题 »显示摘要«

摘要： convert(char(8),time,112)可以把日期格式的转化成8位的字符，怎么把日期格式的转化有带时间秒或到分钟的字符串如200308121424 ......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：