关于csv 文件格式导入Acess?(难)_在线等 ( 积分: 50 )

procedure&nbsp;TForm1.Button6Click(Sender:&nbsp;TObject);<br>var<br>&nbsp;&nbsp;filepath,filename:string;<br><br>&nbsp;&nbsp;path2,name2:string;<br>begin<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;filepath:=trim(edit1.Text);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;filename:=trim(edit2.Text);&nbsp;&nbsp;//全文件名<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;path2:=&nbsp;ExtractFilePath(filename);&nbsp;&nbsp;//&nbsp;路径<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;name2:=ExtractFileName(filename);&nbsp;&nbsp;&nbsp;//文件名<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADOConnection1.ConnectionString&nbsp;:=<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'Provider=Microsoft.Jet.OLEDB.4.0;Data&nbsp;Source='&nbsp;+<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;filepath&nbsp;+&nbsp;';Persist&nbsp;Security&nbsp;Info=False';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ADOConnection1.Connected&nbsp;:=&nbsp;true;<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery1.Close;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery1.SQL.Clear;<br>&nbsp;&nbsp;&nbsp;adoquery1.SQL.Text:='insert&nbsp;into&nbsp;aaa&nbsp;select&nbsp;*&nbsp;from&nbsp;[Text;FMT=Delimited;HDR=Yes;DATABASE='+path2(路径)+';].['+name2(文件名)+']';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery1.ExecSQL;<br><br><br>上面提示出错信息为&nbsp;&quot;.....验证失败&quot;,哪们高手帮忙看看,是不是这方法不对....

顶一下//

2007.06.06 6:31 1.3535 1.3536 1.3534 1.3536 6<br>2007.06.06 6:32 1.3535 1.3535 1.3534 1.3534 4<br>2007.06.06 6:33 1.3535 1.3536 1.3535 1.3536 6<br>2007.06.06 6:35 1.3537 1.3537 1.3536 1.3537 3<br>.....&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.....&nbsp;&nbsp;&nbsp;.....&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;....&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;....&nbsp;.&nbsp;&nbsp;..<br>我的csv&nbsp;文件里存放的是这样的数据,想把他存入ACCESS字段为<br>page&nbsp;yu&nbsp;kk&nbsp;pps&nbsp;&nbsp;yyyi&nbsp;&nbsp;&nbsp;klli&nbsp;fffi<br>...

昨晚想了5个钟头终于解决这个问题了,[]

&quot;.....验证失败&quot;&nbsp;难道是库没有连上吗?