怎么写带参数的查询

Question

请问，在MS SQL SERVER2000数据库中，怎么写带参数的查询啊。
在VB中用ADO技术怎么调用这个带参数的查询。
最好，给个示例。
谢谢了。

Answer 1

dim reader as oledbreader
dim comm as new oledbcommand
comm.connection=conn
comm.commandtext="select * from database where ID=@p1"
comm.parameters.add("@p1",datatype.int32,30)
reader=comm.executereader
大致是这样的

Answer 2

txtsql = "select * from supplier" & " where supplier_no=" & "'" & supptype_no & "'"