oracle服务器名dell6600，用户sys，密码sys，有数据库lib，内有表user，字段id（主），sex，old，dead（1或者0）

id name sex old dead 1 王强 男 26 0 2 李三 女 76 1 3 大四 男 17 0

现在我要做一个简单的窗体，内部程序不知道怎么写，具体功能是这样的：

一个Textbox--Text1.text，用来输入数字，一个按钮command1--Commandbutton，用来执行命令。命令是，在id里查找输入的数字，然后在相同窗体显示出来，并且相应的dead字段变为0

比如说输入2，点击按钮后在下面显示 李三 ，同时id为2的记录里dead变为0

教教我啊，帮助我写一下程序啊，谢谢了

[此贴子已经被作者于2004-09-10 16:32:34编辑过]

引用ADO 2.X

Dim Conn As New ADODB.Connection Dim strConn As String ,strSQL As String strConn="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=[userid];Password=[password];Data Source=[服务]" Conn.Open strConn

strSQL="update [tablename] set dead=0 Where id=" & Text1.Text Conn.execute(strSQL) Conn.Close Set Conn=Nothing