Visualizza post

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.


Post - Murduk

Pagine: [1]
1
Mi spiego subito. Devo estrarre da una data base dei dati che corrispondono ad una scadenza.
In pratica estraggo mediante una query o sql mettendo come parametro un filtro. Sicuramente quello che mi sta fregando sono le / che separano la data 02/11/2018
perché la stessa sql con un dato senza le / funziona. Ma non capisco come fare. Passo il codice e così vedete.
Codice: [Seleziona]
'' Gambas class file
' Proviene da Un Modulo
Private hconn_giorno As Connection
Private hresult_Isi As Result
Private hresult_Preu As Result

'*************************

Public Sub Form_Open()
Dim result_isi As Result
Dim Filtro_Isi As String

'Dim Popola As String
   Try Mkdir User.Home &/ ".visor"
 
        hconn_giorno = Modulo_connectDB.ConectBase()
       
   TextBox5.Text = TextBox2.Text & "/" & TextBox3.Text & "/" & TextBox4.Text     
       
       
        Filtro_Isi = TextBox5.Text
       
       
       'TextBox6.Text = Filtro_Isi
         ' Eseguo una richiesta alla tabella datix_isi del database con una select
       result_Isi = hconn_giorno.Exec("Select Scadenza from datix_isi where Scadenza like  '" & Filtro_Isi & "'")
       
     Label5.Text = result_Isi["Scadenza"]   '1'


hconn_giorno.Close

End





il problema è nel punto contrassegnato con 1. il programma mi dice: Result is not avaiable
 :hard: :hard: :hard:

2
Salve. come da oggetto, ho risolto in questo modo "non sarà troppo professionale", ma posso accontentarmi:

In un form ho messo 3 textbox in proprietà visible false e una label dove ho indirizzato il print.
 Public Sub Button1_Click()
 
  TextBox1.text = Day(Now)
 
  TextBox2.text = Month(Now)

  TextBox3.text = Year(Now)

   Label1.Text = TextBox1.Text & "/" & TextBox2.Text & "/" & TextBox4.Text
End

sicuramente ci sarà una forma più professionale. :rolleyes: :rolleyes: :ciao: :ciao:

3
Programmazione / Re:Come editare un record
« il: 09 Febbraio 2018, 23:31:42 »
 :D :D Ho Risolto cosi:
Codice: [Seleziona]
Public Sub Button2_Click()
Dim risultato_1 As Result
  Dim Filtro_1 As String
 
 
   Try Mkdir User.Home &/ ".visor"
 
        hconn_Isi = Modulo_connectDB.ConectBase()
       
       
       
        Filtro_1 = TextBox1.Text
       
        risultato_1 = hconn_Isi.Edit("datix_isi", "id=" & Filtro_1)
       
        risultato_1!propiet_app = TextBox1.Text
        risultato_1!cod_fis_prop = TextBox2.Text
        risultato_1!gesto_eser = TextBox3.Text
       
 risultato_1.Update
 hconn_Isi.Commit
 hconn_Isi.Close
End
:rolleyes: :ciao.

4
Programmazione / Come editare un record
« il: 09 Febbraio 2018, 22:15:48 »
Scusate potete farmi capire perchè non riesco a editare un record utilizzando questo codice. Dove sta l'errore?
Codice: [Seleziona]
Public Sub Button2_Click()
 Dim sName As String ' sName è una variabile che indica il nome che diamo al nostro database
 Dim sPercorso As String ' indica il percorso in cui andremo a creare il db
 Dim $hConn As New Connection
 Dim hres As Result
 Dim sql As String
 
 
 sName = "base"
 
   sPercorso = User.Home &/ ".visor"   ' definiamo come percorso la nostra home
 
   With $hConn
     .Type = "sqlite3"   ' indicazione del tipo di database da utilizzare
     .Host = sPercorso
     '''.Login = ""
     ' .Password = ""
   End With
   
   $hConn.Name = sName
   $hConn.Open
 
   $hconn.Begin
 
   ' Preparo la tebella dove ediatre i dati dati
  hres = $hConn.Edit("datix_preu",propiet_app, cod_fis_prop, gesto_eser)
   
 ' Associo i dati della textbox al record della tabella
   
  hres!propiet_app = TextBox1.Text
   hres!cod_fis_prop = TextBox2.Text
   hres!gesto_eser " = TextBox3.Text"
 
   hres.Update
 
   $hConn.Commit
   'Chiudo in batabase
   $hConn.Close
End
Grazie
 :hard: :hard:

5
Grazie. Sapresti dirmi dove posso trovare una guida esaustiva per le proprietà? possibilmente in Italiano. ;)

6
Salve. E' da tanto che non programmo, premetto che uso da molti anni le distro di linux. Fedora, Debian, Gentoo e da quasi 3 anni Ubuntu. Con Win programmavo in VB6 ed ero riuscito a fare dei lavori che mi erano utili. Volendo rimettermi per puro diletto a programmare ho scoperto che Gambas può essere un buon approccio per me. Infatti già in due giorni ho capito come muovermi o quasi, infatti sto creando un piccolo programma che mi permette di poter utilizzare  SQLITE3 per archiviare dei dati. Pian Piano che vado avanti nella programmazione incominciano i problemucci che cerco sforzandomi di leggere gli esempi anche se in "Spagnolo" e di risolverli. Ma questo problema che ho adesso non riesco a risolverlo. Mi spiego. Voglio creare un controllo in una textbox che permetta tramite una MessageBox di avvisave che si è arrivati al munero di caratteri massimo che ho impostato con la proprietà MaxLength io ho fatto  la seguente:
Public Sub TextBox1_Change()

if TextBox1.MaxLength > 25 Then
    Message.Info("Hai raggiunto il limite massimo di caratteri", "OK")
TextBox1.SetFocus
EndIf

ma non funziona  non si visualizza l'allert e il numero dei caratteri inseriti supera i 25.
potreste aiutarmi a capire dove sbaglio?
Grazie. :hard:


Pagine: [1]