Question

VB数据库 帮忙看看为什么我的数据更新不了

Private Sub Picture1_Click(Index As Integer)
Dim i As Integer
Dim y As Integer
For i = 0 To Picture1.UBound
If i = Index And i <= 15 Then
If glkg(Index) = 0 And dlq(Index) = 0 Then
y = MsgBox("断路器未断开！", 48, "警告！")
GoTo Line1
End If
If glkg(Index) = 0 Then
Picture1(Index).Picture = LoadPicture(App.Path & "\kg2.Bmp")
glkg(Index) = 1
Form3.Data1.Recordset.AddNew
Form3.Data1.Recordset("日期") = Date
Form3.Data1.Recordset("时间") = Time
Form3.Data1.Recordset("变位位置") = Label1(Index)
Form3.Data1.Recordset("变位方式") = "合----》分"
Else
Picture1(Index).Picture = LoadPicture(App.Path & "\kg1.Bmp")
glkg(Index) = 0
Form3.Data1.Recordset.AddNew
Form3.Data1.Recordset("日期") = Date
Form3.Data1.Recordset("时间") = Time
Form3.Data1.Recordset("变位位置") = Label1(Index)
Form3.Data1.Recordset("变位方式") = "分----》合"
End If
Line1: End If
If i = Index And i > 15 Then
If glkg(Index) = 0 And dlq(Index - 16) = 0 Then
y = MsgBox("断路器未断开！", 48, "警告！")
GoTo Line2
End If
If glkg(Index) = 0 Then
Picture1(Index).Picture = LoadPicture(App.Path & "\kg3.Bmp")
glkg(Index) = 1
Form3.Data1.Recordset.AddNew
Form3.Data1.Recordset("日期") = Date
Form3.Data1.Recordset("时间") = Time
Form3.Data1.Recordset("变位位置") = Label1(Index)
Form3.Data1.Recordset("变位方式") = "合----》分"
Else
Picture1(Index).Picture = LoadPicture(App.Path & "\kg1.Bmp")
glkg(Index) = 0
Form3.Data1.Recordset.AddNew
Form3.Data1.Recordset("日期") = Date
Form3.Data1.Recordset("时间") = Time
Form3.Data1.Recordset("变位位置") = Label1(Index)
Form3.Data1.Recordset("变位方式") = "分----》合"
End If
Line2: End If
Next i
Open "glkg.txt" For Output As #2
For i = 0 To 31
Write #2, glkg(i)
Next i
Close #2
End Sub

Answer 1

你数据库连上了吗？

Answer 2

Form3.Data1.Recordset.AddNew
配合使用
Form3.Data1.Recordset.UPdate

追问

我改过了。这个怎么解决

追答

你的主键存在重复的信息啊！提示的很明确哦。查看表结构，避免主键重复