31
Programmazione / gb.calendar
« il: 17 Settembre 2010, 00:19:39 »
Ho iniziato da poco un nuovo progetto e mi serviva un calendario 'diverso' dal solito calendario di gambas...
Allego sorgenti
Allego sorgenti
19/05/2023: A causa di un errore sono stati cancellati, insieme ad account creati da bot, alcuni account legittimi. Si prega di leggere qui: https://www.gambas-it.org/smf/index.php?topic=9733.0
Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.
paolo@hpmilio:~$ sqlite3 eolico.db
SQLite version 3.6.22
Enter ".help" for instructions
Enter SQL statements terminated with a ";"
sqlite> .separator "\t"
sqlite> .import file.csv log_anemometro
sqlite>
Public Sub Load(Path As String)
Dim Nx As Integer
Dim Rec As New String[]
Dim Fields As New String[]
$Txt = File.Load(Path)
Rec = Split($Txt, "\n", "", True)
$Query = "BEGIN;" & Chr(10)
For Nx = 0 To Rec.Max
Fields = Split(Rec[Nx], "\t")
$Query &= "INSERT INTO log_anemometro (data,valore,qualita) VALUES ('" & Format$(CDate(Val(Fields[0])), "yyyy-mm-dd hh:nn:ss") & "'," & Fields[1] & "," & Fields[2] & ");" & Chr(10)
ArrayCsv.Add(Fields.Copy())
Next
$Query &= "END;"
End
Public Sub Load(Path As String)
Dim Nx As Integer
Dim Rec As New String[]
Dim Fields As New String[]
Dim FileTemp As Stream
$Txt = File.Load(Path)
Rec = Split($Txt, "\n", "", True)
FileTemp = Open User.Home &/ "eolico.sql" For Create
Print #FileTemp, "BEGIN;"
For Nx = 0 To Rec.Max
Fields = Split(Rec[Nx], "\t")
Print #FileTemp, "INSERT INTO log_anemometro (data,valore,qualita) VALUES ('" & Format$(CDate(Val(Fields[0])), "yyyy-mm-dd hh:nn:ss") & "'," & Fields[1] & "," & Fields[2] & ");"
ArrayCsv.Add(Fields.Copy())
Next
Print #FileTemp, "END;"
FileTemp.Close()
$Query = File.Load(User.Home &/ "eolico.sql")
End
EXEC ["rotazioni.gambas", "-c", cd_cliente, "-a", anno, "-m", mese]
PUBLIC ConnFireBird AS New Connection
PUBLIC SUB ConnettiDb()
WITH ConnFireBird
.Type = "firebird"
.Host = "192.168.1.110"
.Name = percorso
.Login = mioLogin
.Password = miaPassowrd
.Port = "3050"
.Open()
END WITH
END SUB
Cannot find driver for database: FireBird.