'在工程菜单中引用Microsoft DAO…… '然后这样执行 Dim SqlStr As String Dim cn As Database Dim a As Recordset sqlstr="SELECT 学号 from 输入记录 WHERE 语文=88" Set a = cn.Execute(SqlStr)
'哦,忘了还要打开数据库:'在工程菜单中引用Microsoft DAO…… '然后这样执行 Dim SqlStr As String Dim cn As Database Dim rs As Recordset Set cn = OpenDatabase("你的数据库路径", 3, 3) sqlstr="SELECT 学号 from 输入记录 WHERE 语文=88" Set rs = cn.Execute(SqlStr)
SELECT 学号 into a from 输入记录 WHERE 语文=88 //好象主要用在游标时候的语句,呵呵
你在查询分析器里面就执行这一句话,还是这个错吗?
'然后这样执行
Dim SqlStr As String
Dim cn As Database
Dim a As Recordset
sqlstr="SELECT 学号 from 输入记录 WHERE 语文=88"
Set a = cn.Execute(SqlStr)
人家的SQL语句,你当普通的VB语句来用,在VB语法中Select当然要配着Case来用
'然后这样执行
Dim SqlStr As String
Dim cn As Database
Dim rs As Recordset
Set cn = OpenDatabase("你的数据库路径", 3, 3)
sqlstr="SELECT 学号 from 输入记录 WHERE 语文=88"
Set rs = cn.Execute(SqlStr)