database - Access + VBA : Correct creation of database

Question

如何使用以下字段更正创建数据库:

Dim F As String
Dim S As Long
Dim T As Integer
Dim C As Double //Currency
Dim D As String //Date


F = "ABC"
S = 88869045
T = 9   
C = 30.4493 // currency, but can be double
D = "06.08.2010" // date (how to correct convert to date?) //#1

DBTable.Name = "TestTable"
DBTable.Columns.Append "First", adVarWChar, 40
DBTable.Columns.Append 1, adBigInt, 20
DBTable.Columns.Append 0, adInteger
DBTable.Columns.Append 0, adCurrency
DBTable.Columns.Append 0, adDate

DBCatalog.Tables.Append DBTable

此外，DBCatalog 作为 ADOX.Catalog 和 DBTable 作为 ADOX.Table。

另请参阅 #1 中的其他问题。谢谢!

Answer 1

如果您的 Access 版本是 2000 或更高版本，您可以使用 Replace() 函数将日期字符串中的点替换为破折号。然后 CDate() 函数将能够将该字符串转换为日期/时间值。

Debug.Print CDate(Replace("06.08.2010",".","-"))
6/8/2010 

那是我系统上“立即”窗口中的一个示例，它使用美国作为其区域设置。所以 CDate() 可以接受包含 mm-dd-yyyy 格式的日期的字符串。如果您的语言环境不同，您将需要付出更多努力才能获得所需内容。