如何用VB实现ISBN网络检索

Question

想用VB制作图书管理软件,要怎样才能实现输入ISBN自动检萦图书信息,请告诉思路,有代码就更好了

Answer 1

你需要有一个数据库，存储图书信息。假设数据库表叫做books，里面有一个字段叫做isbn，一个字段叫做bookname
有个文本框，叫text1，用来输入isbn
有个按钮，那么按钮里面写
dim conn as adodb.connection
conn.open 连接字符串
dim sql as string
sql = "select * from books where isbn='" & text1.text & "'"
dim rt as adodb.recordset
rt.open(sql, conn)
if not rs.eof then
msgbox rs!bookname
end if