2个回答
展开全部
dim conn as new adodb.connection
dim rec as new adodb.recordset
dim sSQL as string
conn.open "数据库连接串"
sSQL = "select a from aa" '从aa表中查询a字段
rec.CursorLocation = adUseClient
rec.Open sSQL, conn, adOpenForwardOnly, adLockReadOnly
If rec.RecordCount > 0 Then
rec.MoveFirst
MsgBox rec("a") '获取第一行的a字段值
End If
dim rec as new adodb.recordset
dim sSQL as string
conn.open "数据库连接串"
sSQL = "select a from aa" '从aa表中查询a字段
rec.CursorLocation = adUseClient
rec.Open sSQL, conn, adOpenForwardOnly, adLockReadOnly
If rec.RecordCount > 0 Then
rec.MoveFirst
MsgBox rec("a") '获取第一行的a字段值
End If
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询