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

我已经解决了我的问题。我没有解决我的问题，而是我解决了需要该值的代码，并在那里我替换了格式。不管怎么说，还是要谢谢你。

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

1 个答案: