数据覆盖问题！急！

Question

我的程序想实现，在本地access数据库中记录传到服务器中的sql数据库中的表1中，实现如果表1中存在相同“单位名称”和“季度”的记录（多条）那么就提示“是否覆盖”，如果覆盖就删除已存在的记录，传入新记录。如果表1中不存在，那么就直接导入新记录，程序如下：If Trim(Text1.Text) <> "" Or Trim(Combo1.Text) <> "" Then
      Dim cn As New ADODB.Connection
      Dim confirm As Integer
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=SSt;Data Source=127.0.0.1"
      cn.CursorLocation = adUseClient
      cn.Open
    rs.Open "select * from 表1 where 单位名称='" & Trim(Text1.Text) & "' and 季度='" & Trim(Combo1.Text) & "' ", cn, , adCmdTable
   
    
      If rs.RecordCount > 0 Then
        confirm = MsgBox("此单位本季度信息已存在，是否覆盖", 1, "提示信息")
        If confirm = 1 Then
           rs.Close
           rs.Open "delete from 表1 where 单位名称='" & Trim(Text1.Text) & "' and 季度='" & Trim(Combo1.Text) & "' ", cn, , adCmdTable
后面的不知道怎么写了，大家帮帮忙。谢谢！
            

Answer 1

INSERT INTO SQL表(单位名称,季度,考核标准,考核分数,自评分)
SELECT 单位名称,季度,考核标准,考核分数,自评分
FROM Acs表
WHERE 单位名称='" & Trim(Text1.Text) & "' and 季度='" & Trim(Combo1.Text) & "'"

Answer 2

先查找SQL SERVER表中是否存在當前要插入的記錄,(SELECT,INSERT)
IF 存在,則彈出對話框,是否覆盖 
ELSE
插入記錄

Answer 3

If Trim(Text1.Text) <> "" Or Trim(Combo1.Text) <> "" Then
      Dim cn As New ADODB.Connection
      Dim confirm As Integer
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=SSt;Data Source=127.0.0.1"
      cn.CursorLocation = adUseClient
      cn.Open
    rs.Open "select * from 表1 where 单位名称='" & Trim(Text1.Text) & "' and 季度='" & Trim(Combo1.Text) & "' ", cn, , adCmdTable
   
    
      If rs.RecordCount > 0 Then
        confirm = MsgBox("此单位本季度信息已存在，是否覆盖", 1, "提示信息")
        If confirm = 1 Then
           rs.Close
           rs.Open "delete from 表1 where 单位名称='" & Trim(Text1.Text) & "' and 季度='" & Trim(Combo1.Text) & "' ", cn, , adCmdTable
 cn.Execute ("insert into Sql表(单位代码,标准分,不符合项数,企业备注,季度) SELECT 单位代码,标准分,不符合项数,企业备注,季度 FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\ccs.mdb;access表')")

Answer 4

If Trim(Text1.Text) <> "" Or Trim(Combo1.Text) <> "" Then
      Dim cn As New ADODB.Connection
      Dim confirm As Integer
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=sa;Initial Catalog=SSt;Data Source=127.0.0.1"
      cn.CursorLocation = adUseClient
      cn.Open
      rs.Open "select * from 表1 where 单位名称='" & Trim(Text1.Text) & "' and 季度='" & Trim(Combo1.Text) & "' ", cn, , adCmdTable
    
      If Not rs.EOF Then
        confirm = MsgBox("此单位本季度信息已存在，是否覆盖", 1, "提示信息")
        If confirm = 1 Then
           rs.Delete
           rs.Close
        Else
           rs.close
           exit sub
        End If
      End If
 cn.Execute ("insert into 表1 SELECT 单位代码,标准分,不符合项数,企业备注,季度 FROM 表1 in "" & App.Path & "\ccs.mdb""")End If