VB＋ADO 的查询问题

Question

--Oracle--SQL> set pagesize 300
SQL> set linesize 180
SQL> create table nametable(id number,name varchar(100))
  2  /表已创建。SQL> insert into nametable values(1,'张三')
  2  /已创建 1 行。SQL> ed
已写入文件 afiedt.buf  1* insert into nametable values(2,'李四')
SQL> /已创建 1 行。SQL> ed
已写入文件 afiedt.buf  1* insert into nametable values(3,'王五')
SQL> /已创建 1 行。SQL> commit
  2  /提交完成。----------------------------------------------------------------------------------VB--Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Commandcn.CursorLocation = adUseClient
cn.Open "Provider=MSDAORA.1;Password=test;User ID=test;Data Source=hw;Persist Security Info=True"'rs.Open "select * from nametable where name = '张三'", cn, adOpenDynamic, adLockOptimistic
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
cmd.CommandText = "select * from nametable where name = '张三'"Set rs = cmd.ExecuteSet DataGrid1.DataSource = rs
End Sub用rs直接打开也好，用cmd对象执行SQL语句也好，测试都是成功的，不知道你的程序是哪里出了问题。My Email:[email protected]

Answer 1

1、把程序中的select * from data where name='张三'拷贝到sqlplus命令行或sqlplusw下面执行试试。
2、检查连接的是不是同一个用户的表。

Answer 2

用
Set rs = ADO_Connection.Execute("select * from data where name='张三'")command用来执行insert update之类不返回记录集的sql