Question

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

求VB查询SQL2000数据库其中一个表,并且把表的内容或者数据全部显示出来的完整代码? 希望能详细的一个说明，从新建工程，引用，连接数据库，建立按钮，显示框等具体的操作。
谢谢.
新手求教!

Answer 1

我来给你个例子：
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 '读取数据到记录集
’假设MyTable这张表里有3个字段a,b,c
Do while Not rs.Eof
a = RTrim(LTrim(rs("a")))+"|" '加上|方便输出有分隔
b = RTrim(LTrim(rs("b")))+"|"
c = RTrim(LTrim(rs("c")))
OutStr=a+b+c
print #1,OutStr '往记事本里写记录
OutStr="" '写完一条，记得清空变量

MyCount=MyCount+1 '计数器加1
’窗体中的label1显示进度
Label1.Caption = "" & CStr(MyCount) & "/" & CStr(rs.RecordCount) & ""
rs.move next
Loop
close #1 '关闭记事本
rs.close
set rs=nothing
set conn2=nothing
msgbox "成功读取数据，请查看！"
errmsg:
if err.number<>0 then
MsgBox CStr(Err.Number) + CStr(Err.Description), vbExclamation, "错误！"
exit sub
end if

end sub

************************** 祝你成功喔！***************************
PS：“Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=要连的数据库;Data Source=SQL服务器名"

上面那句话里的中文 要填写上你自己的实际的内容。
还有就是我那个"select * from MyTable" MyTable 以及里面的字段 都要填写自己的内容喔！

Answer 2

也就是一个连接查询显示的问题，楼主有必要弄的哪么详细吗？