Database export til Txt fil (SILENT)

Et eksempel på hvad jeg gerne vil bare i VBA (access) :

Function Go()
  Dim strSQL As String
 
  'DoCmd.SetWarnings False

  ' Sæt mærke
  DoCmd.RunSQL "UPDATE Tabel SET Medtag=True WHERE Eksporteret=False"
  ' DoCmd.RunSQL "UPDATE Tbl 1 SET Medtag=True WHERE EtEllerAndet=EtEllerAndet AND Eksporteret=False"
  ' Eksporter
  strSQL = "SELECT Tabel.* FROM Tabel WHERE Medtag=True"
  DoCmd.TransferText acExportDelim, , strSQL, "Filnavn.Txt", True
  ' Marker eksporterede poster
  DoCmd.RunSQL "UPDATE Tabel SET Eksporteret=True WHERE Medtag=True"
  ' Slet mærke igen (måske lidt overfødigt)
  DoCmd.RunSQL "UPDATE Tabel SET Medtag=False WHERE Medtag=True"

  DoCmd.SetWarnings True

  Application.Quit
End Function

Hvis jeg skulel gøre det så ville jeg læse hele tabellen ind i et dataset i første omgang, for at se om det virker - det er beskrevet her:http://www.vbdotnetheaven.com/UploadFile/mahesh/DBControlsVBNET04232005024802AM/DBControlsVBNET.aspx

Derpå, ændre SQL
en (du kan genbruge den du har i dit eksempel) og få de "rigtige" data ind

Derpå lave en Update metode for adapteren, så du kan opdatere i access

når alt det funket

så kan du spytte tabellen ud i en textfil rimeligt simpelt :
ger har jeg en stump i C#  den kan du omskrive eller konvertere til VB.

                               
string[] rowString = new string[dataSet11.Tables["Customers"].Rows.Count];
int i=0;
foreach (DataRow dr in dataSet11.Tables["Customers"].Rows)
{
    rowString[i] = dr.ItemArray.GetValue(0).ToString() + ",";
    rowString[i] += dr.ItemArray.GetValue(1).ToString() + ",";
    rowString[i] += dr.ItemArray.GetValue(2).ToString();
    i++;
}
File.WriteAllLines(@"C:\customer.txt", rowString);
MessageBox.Show("Data Exported to text file");

konverteringen kan ske automatisk her:

http://labs.developerfusion.co.uk/convert/csharp-to-vb.aspx

hvis noget er sort snak så sig hvad:)

Hej neoman
Det virker fint, MEN det med update, kan du give mig et HINT. TAK

Hej Neoman... sendt et svar og du får points...

Nu er dette spørgsmål jo længe overstået.

Men man kan faktisk godt lave en DoCmd.TransferText i .NET !

Eksempel:

Imports System
Imports System.IO
Imports System.Data.OleDb
Imports System.Runtime.InteropServices

Imports Access

Namespace E
    Public Class Program
        Public Shared Sub ExportOldWay(db As String, tbl As String, fnm As String)
            Dim ac As Application = New ApplicationClass()
            ac.OpenCurrentDatabase(db, False, "")
            Try
                ac.DoCmd.TransferText(AcTextTransferType.acExportDelim, Nothing, tbl, fnm, False, Nothing, 1252)
            Finally
                ac.CloseCurrentDatabase()
                ac.DoCmd.Quit(AcQuitOption.acQuitSaveNone)
                Marshal.ReleaseComObject(ac)
            End Try
        End Sub
        Public Shared Sub ExportNewWay(db As String, tbl As String, fnm As String)
            Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db)
                con.Open()
                Dim sw As New StreamWriter(fnm)
                Dim cmd As New OleDbCommand("SELECT * FROM " & tbl, con)
                Dim rdr As OleDbDataReader = cmd.ExecuteReader()
                While rdr.Read()
                    For i As Integer = 0 To rdr.FieldCount - 1
                        If i > 0 Then
                            sw.Write(";")
                        End If
                        If TypeOf rdr(i) Is String Then
                            sw.Write("""" & Convert.ToString(rdr(i)) & """")
                        Else
                            sw.Write(rdr(i))
                        End If
                    Next
                    sw.WriteLine()
                End While
                rdr.Close()
                sw.Close()
            End Using
        End Sub
        Public Shared Sub Main(args As String())
            ExportOldWay("C:\Databases\MSAccess\Test.mdb", "T1", "C:\z1.txt")
            ExportNewWay("C:\Databases\MSAccess\Test.mdb", "T1", "C:\z2.txt")
            Console.ReadKey()
        End Sub
    End Class
End Namespace