各位前辈,问题很简单
将三个文本框里的内容 通过按钮动作 插入到 SQL中表A
郁闷中
表A里没有别的列,只有这三个列a b c
号码 车牌号 费用
就这么简单,点一下插入一个,前面的号码可以看做成唯一标志,当要插入的号码在表里已经存在的时候,只更新表中相同号码后面的记录就可以了
谢谢啊,在线等
将三个文本框里的内容 通过按钮动作 插入到 SQL中表A
郁闷中
表A里没有别的列,只有这三个列a b c
号码 车牌号 费用
就这么简单,点一下插入一个,前面的号码可以看做成唯一标志,当要插入的号码在表里已经存在的时候,只更新表中相同号码后面的记录就可以了
谢谢啊,在线等
Private Sub Command1_Click()
Dim flag As Boolean
flag = False
If Data1.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
If Data1.Recordset.Fields(0).Value = Text1.Text Then
flag = True
Exit Do
Else
Data1.Recordset.MoveNext
End If
Loop
End If
Select Case flag
Case 1
With Data1
.Recordset.Edit
.Recordset.Fields(1).Value = Text2.Text
.Recordset.Fields(2).Value = Text3.Text
.UpdateRecord
.Refresh
Exit Sub
End With
Case 0
With Data1
.Recordset.AddNew
.Recordset.Fields(0).Value = Text1.Text
.Recordset.Fields(1).Value = Text2.Text
.Recordset.Fields(2).Value = Text3.Text
.UpdateRecord
.Refresh
End With
End Select
End Sub
表A结构如下:
FID 车号 费用
1 X222 20
2 X333 30
. .... ..
当遇到录入的FID在数据库已经储存情况时,只更新后面的车号和费用,不新增记录,只是更新,