怎么往Ado data 控件里的SQL语句传参数！给个例子！在线等！

Question

怎么往Ado data 控件里的SQL语句传参数！给个例子！在线等！

Answer 1

Dim Conn As New ADODB.Connection
Dim Rscmd As New ADODB.Command
Dim Rspar As New ADODB.Parameter
Dim rspar1 As New ADODB.Parameter
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
  Conn.Open "provider=sqloledb.1;password=zzf;persist security info=false;user id=sa;initial catalog=shengchan;data source=supper"
  With Rspar
   .Direction = adParamInput
   .Type = adVarChar
   .Size = 11
   .Value = "zh100001"
  End With
  With rspar1
   .Direction = adParamInput '设置为输入参数
   .Type = adInteger  '参数的类型
   .Value = 3  '参数的值
  End With
  
  With Rscmd
   .ActiveConnection = Conn
   .CommandText = "x"  'X为存储过程名字
   .CommandType = adCmdStoredProc
   .Parameters.Append Rspar
   .Parameters.Append rspar1
   Set rs = .Execute()
 End With
set cmdrs=nothing
set rspar=nothing
set rspar1=nothing
set rs=nothing
conn.close
set conn=nothing

Answer 2

不是这个意思啊！！
例如：一个Ado控件的名字为 adodc1 
他的查询方式为 adcmdtext SQL语句为 select * from data where dataname='?'
那个问号就是那个参数，然后再程序运行时可以把一个值作为参数传进来！！

Answer 3

"select * from data where dataname='" & text1.text & "'"

Answer 4

是ADO控件阿！！怎么比我还菜！！真败了！！

Answer 5

dim strTest as string strTest="aaaaaa"
Adodc1.RecordSource = "select * from data where dataname='"& strTest &"'"
TrimAdodc1.Refresh

Answer 6

select * from data where dataname='?'
这句话是在配置ADO控件时就打上的！那个问号就是个问号！！然后再代码中怎么做我忘记了！！拜托大家谁会阿！！

Answer 7

直接用好象不行（也许是我没有发现吧），如果不用控件而用ADO类型库到是好写。不过变通一下用yoki的方法也可以啊，只不过相比之下麻烦了一点。