docmd clear me please

[sal21]

I few day ago Hans suggest me to export a fields with delimited ";" to use a docmd ...
But i have this prob:
I need to export not all fields but for example field1, field5, ecc... from table1 where field5= ecc...
Is possible to integrate into the command line a string query just created from other use inexisting part of code in my vb6 project?

[HansV]

DoCmd.TransferText only works with tables and (stored) queries, not with SQL strings.

One option would be to create a stored query with the SQL that you need, and to export that using DoCmd.TransferText.

Another option would be to open a recordset and to write it to a text file line by line.

[sal21]

DoCmd.TransferText only works with tables and (stored) queries, not with SQL strings.

One option would be to create a stored query with the SQL that you need, and to export that using DoCmd.TransferText.

Another option would be to open a recordset and to write it to a text file line by line.

"create a stored query..." into the access data base?

[HansV]

Yes.

[sal21]

Yes.

Ok, and how to integrate into the docmd command line the query nmed Query1?

[HansV]

For example:

DoCmd.TransferText acExportDelim, , "Query1", "C:\Documents\MyFile.txt", True

[sal21]

For example:

DoCmd.TransferText acExportDelim, , "Query1", "C:\Documents\MyFile.txt", True

OK perfect test and it work !!!!!!!!!!!!!!!!!

But only a tips.

Admit i have a myquery in access database similar:
select * from my table where filed1="Data"

i know is possible to call via RS.Open "myquery", CONN..ecc but admit Data is a variable is possible to pass this param from my vb6 codfe into query stored in access database?

Peraphs i'm stupid but...

[HansV]

You need the ADOX library for that: set a reference to the "Microsoft ADO Ext. 2.n for DDL and Security" library (the version number depends on your installation).

See Creating and Modifying Stored Queries in Microsoft Access Databases with ADOX

[sal21]

You need the ADOX library for that: set a reference to the "Microsoft ADO Ext. 2.n for DDL and Security" library (the version number depends on your installation).

See Creating and Modifying Stored Queries in Microsoft Access Databases with ADOX

This tips ?:
Modifying a Query

Code: Select all

Sub ModifyQuery(strDBPath As String, _
                strQryName As String, _
                strSQL As String)
   Dim catDB As ADOX.Catalog
   Dim cmd   As ADODB.Command
   
   Set catDB = New ADOX.Catalog
   ' Open the Catalog object.
   catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=" & strDBPath
   
   Set cmd = New ADODB.Command
   ' Get the query from the Procedures collection.
   Set cmd = catDB.Procedures(strQryName).Command
   
   ' Update the query's SQL statement.
   cmd.CommandText = strSQL
   
   'Save the updated query.
   Set catDB.Procedures(strQryName).Command = cmd
   
   Set catDB = Nothing
End Sub

[HansV]

Yes, indeed.

[sal21]

Yes, indeed.

ops!
Errore 3265(?!)

[HansV]

For a query, use Views instead of Procedures.

[sal21]

For a query, use Views instead of Procedures.

AS USUAL....