如何使用以下字段更正创建数据库:
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
中的其他问题。
谢谢!
最佳答案
如果您的 Access 版本为 2000 或更高版本,则可以使用 Replace()
函数将破折号替换为日期字符串中的点。然后,CDate()
函数将能够将字符串转换为日期/时间值。
Debug.Print CDate(Replace("06.08.2010",".","-"))
6/8/2010
这是我系统上立即窗口的一个示例,它使用美国作为其区域设置。因此,CDate()
可以接受包含 mm-dd-yyyy 格式的日期的字符串。如果您的区域设置不同,您将需要投入更多工作才能获得所需的内容。
关于database - Access +VBA : Correct creation of database,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10474054/