Tabellenfelder und nu ?

[yoda]

Moin,

Ich versuche eine Tabelle zu exportieren.
gambas code

Public Sub ButtonExport_Click()'Daten Exportieren
   Dim $hConn As New Connection
   Dim hResult As Result
   Dim hTable As Table
   Dim hField As Field
   Dim sql As String
   Dim a As String
   Dim FileName As String
   Dim verz As String
   
   FileName = Trim(ComboBoxTabellen.text) & ".csv"
   verz = "/home/" & user.Name & "/" & FMain.myordner & "/Export/"
   
   Try $hConn.Close
   db.Debug = True
      With $hConn
         .Type = "sqlite3" 
         .Host = "/home/" & user.Name & "/" & FMain.myordner & "/"
         .Name = "" & FMain.myordner & ".sqlite3"  ' 
      End With
      $hConn.Open
      hTable = $hConn.Tables[ComboBoxTabellen.text]
      For Each hField In hTable.Fields
          a = a & hField.Name & ";" 
      Next

   Print = a
    aa = Split(a, ";")
End

In der Variable a hab ich alle Tabellenfelder. Normalerweise würde ich es mit Print hResult!Feldname machen.
hResult.Fields(aa[1]) Funzt nich

Lg Dirk

[yoda]

Hi,

ich hab es jetzt so gelöst
gambas code

Shell "cd /home/" & user.Name & "/" & FMain.myordner & "/ ;sqlite3 -header -csv mienimmen.sqlite3 \"select * from " & ComboBoxTabellen.text & ";\" > " & verz & FileName

Lg Dirk

[Honsek]

Guten Tag Dirk,

diese Lösung ist erprobt: https://gambas-buch.de/doku.php?id=k6:k ... qslite2csv

Mit freundlichem Gruß

Honsek