Tabellenfelder und nu ?

Spezielle Fragen zu PostgreSQL, MySQL, SQLite, SQL ...
Antworten
yoda
Moderator
Beiträge: 605
Registriert: Mo 2. Jan 2006, 22:35
Wohnort: bei Nörten-Hardenberg
Kontaktdaten:

Tabellenfelder und nu ?

Beitrag von yoda » Fr 29. Mär 2024, 09:33

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
Moderator
Beiträge: 605
Registriert: Mo 2. Jan 2006, 22:35
Wohnort: bei Nörten-Hardenberg
Kontaktdaten:

Re: Tabellenfelder und nu ?

Beitrag von yoda » Fr 29. Mär 2024, 21:14

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

Benutzeravatar
Honsek
Foriker
Beiträge: 515
Registriert: Do 4. Okt 2007, 18:01
Kontaktdaten:

Re: Tabellenfelder und nu ?

Beitrag von Honsek » Di 9. Apr 2024, 13:25

Guten Tag Dirk,

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

Mit freundlichem Gruß

Honsek
Honsek (https://www.gambas-buch.de)
---> Wenn Du eine gute Antwort erwartest, musst Du sehr gut fragen!

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 0 Gäste