越详细越好,谢谢了
解决方案 »
- 如何从form1中改变用户控件中的txtMain.ForeColor??急求~~!
- 刚做的网络象棋对弈
- 如何实现应答ping命令??? 各位牛人帮帮忙.......
- 很不解的问题!!
- picture控件 先loadpicture再savepicture再loadpicture为何图像height少了5 twips?
- 如何正确处理'的问题
- 一到选择,急~~~~~~~救命
- 怎样历遍注册表中一个项下的子项和键值,读出其中得值?
- vb winsock 跨网通讯(udp)谁有源码实例呀
- 使用Activeskin.ocx如何发行安装程序
- 请问在VB中如何添加背景音乐并且可以实现循环播放啊,在线候。谢!
- 在 Internet 上的文件传输解决方案.
as
begin
select @name=customername from customers where customerid= @id
End
Dim cmd As ADODB.Command
Dim par1 As ADODB.Parameter
Dim par2 As ADODB.Parameter
Set cmd = New ADODB.Command
cmd.CommandText = "test"
cmd.CommandType = adCmdStoredProc
Set par1 = cmd.CreateParameter("a", adInteger, adParamInput, , 3)
cmd.Parameters.Append par1
Set par2 = cmd.CreateParameter("b", adVarChar, adParamOutput, 20)
cmd.Parameters.Append par2
Set cmd.ActiveConnection = cnDatabase
cmd.Execute
Debug.Print par2.Value
Set cmd = Nothing