将某一个excel文件的内容显示在listview再将这个excel文件显示出来的数据导入到SQL数据库中某一个表，并将excel的内容和数据数据库中的内容比较，如果有重复，则提示

Question

将某一个excel文件的内容显示在listview再将这个excel文件显示出来的数据导入到SQL数据库中某一个表，并将excel的内容和数据数据库中的内容比较，如果有重复，则提示.
刚接触vb请高手指点

Answer 1

    Dim FileName As String
    
    FileName = "D:\***.xls"
    
    Dim conn As ADODB.connection
        
    Set conn = New ADODB.connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist SecurITy Info=False;Data Source=" & FileName & ";Extended Properties='Excel 8.0;HDR=Yes'"    Dim rs As New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open "select * from [sheet1$]", conn, 3, 3    ListView1.View = lvwReport
    Dim i As Integer
    
    For i = 1 To rs.Fields.Count
        ListView1.ColumnHeaders.Add , "K" & i, i
    Next i
    
    Dim lv As ListItem
        
    Do While Not rs.EOF
        Set lv = ListView1.ListItems.Add
        lv.Text = IIf(IsNull(rs.Fields(0)), "", rs.Fields(0))
        For i = 1 To rs.Fields.Count - 1
            lv.SubItems(i) = IIf(IsNull(rs.Fields(i)), "", rs.Fields(i))
        Next i
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    
    conn.Close
    Set conn = Nothing
以上是"将某一个excel文件的内容显示在listview"

Answer 2

Dim conn As ADODB.connection
        
    Set conn = New ADODB.connection
    conn.Open "Driver={SQL Server};Server=192.168.1.1;DataBase=DBName;UID=sa;PWD="
        
    Dim strSql As String
    For i = 1 To ListView1.ListItems.Count
        strSql = "INSERT INTO Table (Field1,Field2) Values ('" & ListView1.ListItems(i).Text & "','" & ListView1.ListItems(i).SubItems(1) & "')"
        conn.Execute strSql
    Next i
       
    conn.Close
    Set conn = Nothing
以上是"再将这个excel文件显示出来的数据导入到SQL数据库中某一个表，"