使用lotusscript如何实现带参数查询

zhang52766

哪位大侠写过这方面的需求啊？帮帮忙

icerain_1

使用NotesDatabase.Search

zhang52766

在下面的lotusscript中，此句 qry.SQL = "SELECT * FROM mytable ORDER BY NAME"
如何实现在sql语句中实现按条件语句查询？
如qry.sql="select * from mytable where  ..............."此句该怎样实现？？


Sub Click(Source As Button)
Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Dim msg As String
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("mytest")
qry.SQL = "SELECT * FROM mytable ORDER BY NAME"
result.Execute
msg = "Student names:" & Chr(10)
Do
  result.NextRow
  msg = msg & Chr(10)
  For i = 1 To result.NumColumns
   msg = msg & "  " & result.Getvalue(i)
  Next
Loop Until result.IsEndOfData
Messagebox msg,, "Student data"
result.Close(DB_CLOSE)
con.Disconnect

zhang52766

我说的是where语句中如何进行按条件查询
如where name=表单中的”name”域

zhang52766

没人懂吗？高手在哪里啊啊！·！！！！！！！！！！！！！！！！！！！！

pqiiang0903

input_name=Inputbox("请输入你的名字！","提示！")
SQL="....where user_name='  "&input_name+" ' "
我做了个这样的测试，好像可以啊！

WangAlice

这里高手去集啊，佩服！