Re: VBA ADO Command Date Parameter Not Working

From: Hiroshi Inoue <inoue(at)tpf(dot)co(dot)jp>
To: Josh T <mortonjt(at)rochester(dot)rr(dot)com>
Cc: pgsql-odbc(at)postgresql(dot)org
Subject: Re: VBA ADO Command Date Parameter Not Working
Date: 2009-11-23 22:22:15
Message-ID: 4B0B0B17.2000702@tpf.co.jp
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-odbc

Josh T wrote:
> Hello,
>
> I'm using the PSQL-ODBC driver from Excel 2002 VBA with a ADO Command
> object. What is the correct way to pass a date into a parameter so it
> gets into the database correctly? - everything I've tried results in
> 1900-05-07 added to the DB instead of the correct date. I also get
> 1900-05-07 in the DB if I leave the date empty. I've simplified my code
> into the following test case - I've had no problems with other data
> types. I've already tried changing adDBDate, passing Date objects or
> strings.
>
> Thanks,
> Josh
>
> Sub TestDateInsert()
> Dim conn As ADODB.Connection
> Dim cmd As ADODB.Command
>
> Set conn = New ADODB.Connection
> conn.Open "DSN=PRHTest"
>
> Set cmd = New ADODB.Command
> cmd.ActiveConnection = conn
> cmd.CommandType = adCmdText
> cmd.CommandText = "INSERT INTO test_table (test_date) VALUES (?);"
> cmd.Parameters.Append cmd.CreateParameter("@test_date", adDBDate,
> adParamInput, , #11/23/2009#)

> cmd.Execute , adExecuteNoRecords

It seemd 2 commas are needed, i.e.

cmd.Execute ,, adExecuteNoRecords

regards,
Hiroshi Inoue

> Set cmd = Nothing
> conn.Close
> Set conn = Nothing
>
> End Sub
>
> Database Table definition:
>
> CREATE TABLE test_table (
> test_date date NOT NULL
> );
>

In response to

Responses

Browse pgsql-odbc by date

  From Date Subject
Next Message shoji.morimoto 2009-11-24 02:08:59 Re: odbc driver leaks memory when connection failed
Previous Message Richard Broersma 2009-11-23 20:22:35 Re: Windows 7 support