如何在vb6中设置DTPicker的格式？

Question

<code>
private sub save_click()
SQL = SQL + "DATE_OF_BIRTH=('" & TO_CHAR(TO_DATE(DTPicker1.Value, "DD-MM-YYYY")) & "'),"
end sub
</code>

显示错误：sub或函数未定义。     请帮忙

Answer 1

尝试这样的事情：

SQL = SQL & "DATE_OF_BIRTH between " & Format(DTPicker1(count).value, "DD-MM-YYYY") & " and " & Format(DateAdd("d", 1, DTPicker1(count).value), "DD-MM-YYYY"))

至少我就是这样做的MSSQL和Postgresql