Si lo soporta:
Dim c As ADODB.Connection
Dim cmd As ADODB.Command
Dim std As clsStdIO
Set c = New ADODB.Connection
Set std = New clsStdIO
Set cmd = New ADODB.Command
c.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended
Properties=""DRIVER={PostgreSQL
Unicode};DATABASE=postgres;SERVER=172.18.22.101;PORT=5432;UID=postgres;pwd=Aa987;SSLmode=disable;ReadOnly=0;Protocol=7.4-1;FakeOidIndex=0;ShowOidColumn=0;RowVersioning=0;ShowSystemTables=0;ConnSettings=;Fetch=100;Socket=4096;UnknownSizes=0;MaxVarcharSize=255;MaxLongVarcharSize=8190;Debug=0;CommLog=0;Optimizer=0;Ksqo=1;UseDeclareFetch=0;TextAsLongVarchar=1;UnknownsAsLongVarchar=0;BoolsAsChar=0;Parse=0;CancelAsFreeStmt=0;ExtraSysTablePrefixes=dd_;LFConversion=1;UpdatableCursors=1;DisallowPremature=0;TrueIsMinus1=0;BI=0;ByteaAsLongVarBinary=0;UseServerSidePrepare=0;LowerCaseIdentifier=0;GssAuthUseGSS=0;XaOpt=1"""
cmd.ActiveConnection = c
'cmd.Parameters.Append cmd.CreateParameter(, adLongVarWChar, adParamInput,
4000, "hola;jaja")
cmd.CommandText = "COPY dato FROM stdin"
cmd.Execute
El ejecuta bien todo pero en el stdin no logro decirle el archivo. No se como
decirle que lo tome de algún lugar. El pgadmin se queda esperando algo (supongo
que será el archivo)
________________________________
De: Juan <[email protected]>
Para: Alejandro Carrillo <[email protected]>
CC: "[email protected]" <[email protected]>
Enviado: martes 11 de octubre de 2011 11:27
Asunto: Re: [pgsql-es-ayuda] Ejecutar copy con stdin en vb6
Hola
Me parece que el problema es el sig: el VBx se conecta via odbc o similares y
el copy no es sql standard supongo que los odbc no soportan estos comandos
debe haber otras maneras pero basicamente me parece que eso pude ser la razon
obvio por ahi me equivoco.s
salu2
mdc
2011/10/11 Alejandro Carrillo <[email protected]>
Buenos dias
>
>
>He visto diferentes foros pero ninguno habla sobre como ejecutar un copy from
>stdin desde vb6 usando odbc. ¿Alguno conoce la respuesta?
>
>
>Gracias
>
