dim cnn as adodb.connection
dim rst as adodb.recordset
dim sqltxt as string
dim aa as string
dim sqltxt="select * from 表a where 字段='" & text1.text & "'"
cnn.open ...........打開數據庫
rst.open sqltxt,cnn
if rst.conunt<>0 then
aa=rst.fileds('字段名').value 這句可能有點錯,記不太清.
end if
set rst=nothing
set cnn=nothing
dim rst as adodb.recordset
dim sqltxt as string
dim aa as string
dim sqltxt="select * from 表a where 字段='" & text1.text & "'"
cnn.open ...........打開數據庫
rst.open sqltxt,cnn
if rst.conunt<>0 then
aa=rst.fileds('字段名').value 這句可能有點錯,記不太清.
end if
set rst=nothing
set cnn=nothing
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货