刚刚学VB 大家帮帮我

Question

Private Sub Command1_Click()
   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   
   Set cn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   
   cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\administrator.XCH-9A11C0925E5\My Documents\VB Programe\软件兴趣小组\综合测评管理系统\WarpUp.mdb;Persist Security Info=False"
   rs.Source = "select * from 用户表"
   Set rs.ActiveCommand = cn       '编译通过 执行出错了
   rs.Open
   End Sub我对数据库操作还不是很理解,rs.source 是用SQL语句查询么?
那结果怎样调用? 
错误如何解决?
比如 我想把用户表里面的用户名 在一个txt里面显示出来应该怎样做?
                                                              
                                 我弄了好几都不能解决       请大家帮帮我

Answer 1

request("txt")=RS("数据库里对应的字段名")

Answer 2

request("txt的name")=RS("数据库里对应的字段名")

Answer 3

这样写吧:Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordsetcn.open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\administrator.XCH-9A11C0925E5\My Documents\VB Programe\软件兴趣小组\综合测评管理系统\WarpUp.mdb;Persist Security Info=False"
"
rs.open "SQL语句",cn'.....
'用完后
rs.close
cn.close

Answer 4

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordsetcn.open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\administrator.XCH-9A11C0925E5\My Documents\VB Programe\软件兴趣小组\综合测评管理系统\WarpUp.mdb;Persist Security Info=False"rs.open "select * from Table",cn,adopenstatic
rs就包含了执行你的SQL语句后的结果行集
调用可以通过rs的函数(Movenext,Move....)取值是rs.Field("数据库中列名").value

Answer 5

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordsetcn.open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\administrator.XCH-9A11C0925E5\My Documents\VB Programe\软件兴趣小组\综合测评管理系统\WarpUp.mdb;Persist Security Info=False"rs.open "select * from Table",cn,adopenstatic
rs就包含了执行结果集
if not rs.eof then
while not rs.eof
...
...rs.fields(i).value   返回字段值
...   rs.fields(i).name   '返回列名
...
rs.movenext
wend
end if

Answer 6

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordsetcn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\administrator.XCH-9A11C0925E5\My Documents\VB Programe\软件兴趣小组\综合测评管理系统\WarpUp.mdb;Persist Security Info=False"rs.open "select * from TableName where fieldname=(你的条件) ",cn,adopenstatic,
         adLockBatchOptimistic
debug.print rs.fields("fieldname")'close the object
rs.close
cn.close