Russian version
English version
| | | | SILICON TAIGA | ISDEF | CD | | | | | | | |
 
 
 
IT-
 
 
 
RSS-

Firebird Access

Firebird ( ) :

Public Sub Test()

Dim ws As Workspace Dim cnn As Connection Dim qdf As QueryDef Dim dsn As String

dsn = "ODBC;DSN=FB Gemini;UID=SYSDBA;PWD=masterkey;" Set ws = DBEngine.CreateWorkspace("", "", "", dbUseODBC) Set cnn = ws.OpenConnection("cnn", , , dsn) Set qdf = cnn.CreateQueryDef("", "EXECUTE PROCEDURE SP_TEST ?") qdf.Parameters(0).Direction = dbParamInput qdf.Parameters(0).Value = 100 qdf.Parameters(1).Direction = dbParamOutput qdf.Execute MsgBox qdf.Parameters(0).Value & " x 2 = " & qdf.Parameters(1).Value

End Sub

, :

SET TERM !! ;

CREATE PROCEDURE SP_TEST (NUM INTEGER) RETURNS (NUM2 INTEGER) AS BEGIN NUM2=NUM * 2; END !!

SET TERM ; !!

:

  1. , , .. , . Access .
  2. ODBC . , , Gemini InterBase ODBC Driver 2.0 , XTG Systems InterBase6 ODBC driver , .


     
 
 
  : 14.06.2006  

| | | | SILICON TAIGA | ISDEF | CD | | | | | | | |

: Silicon Taiga    
Rambler's Top100 Rambler's Top100