VB中查询SQL数据库各个表并显示出来

Question

怎么样在VB中查询SQL数据库中的表内容
最后以文本形式显示出来？
快啊！最好是程序。

Answer 1

方法好多，如：可以把查询到的记录集导入到txt文本文件中。
要代码的加我。QQ：5658967

Answer 2

Dim sqlcon As New ADODB.Connection
Dim cmd as New ADODB.Command
Dim rs as new ADODB.Recordset
  sqlcon.Provider = "sqloledb"
  sqlcon.Properties("Data Source").Value = "SLMAIL"  '// SLMAIL 为SQL Server 服务器名
   sqlcon.Properties("Initial Catalog").Value = "BTS"        '//BTS 为已创建数据库名
   sqlcon.Properties("persist security info").Value = "False"
   sqlcon.Properties("user id").Value = "sa"
   sqlcon.Properties("password").Value = "**"
   sqlcon.Open
   cmd.commandtext="select sdate,sname from table"
    Cmd.ActiveConnection = sqlcon
   Set rs = Cmd.Execute
   Open "G:\test\data.txt" For Output As #1
 
 While Not rsprint.EOF
   
   THData = rs!sdate & vbTab & rsp!sname
   Print #1, THData
   rsp.MoveNext
 Wend
 Close #1
 rs.Cancel
 rs.Close
 sqlcon.Close大体就是这个步骤了，你可以把数据库连接写到 Module中

Answer 3

其中"G:\test\data.txt" 是什么文件？