Thanks - Part One - Re: Executing SP in VB6 - Mailing list pgsql-odbc

From Sandro Yaqub Yusuf
Subject Thanks - Part One - Re: Executing SP in VB6
Date
Msg-id 002d01c4aae8$851e0c10$9414a8c0@proservvi.com.br
Whole thread Raw
In response to Re: Executing SP in VB6  ("Philippe Lang" <philippe.lang@attiksystem.ch>)
List pgsql-odbc
Hello my dears friends,

Thanks for yours colaborations.

It´s here the part of solution about my problem with colaboration of
everbody that help me (Philippe Lang, Iain, Andrew Ayers, Rick Sivernell,
Corey W. Gibbs):


---------------------------------------------------------------------------------------------------------------------------------------

POSTGRESQL:

CREATE OR REPLACE FUNCTION sp_user_search(varchar)
  RETURNS SETOF user AS
' select * from user where user = $1'
  LANGUAGE 'sql' VOLATILE;


---------------------------------------------------------------------------------------------------------------------------------------

VISUAL BASIC 6 with ADO 2.8 without STORED PROCEDURE:

Dim adoBD As ADODB.Connection
Dim rsTB    As New ADODB.Recordset

 Set adoBD = New ADODB.Connection

 adoBD.ConnectionString =
"driver=PostgreSQL};server=localhost;database=SICCEV;port=5432;uid=ryan;pwd=displace;"
adoBD.Open

Set rsTB = adoBD.Execute("select * from user where user = 'Sandro';")

Do While Not rsTB.EOF
       MsgBox rsTB!Usuario

       rsTB.MoveNext
Loop

rsTB.Close
adoBD.Close

RESULT OF EXECUTION: Sandro Yaqub Yusuf


---------------------------------------------------------------------------------------------------------------------------------------

VISUAL BASIC 6 with ADO 2.8 with STORED PROCEDURE:

Dim adoBD As ADODB.Connection
Dim rsTB    As New ADODB.Recordset

Set adoBD = New ADODB.Connection

adoBD.ConnectionString =
"driver=PostgreSQL};server=localhost;database=SICCEV;port=5432;uid=ryan;pwd=displace;"
adoBD.Open

Set rsTB = adoBD.Execute("select sp_user_search('Sandro');")

Do While Not rsTB.EOF
       MsgBox rsTB(0)

       rsTB.MoveNext
Loop

rsTB.Close
adoBD.Close

RESULT OF EXECUTION: (1,Sandro,123,"Sandro Yaqub Yusuf")


---------------------------------------------------------------------------------------------------------------------------------------

The question is how I do for to isolate the columns when come
(1,Sandro,123,"Sandro Yaqub Yusuf"). I would like to get only the column
FULLNAME using the STORED PROCEDURE. Have I do a function in VB for to
isolate the RESULTS of STORED PROCEDURES in POSTGRESQL ?

Thanks more one times...

Sandroyy


pgsql-odbc by date:

Previous
From: "Dave Page"
Date:
Subject: Re: Access and PG ODBC problem
Next
From: "Scot Loach"
Date:
Subject: Re: change to error result in SQLStatistics