如何读取数据写入vb变量中

Question

数据库a中字a1 的值为 s2如何用VB程序读取 s2 。然后赋值给一个定义好的变量。。

Answer 1

declare @s varchar(20)
set @s=s2
select * from tb where a1=@s

Answer 2

dim count as integer
count = 0
set cnn = new adodb.conncetion
set rs = new adodb.recordset
cnn.open"连接数据库语句"
rs.open"select a1 from a where a1 = 's2'" ,cnn
do while rs.eof =false
count=rs.Fields(a1) 
rs.movenext
loop
rs.close 

Answer 3

strsql = "select * from tb where a1='" & 变量 & "' 

Answer 4

工程->引用Microsoft Active Data Object 2.X
dim con as new adodb.connection
con.open "provider=sqloledb.1;initial catalog = dbname;integrated security =sspi";dim rs as new adodb.recordset
rs.cursorlocation = adclient;rs.open "select top 1 s2 from tb",con,1,3dim 变量 as string变量 = rs.fields("s2").valuers.close
con.close