VB查询SQL2000数据库其中一个表的内容并显示出来的完整操作代码？

我来给你个例子：
1 新建工程；在窗体上加入一个按钮command1，一个标签label1,
2 添加引用；工程-引用-Microsoft ActiveX Data Objects 2.7 Library；
3 将工程保存在d:\MY_project文件夹中，并在里面建一个DataView.txt文件；
代码如下：
private sub command1_click
on error goto errmsg '遇到错误，转到errmsg
dim MyConStr as string '连数据库字符串
dim MyCount as Long '读取的数据条数
dim sqlstr as string '查询语句
dim OutStr as string '输出结果
dim a as string '对应表中的字段a b c
dim b as string
dim c as string
dim conn2 as New ADODB.connection ’连接对象
MyConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=要连的数据库;Data Source=SQL服务器名"
conn2.open MyConStr '建立数据库连接
dim rs as New ADODB.Recordset ’创建数据集对象
sqlstr="select * from MyTable"
'打开记事本
Open "d:\MY_project\DataView.txt" for append as #1
rs.open sqlstr,conn2,1,1 '读