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

最新推荐文章于 2021-02-11 06:04:58 发布

samwei2008

最新推荐文章于 2021-02-11 06:04:58 发布

阅读量3k

点赞数

CC 4.0 BY-SA版权

文章标签：数据库 vb sql sql server security output

本文链接：https://blog.youkuaiyun.com/samwei2008/article/details/1672030

本文介绍了一种使用VB从SQL数据库中检索数据并将结果输出到文本文件的方法。通过建立数据库连接并执行查询，可以方便地获取指定表的内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

怎么样在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