vb把数据库内容读取出来,显示在RichTextBox文本框里面,要完整点的代码,我用ADODC连接,数据库是SQL。

代码完整点,不是我看不懂,谢谢...
sub command1_click
ado1.recordsoure="select * from xxx" 'XXX是表名
do while not ado1.recoredset.eof
ado1.recoredset.movefirst
RichTextBox.text=RichTextBox.text+" " +ado1.recoredset!"CC" 'CC是字段名,有几个字段重复几次
.....
RichTextBox.text=RichTextBox.text+chr(13)
ado1.recoredset.movenext
loop
end sub
sub command1_click
ado1.recordsoure="select * from xxx" 'XXX是表名
do while not ado1.recoredset.eof
ado1.recoredset.movefirst
RichTextBox.text=RichTextBox.text+" " +ado1.recoredset!"CC" 'CC是字段名,有几个字段重复几次
.....
RichTextBox.text=RichTextBox.text+chr(13)
ado1.recoredset.movenext
loop
end sub
http://zhidao.baidu.com/question/410409860.html