Skip site navigation (1) Skip section navigation (2)

Using VISUAL BASIC with POSTGRESQL - Part One

From: "Sandro Yaqub Yusuf" <sandro(at)proservvi(dot)com(dot)br>
To: <pgsql-odbc(at)postgresql(dot)org>
Subject: Using VISUAL BASIC with POSTGRESQL - Part One
Date: 2004-10-06 21:53:04
Message-ID: 006501c4abee$db91d430$9414a8c0@proservvi.com.br (view raw or flat)
Thread:
Lists: pgsql-odbc
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


pgsql-odbc by date

Next:From: Mike FaheyDate: 2004-10-07 15:07:32
Subject: update rules + views + odbc problems
Previous:From: anthony.cadutoDate: 2004-10-06 16:22:23
Subject: Schema support problems with latest snapshot

Privacy Policy | About PostgreSQL
Copyright © 1996-2014 The PostgreSQL Global Development Group