请问一个关于文本文件导入数据库的问题，简单，高手赐教！

Question

想用vb操作文本文件导入数据表，并且是在原有的记录上追加，当碰到主键相同的情况下提示用户是否覆盖，请问如何实现？

Answer 1

你参考一下下面的代码吧
InputFileName = g_AppPath & "\" & InputFileName
    fileNumber = FreeFile
    
    Open InputFileName For Binary Access Read As fileNumber
    DataLen = LOF(fileNumber)    ReDim varData(DataLen - 1) As Byte
    Get fileNumber, , varData()
    
    Set cnn = New ADODB.Connection
    strCnn = "Provider=SQLOLEDB;" & "Data Source=" & g_strServerName & ";" _
            & "Initial Catalog=" & DBName & ";User ID=" & g_strUserID & ";" _
            & "Password=" & g_strUserPwd & ";"    cnn.Open strCnn
    Set rs = New ADODB.Recordset    rs.Open TableName, cnn, adOpenKeyset, adLockOptimistic, adCmdTable
    
    rs.AddNew
    rs.Fields(FileFieldName).Value = FileName
    rs.Fields(FileData).Value = varData
    
    rs.Update
    Close fileNumber
    rs.Close