怎么解决？

Question

ADO+ACCESS+VB
不能绑定到字段或数据成员'装车日期'！
不能绑定到字段或数据成员'卸下日期'！
不能绑定到字段或数据成员'购买日期'！
不能绑定到字段或数据成员'注册日期'！
Option ExplicitDim conn As ADODB.Connection
Dim rs As ADODB.RecordsetFunction openconn()
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\jslt\jslt.mdb"
End Function
Function closeconn()
    conn.Close
End FunctionPrivate Sub Command1_Click()
Call openconn
    Set rs = New ADODB.Recordset
    rs.Open "select * from lt", conn, adOpenKeyset, adLockOptimistic
        If rs.RecordCount > 0 Then
        Call closeconn
       Else
        rs.AddNew
        rs("系统胎号") = Text1
        rs("轮胎品牌") = Combo3
        rs("轮胎规格") = Combo4
        rs("轮胎层级") = Combo5
        rs("工作站") = Combo6
        rs("轮胎注册类型") = Combo7
        rs("轮胎使用状态") = Combo8
        rs("轮胎使用程度") = Combo9
        rs("是否调拨胎") = Combo10
        rs("原厂胎号") = Text10
        rs("装车车号") = Text11
        rs("装车牌号") = Text12
        rs("装车胎位") = Combo1
        rs("装车日期") = DTPicker1
        rs("卸下车号") = Text33
        rs("卸下牌号") = Text34
        rs("卸下胎位") = Combo2
        rs("卸下日期") = DTPicker2
        rs("原始胎花纹类型") = Text15
        rs("原始胎花纹深度") = Text16
        rs("原始胎行驶里程") = Text17
        rs("一翻胎花纹类型") = Text18
        rs("一翻胎花纹深度") = Text19
        rs("一翻胎行驶里程") = Text20
        rs("一翻费用") = Text21
        rs("二翻胎花纹类型") = Text22
        rs("二翻胎花纹深度") = Text23
        rs("二翻胎行驶里程") = Text24
        rs("二翻费用") = Text25
        rs("目前花纹深度") = Text26
        rs("轮胎供应商") = Text27
        rs("购买日期") = DTPicker3
        rs("购买价格") = Text28
        rs("外修费用") = Text29
        rs("自修费用") = Text30
        rs("仓库") = Combo11
        rs("库位") = Text32
        rs("注册日期") = DTPicker4
        rs.Update
        rs.Close
        Adodc1.Refresh
        Call closeconn
        MsgBox "添加数据成功!"
        End If
    Adodc1.Refresh
End Sub

Answer 1

后面的属性加上
DTPicker1.value
DTPicker2.value

Answer 2

最好用format（DTPicker1.value，"yyyy-MM-dd" ）格式化下  因为有可能是中文的日期   

Answer 3

不建议如此的加数据的方法。
rs.Open "select * from lt", conn, adOpenKeyset, adLockOptimistic 
        If rs.RecordCount > 0 Then 
是没有数据么?

Answer 4

还是不行！
主要是我的ACCESS数据库中没有数据!
所以不能绑定字段

Answer 5

你的数据库里没有字段？如果有字段字段对应的数据类型对吗？
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\jslt\jslt.mdb"
    Set rs = New ADODB.Recordset
    Set rs.ActiveConnection = conn
    rs.Open "select * from lt", conn, adOpenKeyset, adLockOptimistic
        If rs.RecordCount > 0 Then
        conn.Close
      Else
        rs.AddNew
        rs("系统胎号") = Text1
        rs("日期") = DTPicker1
        rs.Update
        rs.Close
        MsgBox "添加数据成功!"
      End If
End Sub
这段代码测试通过了，数据库里一共两个字段“系统胎号” ，“日期”
你再试试你的，其中系统胎号是文本，日期是短日期行，数据库用access2003.希望可以帮到你！
Private Sub Command1_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\jslt\jslt.mdb"
    Set rs = New ADODB.Recordset
    Set rs.ActiveConnection = conn
    rs.Open "select * from lt", conn, adOpenKeyset, adLockOptimistic
        If rs.RecordCount > 0 Then
        conn.Close
      Else
        rs.AddNew
        rs("系统胎号") = Text1
        rs("日期") = DTPicker1
        rs.Update
        rs.Close
        MsgBox "添加数据成功!"
      End If
End Sub

Answer 6

这些都在ACESS表中都是日期型字段吧？ 用以下方法试试。        rs("装车日期") = "#" & DTPicker1 & "#"
        rs("卸下日期") = "#" & DTPicker2 & "#"
        rs("购买日期") = "#" & DTPicker3 & "#"
        rs("注册日期") = "#" & DTPicker4 & "#"