ADO Equivilent to DAO CreateQueryDef method?

[jgoodman00]

I have the following code:
Dim db as DAO.Database
Dim qdf as DAO.QueryDef
Set db = CurrentDb
Set qdf = db.CreateQueryDef(strName, Me.txtSQL)

I want to accomplish the same, but in ADO. How is this done?? James Goodman

http://www.james-goodman.co.uk

 

[Quehay]

You'll need to use the ADOX library (Active Data Objects for DDL & Security refence).

I haven't done this but this code snippet from Help should be in the ballpark (without the parameter stuff):

[tt]
Sub CreateProcedure()

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim prm As ADODB.Parameter
Dim cat As New ADOX.Catalog

' Open the Connection
cnn.Open _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=c:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb;"

' Create the parameterized command (Microsoft Jet specific)
Set cmd.ActiveConnection = cnn
cmd.CommandText = "PARAMETERS [CustId] Text;" & _
"Select * From Customers Where CustomerId = [CustId]"

' Open the Catalog
Set cat.ActiveConnection = cnn

' Create the new Procedure
cat.Procedures.Append "CustomerById", cmd

End Sub

[/tt]