| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date Format
Hi all,
How can I define a correct date format for varialbe(vara) in this code: Dim A As String vara = DateValue(Me.TextBox1.Value) dbPath = "T:\REF.dbc" Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open = "Provider=vfpoledb;UID=TST;password=12345;Data Source=" & dbPath ActiveWorkbook.Worksheets.Add(After:=ActiveSheet). Name = "GI" A = " SELECT ALL tst.contract_c,tst.name_f,tst.amount,tst.curren_e, " & _ " tst.valid_date;" & _ " FROM tst" & _ " WHERE tst.valid_date= '" & vara & "'" Set rs = conn.Execute(A, , 1) Worksheets("GI").Range("A10").CopyFromRecordset rs rs.Close conn.Close For example if i replace {2007/11/11} instead of '" & vara & '" it works perfect Thanks and Regards Bijan |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Date Format
Hi Bijan
Try this: vara = Format(DateValue(Me.TextBox1.Value),"yyyy/mm/dd") Regards, Per "bijan" skrev i meddelelsen ... Hi all, How can I define a correct date format for varialbe(vara) in this code: Dim A As String vara = DateValue(Me.TextBox1.Value) dbPath = "T:\REF.dbc" Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open = "Provider=vfpoledb;UID=TST;password=12345;Data Source=" & dbPath ActiveWorkbook.Worksheets.Add(After:=ActiveSheet). Name = "GI" A = " SELECT ALL tst.contract_c,tst.name_f,tst.amount,tst.curren_e, " & _ " tst.valid_date;" & _ " FROM tst" & _ " WHERE tst.valid_date= '" & vara & "'" Set rs = conn.Execute(A, , 1) Worksheets("GI").Range("A10").CopyFromRecordset rs rs.Close conn.Close For example if i replace {2007/11/11} instead of '" & vara & '" it works perfect Thanks and Regards Bijan |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Date Format
Hi Jessen,
It return variable value as string format ,the problem is how to use or not {} with variable in the query Best Regards Bijan "Per Jessen" wrote: Hi Bijan Try this: vara = Format(DateValue(Me.TextBox1.Value),"yyyy/mm/dd") Regards, Per "bijan" skrev i meddelelsen ... Hi all, How can I define a correct date format for varialbe(vara) in this code: Dim A As String vara = DateValue(Me.TextBox1.Value) dbPath = "T:\REF.dbc" Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open = "Provider=vfpoledb;UID=TST;password=12345;Data Source=" & dbPath ActiveWorkbook.Worksheets.Add(After:=ActiveSheet). Name = "GI" A = " SELECT ALL tst.contract_c,tst.name_f,tst.amount,tst.curren_e, " & _ " tst.valid_date;" & _ " FROM tst" & _ " WHERE tst.valid_date= '" & vara & "'" Set rs = conn.Execute(A, , 1) Worksheets("GI").Range("A10").CopyFromRecordset rs rs.Close conn.Close For example if i replace {2007/11/11} instead of '" & vara & '" it works perfect Thanks and Regards Bijan . |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Date Format
Try without single quotes..
" WHERE tst.valid_date= " & vara If this post helps click Yes --------------- Jacob Skaria "bijan" wrote: Hi all, How can I define a correct date format for varialbe(vara) in this code: Dim A As String vara = DateValue(Me.TextBox1.Value) dbPath = "T:\REF.dbc" Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open = "Provider=vfpoledb;UID=TST;password=12345;Data Source=" & dbPath ActiveWorkbook.Worksheets.Add(After:=ActiveSheet). Name = "GI" A = " SELECT ALL tst.contract_c,tst.name_f,tst.amount,tst.curren_e, " & _ " tst.valid_date;" & _ " FROM tst" & _ " WHERE tst.valid_date= '" & vara & "'" Set rs = conn.Execute(A, , 1) Worksheets("GI").Range("A10").CopyFromRecordset rs rs.Close conn.Close For example if i replace {2007/11/11} instead of '" & vara & '" it works perfect Thanks and Regards Bijan |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Date Format
Hi jacob,
I have tried it but it doesn't work Bijan "Jacob Skaria" wrote: Try without single quotes.. " WHERE tst.valid_date= " & vara If this post helps click Yes --------------- Jacob Skaria "bijan" wrote: Hi all, How can I define a correct date format for varialbe(vara) in this code: Dim A As String vara = DateValue(Me.TextBox1.Value) dbPath = "T:\REF.dbc" Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open = "Provider=vfpoledb;UID=TST;password=12345;Data Source=" & dbPath ActiveWorkbook.Worksheets.Add(After:=ActiveSheet). Name = "GI" A = " SELECT ALL tst.contract_c,tst.name_f,tst.amount,tst.curren_e, " & _ " tst.valid_date;" & _ " FROM tst" & _ " WHERE tst.valid_date= '" & vara & "'" Set rs = conn.Execute(A, , 1) Worksheets("GI").Range("A10").CopyFromRecordset rs rs.Close conn.Close For example if i replace {2007/11/11} instead of '" & vara & '" it works perfect Thanks and Regards Bijan |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Date Format
--Is the date stored as datetime in DB?
--Is variable 'vara' is declared as Date "bijan" wrote: Hi jacob, I have tried it but it doesn't work Bijan "Jacob Skaria" wrote: Try without single quotes.. " WHERE tst.valid_date= " & vara If this post helps click Yes --------------- Jacob Skaria "bijan" wrote: Hi all, How can I define a correct date format for varialbe(vara) in this code: Dim A As String vara = DateValue(Me.TextBox1.Value) dbPath = "T:\REF.dbc" Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open = "Provider=vfpoledb;UID=TST;password=12345;Data Source=" & dbPath ActiveWorkbook.Worksheets.Add(After:=ActiveSheet). Name = "GI" A = " SELECT ALL tst.contract_c,tst.name_f,tst.amount,tst.curren_e, " & _ " tst.valid_date;" & _ " FROM tst" & _ " WHERE tst.valid_date= '" & vara & "'" Set rs = conn.Execute(A, , 1) Worksheets("GI").Range("A10").CopyFromRecordset rs rs.Close conn.Close For example if i replace {2007/11/11} instead of '" & vara & '" it works perfect Thanks and Regards Bijan |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| permanent conversion of 1904 date format to 1900 date format | Excel Worksheet Functions | |||
| change date format dd/mm/yyyy to Julian date format? | Excel Worksheet Functions | |||
| Convert date + time text format to date format | Excel Worksheet Functions | |||
| code to convert date from TEXT format (03-02) to DATE format (200203) | Excel Programming | |||
| Change a date in text format xx.xx.20xx to a recognised date format | Excel Programming | |||
Hybrid Mode
