Hello my dear friends...
I swallow one more collaboration to help those that as I want to use the VISUAL BASIC integrated with PostGresQL.
Once again I want to thank to all of this FORUM that directly or indirectly they help me with you doubt them that I have correspondent.
1 - To do a simple SELECT with PARAMETER in the DATABASE returning all of the ROWS and COLUMNS of the table USER, make the following:
In POSTGRESQL 8:
CREATE OR REPLACE FUNCTION sp_user_search(int2)
RETURNS SETOF user AS $BODY$
SELECT * FROM user WHERE iduser = $1;
$BODY$
LANGUAGE SQL;
In VISUAL BASIC 6 using ADO 2.8:
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 sp_user_search('1');")
Do While Not rsTB.EOF
MsgBox tb!iduser & " - " & tb!user & " - " & tb!password & " - " & tb!fullname
rsTB.MoveNext
Loop
rsTB.Close
adoBD.Close
RESULT OF EXECUTION: 1 - Sandro - 123 - Sandro Yaqub Yusuf
Coming soon: making INSERT in the DATABASE...
Sandroyy
