Question

在VB程序中要查询数据库中的信息，代码怎么写？

我用的是ADO连接的SQL数据库，但是我不会写代码，看了很多但是写了之后就是不对！因为我是菜鸟刚学的所以求教高手指点一下，代码月详细越好，最好有说明，谢谢你们！

Answer 1

SQL数据库是SQL Strver 2000数据库吗？连接SQL Strver 2000数据库其实是比较简单的，关键是你在安装SQL Strver 2000数据库时的设置，比如登录、密码等，如果你在安装时设置的登录是sa，密码为空，那么连接数据库的SQL语句为（假定数据库名为SJK，服务器名为ASSW）：
Public db As New ADODB.Connection '连接数据库对象的声明
db.ConnectionTimeout = 10
db.CursorLocation = adUseServer
db.ConnectionString = "driver={SQL Server};server=ASSW;uid=sa;pwd=;database=SJK"
db.Open
上面是连接SQL数据库的代码，但是还没有连接数据表（假定数据表名为SJB）。
Public RS As New ADODB.Recordset '记录集对象的声明
strSQL = "select * from SJB Order By ID" '注意这个SQL语句是最简单的，根据你的需要修改它。
RS.Open strSQL, db, 2, 2
'这里就可以读取数据了，别忘记关闭使用过的对象
RS.Close '关闭记录集对象
Set RS = Nothing
db.Close '关闭数据库连接对象
Set db = Nothing