VB中查询SQL数据库中的表内容

来源：互联网发布：位面淘宝之古代日常txt 编辑：程序博客网时间：2024/06/15 01:40

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

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中