Re: postgresql and VB

It does within Access 2000 and DAO lib. Create a pass-through query (direct
query to pg) and passing a parameter "id" to the pg_function
-----------------------------------------
Function my_func(id As String)

    Dim wrkODBC As DAO.Workspace
    Dim qdfTemp As DAO.QueryDef
    Dim connexion As DAO.Connection
    Dim rstTemp As DAO.Recordset
    Dim qdfString As String

    Set wrkODBC = CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
    Workspaces.Append wrkODBC
    Set connexion = wrkODBC.OpenConnection("Connection1", dbDriverNoPrompt,
,
"ODBC;DSN=mydbase;DATABASE=mydbase;SERVER=myserver;PORT=5432;UID=user;PWD=pa
ssword")
    Set qdfTemp = connexion.CreateQueryDef("")
    qdfString = "SELECT(my_pg_function(" & id & "))"
    Debug.Print "Query results for " & qdfString
    Set rstTemp = connexion.OpenRecordset(qdfString, dbOpenDynamic)
    With rstTemp
        Do While Not .EOF
            Debug.Print , !f_desc
            .MoveNext
        Loop
        .Close
    End With
    connexion.Close
    wrkODBC.Close

End Function
--------------------------------------------
___________________________________________
Jacques Massé
Tel. 33 (0)5 57 89 08 11 - Fax 33 (0)5 57 89 08 01


-----Message d'origine-----
De : Mourad Dhambri [mailto:mourad_dhambri@yahoo.fr]
Envoyé : vendredi 6 septembre 2002 08:53
À : pgsql-general@postgresql.org
Objet : [GENERAL] postgresql and VB


Hi,
I would like to know how I could call a postgresql
function from VB.
Thanks.

___________________________________________________________
Do You Yahoo!? -- Une adresse @yahoo.fr gratuite et en français !
Yahoo! Mail : http://fr.mail.yahoo.com

---------------------------(end of broadcast)---------------------------
TIP 1: subscribe and unsubscribe commands go to majordomo@postgresql.org