Question

VB中怎样把sql语句的查询结果赋值给一个变量

Dim temp As New ADODB.Recordset
temp = "select Keyword from Logintable where Usename='" & Trim(TxtUsername.Text) & "'"
If temp = TxtKeyword.Text Then
FormStudent.Show
End If
各位回答问题的哥哥或姐姐们，你们的回答我都看过了，可我还是不太懂
我就是想申请一个变量temp，然后把select语句查询的结果赋给temp，通过比较temp与Txtkeyword的值是否一致
小弟我不知道dim temp as 什么呀 后面怎么写呀

Answer 1

查询结果如果只有一个值，可以用
val=conn.execute("select fileld from 表名 where id=1")(0)

如果有多个值，要用getRowss()，如
SQL="select * from 表名"
Set Rs=conn.execute(SQL)
arrA = rs.GetRows()
这样得到的是一个数组。

Answer 2

我不知道你的语句为什么会产生重复的结果，最好检查一下你的代码。关于将语句输出赋值到变量的问题请你参照一下我测试的这份代码
get_msisdn()
{
echo -e "
set feedback off;\n
set pagesize 0;\n
spool result.log;\n
select prono from pl.tbassignp where model = 'ZFN';\n
spool off;\n
exit;
" > query.sql

sqlplus pl/oracle@mydb @query.sql|head -0

result=`cat result.log`

echo $

exit
}

get_msisdn

它首先设置输出的格式如set feedback off; set pagesize 0;，然后将语句的输出指定到文件result.log，最后使用cat命令将结果显示并赋值给变量result。

Answer 3

set rs=conn.execute("select * from 表名 where 1=1")
dim str1=rs("字段")

这儿的str1就是变量，已经把数据库的一个字段赋值给它了

追问

字段是哪个字段呀

追答

我怎么知道你的字段是什么
你要哪个字段，就写上哪个字段的名字呗