PureBoard

Code: Alles auswählen

{call procname}

Code: Alles auswählen

  If recid = 0
      sql = "{Call dbo.qp_Add_Langtexte}"
      If DatabaseQuery(#Datenbank, sql)
        While NextDatabaseRow(#Datenbank)
          temp.s = GetDatabaseString(#Datenbank, 0)
          WriteLog(temp)
          
        Wend
      Else
        WriteLog(DatabaseError())
      EndIf
    EndIf 

Code: Alles auswählen

      sql = "Declare @return_value int;"
      sql + "EXEC	@return_value = [dbo].[qp_Add_Langtexte]; "
      sql + "Select	'Return Value' = @return_value; "

Code: Alles auswählen

create procedure sp_TabellenAnzeigen
as
SELECT * FROM INFORMATION_SCHEMA.TABLES;

Code: Alles auswählen

UseODBCDatabase()
If opendatabase(0, "dsn", "user", "pass")
  query.s = "exec sp_TabellenAnzeigen"
  If DatabaseQuery(0, query)
    While NextDatabaseRow(0)
      Debug GetDatabaseString(0, 0)
    Wend
  Else
    Debug DatabaseError()
  EndIf
EndIf

Code: Alles auswählen

UseODBCDatabase()

DB = OpenDatabase(#PB_Any, "myDatabase", "myUser", "myPass")

If DB
  
  If DatabaseQuery(DB, "{call dbo.testtest}")
    While NextDatabaseRow(DB)
      Debug GetDatabaseString(DB, 0) ; <- liefert korrekte Werte
    Wend
  Else
    Debug DatabaseError()
  EndIf
  
  CloseDatabase(DB)
  
EndIf