怎么解决？
ADO+ACCESS+VB
不能绑定到字段或数据成员'装车日期'！
不能绑定到字段或数据成员'卸下日期'！
不能绑定到字段或数据成员'购买日期'！
不能绑定到字段或数据成员'注册日期'！
Option Explicit
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Function 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 Function
Private 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
[解决办法]
后面的属性加上
DTPicker1.value
DTPicker2.value
[解决办法]
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
[解决办法]
仔细检查你的数据库文件中表的相应字段都有了吗？
[解决办法]
这些都在ACESS表中都是日期型字段吧？ 用以下方法试试。
rs("装车日期") = "#" & DTPicker1 & "#"
rs("卸下日期") = "#" & DTPicker2 & "#"
rs("购买日期") = "#" & DTPicker3 & "#"
rs("注册日期") = "#" & DTPicker4 & "#"
