>
> Ops.... I forgot the version: 2.8.1, but got the same error with
> previous versions 2.8 and, if I remember correctly, 2.7.
>
> Hi,

with Gambas 2.7 I tested following and got no errors. Maybe you could post
more complete program others could test with.

' Gambas class file
PRIVATE Connessione AS NEW Connection
PRIVATE Risultato AS Result

PUBLIC SUB Form_Open()
 WITH Connessione
   .Name = "laskutus"
   .Type = "mysql"
   .User = "root"
   .Password = ""
   .Host = "localhost"
   .Open
 END WITH
END

PUBLIC SUB Button1_Click()
DIM Connessione2 AS NEW Connection
DIM Risultato2 AS Result

 Risultato = Connessione.Find("asiakas", "id=&1", Trim(TextBox1.Text))
' IF Risultato.Available = FALSE THEN
'   RETURN
' END IF

TextBox2.Text = Risultato!nimi

 WITH Connessione2
   .Name = "laskutus"
   .Type = "mysql"
   .User = "root"
   .Password = ""
   .Host = "localhost"
   .Open
 END WITH

Risultato2 = Connessione2.Find("yritys", "id=&1", Trim(TextBox1.Text))

TextBox3.Text = Risultato2!nimi

Risultato.MoveFirst

TextBox4.text = Risultato!nimi
END


Best Regards
Kari Laine
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user

Reply via email to