Question

我知道它不是1998年，但出于各种原因，我需要将VB6应用程序的数据库界面从ADO更改为DAO。我以前没有使用过DAO，我们所有的数据库事务都是使用存储过程在SQL Server 2008上进行的。如何在VB6中使用DAO执行带输入和输出参数的存储过程？

Answer 1

显然这是微软的方式：

http://support.microsoft.com/kb/168210

我使用的代码模板大致如下：

Dim rs As Recordset
Dim ws As Workspace
Dim db As Database
Dim sproc As String

Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase("", False, False, conString)

sproc = "EXEC sproc_AuditLog @site=" + siteID + ", @machine='" + MachineID + "'"
Set rs = db.OpenRecordset(sproc, dbOpenSnapshot, dbSQLPassThrough)
rs.Close

正如您所看到的，我实际上是在字符串中构建EXEC语句，然后使用dbSqlPassThrough将其直接发送到ODBC，因为DAO没有固有的方法来执行存储过程（例如ADO的Execute函数）。

Answer 2

您可以执行QueryDef，例如：

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim scn As String

Set db = CurrentDb

''http://connectionstrings.com
scn = "ODBC;Description=test;DRIVER=SQL Server;SERVER=server;" _
    & "Trusted_Connection=Yes;DATABASE=test"

''For this example
SiteID = 3
MachineID = "abc"

Set qdf = db.CreateQueryDef("")
qdf.Connect = scn
''This is important, if you wish to execute the query
qdf.ReturnsRecords = False
qdf.SQL = "dbo.sproc_auditlog @siteid=" & SiteID & ", @machine='" & MachineID & "'"
qdf.Execute dbFailOnError

VB6 - DAO - 存储过程

2 个答案: