使用ado对象进行搜索的问题,急,在线等~~~~~

Question

小弟想用vb做前台,sql2000做后台,作成一个图书管理系统
在sql中建立数据库library,其中有两张表,一张表名为:book,保存书籍的编号,名字
一张表名为:customer,保存客户编号,名字,所以借书籍的编号.
小弟想在一个窗体中设一个textbox,一个command,一个datagrid,
在textbox中输入书籍编号,点击command,在datagrid中显示出这个书的编号和名字.
小弟想把这个功能用ado对象来连接数据库,可是实行的时候老是不成功,
小弟是初学者,希望各位高手不吝赐教,能给我写一个比较完整的源码,谢谢大家
小弟在线等,小弟做练习急着要,请大家一定要帮帮我~~~~~

Answer 1

基本上都是模式化的了，先做一个连接，然后写sql,最后执行返回一个结果集给datagrid
dim conn as adodb.connection
dim rs as ado.recordset
dim sql as string
......
conn.connectionstring="...你的数据库连接字"
sql="select * from book where bookid like '%" & textbox.text & "%'"
rs.open sql,conn
set datagrid.datasource=rs
基本上是这些东西，细节自己完成吧

Answer 2

大侠们再帮忙看看:
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As StringPrivate Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "driver={sql server};" & _
    "server=.;uid=sa;pwd=meng5ting7wei5;database=library"
Set rs = New ADODB.Recordset
conn.Open
rs.Open "record", conn
sql = "select * from record "
Set DataGrid1.DataSource = rs
End Sub
运行的时候出现:
"实时错误7004 ,this rowset is not bookable"
这是什么回事呢?各路高手多来指点一下呀~~~

Answer 3

rs.Open "record", conn改為
rs.open "select * from record",conn
刪掉sql = "select * from record "
試試看

Answer 4

你上面說的好像沒有record這個表吧?
把record 改成你要打開的表名.

Answer 5

哦,不好意思,我重新写了一个数据库,database=library,table=record,customer

Answer 6

rs.Open "...", conn,adOpenDynamic, adLockOptimistic

Answer 7

還不行的話只能用DataGrid+ADODC,呵呵