如何动态创建具有自定义日期格式的日期字段的访问数据库？

Question

任何人都可以帮我解决我目前的问题吗？

我正在做一个动态创建访问数据库（.mdb文件）的项目。该数据库有一个日期字段，但我希望它具有自定义日期格式。

这是我到目前为止。

Dim con As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & databaseName) 
     con.Open() 
     Dim dbSchema As DataTable = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, _ 
                  New Object() {Nothing, Nothing, tableName, "TABLE"}) 
     con.Close() 
     If dbSchema.Rows.Count > 0 Then 
'I have some code here 
     Else 
'This is where I create the table 
      Dim cmd As New OleDb.OleDbCommand("CREATE TABLE [" + tableName + "] ([Meter] TEXT(2), [Name] TEXT(20), " _ 
               & "[Element1] TEXT(20), [Element2] TEXT(20), [Element3] TEXT(20), [W] TEXT(20), " _ 
               & "[pf] TEXT(20), [kWh_Delivered] TEXT(20), [kWh_Received] TEXT(20), " _ 
               & "[Date_Time] Date(mm/dd/yyyy hh:nn:ss))", con) 
      cmd.ExecuteNonQuery() 
      con.Close() 
      MessageBox.Show("Table Created Successfully") 

     End If 

谢谢！

Answer 1

我有解决我的问题。我没有得到解决我的问题，而是我的工作围绕需要该值的代码，并在那里我取代了格式。 无论如何，谢谢。