Quick Links

Re- conectar postgres con visual basic

From:	<ing_enriquebarrios(at)argentina(dot)com>
To:	lestatoscar(at)gmail(dot)com
Cc:	pgsql-es-ayuda(at)postgresql(dot)org
Subject:	Re- conectar postgres con visual basic
Date:	2006-10-17 11:40:43
Message-ID:	20061017114014.A8CB73B0176@ns-1.net
Views:	Raw Message \| Whole Thread \| Download mbox \| Resend email
Thread:
Lists:	pgsql-es-ayuda

<html>
<PRE>PostgreSQL ODBC <o:p></o:p></PRE><PRE> <o:p></o:p></PRE><PRE>  Dim cn as Variant<o:p></o:p></PRE><PRE>  Dim sql as String<o:p></o:p></PRE><PRE>  Dim rs as Variant<o:p></o:p></PRE><PRE> </PRE><PRE>  set cn = CreateObject ("ADODB.Connection")<o:p></o:p></PRE><PRE>  cn.Open "dsn=PostgreSQL;uid=sak;pwd=sak"<o:p></o:p></PRE><PRE>  cn.CursorLocation = 3<o:p></o:p></PRE><PRE>   sql = "create table testm ("<o:p></o:p></PRE><PRE>  sql = sql & "id[char(8),"<o:p></o:p></PRE><PRE>  sql = sql & "nombre[char(20),"<o:p></o:p></PRE><PRE>  sql = sql & "apellido[char(20),"<o:p></o:p></PRE><PRE>  sql = sql & "asignatura[char(25)"<o:p></o:p></PRE><PRE>  sql = sql & ")"<o:p></o:p></PRE><PRE>  cn.Execute sql<o:p></o:p></PRE><PRE>   cn.BeginTrans<o:p></o:p></PRE><PRE>   cn.Execute "insert into testm values ('val1','val2','val3','val4')"<o:p></o:p></PRE><PRE>  cn.Execute "insert into testm values ('val1','val2','val3','val4')"<o:p></o:p></PRE><PRE>  cn.Execute "insert into testm values ('val1','val2','val3','val4')"<o:p></o:p></PRE><PRE>  cn.Execute "insert into testm values ('val1','val2','val3','val4')"<o:p></o:p></PRE><PRE>   cn.CommitTrans<o:p></o:p></PRE><PRE>   set rs = cn.Execute("select * from testm")<o:p></o:p></PRE><PRE>   do until rs.EOF<o:p></o:p></PRE><PRE>    print rs.EOF<o:p></o:p></PRE><PRE>    rs.MoveNext<o:p></o:p></PRE><PRE>  loop<o:p></o:p></PRE><PRE>   rs.Close<o:p></o:p></PRE><PRE>   cn.Close<o:p></o:p></PRE>
 <o:p></o:p>
</html> <addr>------------------------------------------------------------------------ 
<a href=http://free.internet.argentina.com/>Conectate a Internet Gratis de Argentina.Com</a> 
</addr>
 
<center>
<a href=http://srvads.argentina.com/bs/adclick.php?n=a84973ad target=_blank>
<img src=http://srvads.argentina.com/bs/adview.php?what=zone:8&n=a84973ad border=0 alt=""></a>
</center>

Attachment	Content-Type	Size
unknown_filename	text/html	7.0 KB

Browse pgsql-es-ayuda by date

	From	Date	Subject
Next Message	Pedro Mateo	2006-10-17 15:31:03	Re: una duda sobre funciones
Previous Message	Gauto Miguel A.	2006-10-17 11:35:07	RE: error al crear FK