刚开始学VB，要做一个打印程序，急。

Question

是用VB和SQL SERVER2000做的，只要用VB能够打印出SQL SERVER中随便一张表的字段来，谢谢哪位大虾

Answer 1

dim f as field
rs.open "select * form tablename",cn
do while not rs.eof
  for each f in rs.fields
    printer.print f.value;
  next
  rs.movenext
loop
printer.enddoc

Answer 2

你可以到出道excel再打印

Answer 3

上面的代码忘了换行：dim f as field
rs.open "select * form tablename",cn
do while not rs.eof
  for each f in rs.fields
    printer.print f.value;
  next
  rs.movenext
  printer.print
loop
printer.enddoc

Answer 4

1.使用系统表
2.使用ADOX.Catlog.Tables("yourTableNameHere").Columns返回所有的列，例如 cols，
然后使用 
For Each col In cols
  '取出每个列，访问其各种属性
  debug.print col.name
Next 

Answer 5

Dim flds as field
rs.open "select * form table1",con
Do While Not rs.eof
  For each flds in rs.fields
    Printer.print flds.value;
  next flds
  rs.moveNext
  Printer.print
Loop
Printer.enddoc

Answer 6

谢谢以上的回复，我刚开始用VB，我写 
Dim f As field
的时候，没有field这个选项啊

Answer 7

看来你要从MSDN开始读起了，上面的代码是直接向打印机输出字符串。你只要把数据库中的数据取出就OK啦。建议还是用一些打印控件较好，看看其他贴子就可以了。我也是VB初学，随便说说的。

Answer 8

要加mircrosoft active database object libary 引用，就是在工程－引用菜单中