typfehler bei ergebnisüberagbe an String

Spezielle Fragen zu PostgreSQL, MySQL, SQLite, SQL ...
Antworten
nieselfriem
Foriker
Beiträge: 2
Registriert: Mo 17. Nov 2008, 22:35
Kontaktdaten:

typfehler bei ergebnisüberagbe an String

Beitrag von nieselfriem » Mo 17. Nov 2008, 22:44

Hallo!

Ich fitz mich geradeso ein wenig in gambas rein. An sich ist es ja recht einfach aber bei der Übergabe des Resutats eines Datenbankzugriffs haperts noch. Hierzu mal das Modul

Code: Alles auswählen

' Gambas module file
PUBLIC $Con AS NEW Connection
PUBLIC PROCEDURE Connect()
                $Con.Close()              ' Close the connection
                $Con.Type = "MySQL"       ' Type of connection
                $Con.Host = "localhost"   ' Name of the server
                $Con.Login = "root"       ' User's name for the connection
                $Con.Port = "3306"        ' Port to use in the connection, usually 3306
                $Con.Name = "jobagentur_rade" ' Name of the data base we want to use"
                $Con.Password = "geheim" ' User's password
                $Con.Open()               ' Open the connection
       END
 PUBLIC FUNCTION Datas() AS String
  DIM $Result AS Result
  DIM $test AS String
  Connect()
  $Result = MODMain.$Con.Exec("SELECT * FROM dbname.alleberufe")
  $test = $Result!Berufsbez
  RETURN $test
END


und hier dasFormular

Code: Alles auswählen

' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB Button1_Click()

  TextBox1.Text = CStr(MODMain.Datas) 'Type mismatch wantet String, funktion insteat.
END

Wie übergebeich denn dann den ermittelten Wert der von der Funktion zurückgeben wird.
Gruß niesel

Benutzeravatar
OderMalSo
Foriker
Beiträge: 65
Registriert: Mi 18. Apr 2007, 22:30
Wohnort: Mönchengladbach
Kontaktdaten:

Re: typfehler bei ergebnisüberagbe an String

Beitrag von OderMalSo » Di 18. Nov 2008, 01:06

Versuch es mal so:

Code: Alles auswählen

PUBLIC SUB Button1_Click()
DIM $Result AS Result
  $Result = MODMain.$Con.Exec("SELECT Berufsbez FROM dbname.alleberufe")
  TextBox1.Text = $Result!Berufsbez
END
Grüßle
Georg
openSuSE 11.1 - Gambas2 2.11.1 & Gambas3 SVN
Bild

Antworten

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast