各位前辈,问题很简单
将三个文本框里的内容 通过按钮动作 插入到 SQL中表A
郁闷中
表A里没有别的列,只有这三个列a       b        c
号码   车牌号     费用
就这么简单,点一下插入一个,前面的号码可以看做成唯一标志,当要插入的号码在表里已经存在的时候,只更新表中相同号码后面的记录就可以了
谢谢啊,在线等

解决方案 »

  1.   

    不知道你使用的什么控件哦 给你个data控件的
    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
      

  2.   

    我想用ADO连,怎么做啊,而且前面我已经做了一个查询按钮,用ADO,查出库内的另外一张表B内的数据,我只是想把B内的三列数据再通过按钮保存到表A中
      

  3.   

    还有个事,DATA能访问SQL吗??不明白
      

  4.   

    其实我这就是个收费程序,或者叫录入程序吧,我想通过按钮利用ADO连  SQL库里的A表,把三个文本框里的内容插入到A表中,但有遇到相同记录时,只是更新,不插入.
    表A结构如下:
           FID              车号               费用
             1                X222             20
            2                X333             30
            .                ....             ..
    当遇到录入的FID在数据库已经储存情况时,只更新后面的车号和费用,不新增记录,只是更新,
      

  5.   

    在按钮的单击事件中首先先写入查询是否重复的代码,例如先select count 表 where 车号=xxx,如果select结果=0那么就执行insert into 否则就执行update