学习excel+MYSQL遇到问题求解

killer05

最近学习论坛里的《ExcelVBA操作MySQL》
就是EXECEL添加数据到mysql时出现重复数据了 如何判断跟去掉重复的值 不论怎么样这里先谢谢

killer05

代码如下
Public Function JOINFI(arr As Variant, delimiter As String, Optional quotes As String = "") As String      '定义函数JOINFI
  Dim i As Integer, el
  For Each el In arr
    i = 1 + i
    If i = 1 Then
      JOINFI = quotes & el & quotes
    Else
      JOINFI = JOINFI & delimiter & quotes & el & quotes
    End If
  Next el
End Function
Public Sub Import()
  Dim rngCur As Range, Cell As Range, i As Integer
  Dim sInsert As String, iRowscount As Integer
  Dim Con As ADODB.Connection
  With Worksheets("import")
    Set rngCur = .Range(.Range("a2"), .Range("a2").End(xlDown))
    '获取数据区域
  End With
  For Each Cell In rngCur
    i = 1 + i
    If i = 1 Then
      sInsert = "(" + JOINFI(Cell.Offset(0, 1).Resize(1, 6).Value, ",", """") + ")"
    Else
      sInsert = sInsert + "," + "(" + JOINFI(Cell.Offset(0, 1).Resize(1, 6).Value, ",", """") + ")"
    End If
  Next Cell
  '用for each 把数据添加到SQL命令字符串sInsert
  sInsert = "insert `student`(`chname`,`enname`,`sex`,`age`,`country`,`comments`) value" + sInsert
  '构造插入记录的SQL命令字符串sInsert
  Set Con = New ADODB.Connection
  Con.Open "Driver={MySQL ODBC 5.3 Unicode Driver};Server=127.0.0.1;Port=3306;Database=wxh;Uid=root;Pwd=haosql;OPTION=3;Stmt=Set Names 'GBK';"
  Con.Execute sInsert, iRowscount, adCmdText
  Con.Close: Set Con = Nothing
  MsgBox "导入 " & iRowscount & " 行", vbOKOnly, ""
End Sub
还是新手 论坛搜索了 还是不太懂 再哪加个判断重复值

huang1314wei

两种方法，一种是数据库添加约束，第二种就是插入数据的时候判断一下是不是重复，如果重复就修改数据，如果不重复才插入数据

fxl447098457

mysql设置unique index(唯一索引)。比如姓名，保证往表中插入重复列值的操作都会失败。

killer05

huang1314wei 发表于 2018-7-23 20:50
两种方法，一种是数据库添加约束，第二种就是插入数据的时候判断一下是不是重复，如果重复就修改数据，如果 ...

感谢你的解答，我再搜索相关的资料再学学用VBA操作MYSQL我还是新手

killer05

fxl447098457 发表于 2018-7-23 20:59
mysql设置unique index(唯一索引)。比如姓名，保证往表中插入重复列值的操作都会失败。

感谢你，看来我的SQL基础不是很好 以为 要多添加几个索引应该能解决
测试了Navicat改数据库索引 运行宏真的出错了

killer05

huang1314wei 发表于 2018-7-23 20:50
两种方法，一种是数据库添加约束，第二种就是插入数据的时候判断一下是不是重复，如果重复就修改数据，如果 ...

到时用你的第二种方法看看 先用ODAC方法 excel引用mysql数据到另一张sheet里然后输入数据的时候判断 太晚了 谢谢