如何解决文本文件导入到access库有乱码的问题？？

Question

有这么一段代码：如下显示;
......
......
 If  RadioXS=True Then                   
           Begin
            scontent.Clear;
            For j:=8 to strlist.Count-1 Do
               If Trim(strings[j])<>'' Then
                   scontent.Add(strings[j]);
           End;With Query1 Do                    
            Begin
              close;
              sql.Clear;
              sql.Add(sqltext);                                    
              ParamByName('@bt').AsString:=Ibt;
              ParamByName('@fbbm').AsString:=Ifbbm;
              ParamByName('@bbdate').AsString:=Ibbdate;
              ParamByName('@yxx').AsString:=Iyxx;
              ParamByName('@ssdate').AsString:=Issdate;
              ParamByName('@content').Assign(Scontent);
              execsql;
            End;
文本数据导入到access库之后， 我到库里看内容，发现内容末总有一些乱码?
我想是不是有些字符占两个字节，有些占一个字节，引起的？？
或者是别的什么原因引起的?
应该怎么解决呢？

Answer 1

access中就有可以直接导入文本文件的功能，不用在费事啊
我以前遇到过把excle导入到access中数据出错的问题，但是用文本的导入还没出过问题
你看看用access直接导入行不行，如果不行可能是存在半个字符分隔的问题

Answer 2

To:Uoooo(羽毛)是啊，怎么做呢？

Answer 3

access里面哪里可以直接导呢？？
如果用程序怎么做呢?

Answer 4

tblobfield(adotable1.fieldbyname('aa')).loadfromfile('a.txt').

Answer 5

转换为双字节后在存储
delphi默认为单字节，vb中会自动转换为双字节

Answer 6

var
scontent:Tstringlist;
....
....
Loadfromfile(DirectoryListBox1.Directory+FileListBox1.Items[i]);
....
....
Begin
   scontent.Clear;
   For j:=6 to strlist.Count-1 Do
   If Trim(strings[j])<>'' Then
     scontent.Add(strings[j]);                        
   End;然后再它内容导出到access中总有些乱码？？
怎么解决呢？？
急呀!!!

Answer 7

新建一新数据库
文件－>获取外部数据－>导入
选择文本文件
然后会提示你如何分隔，这里每一行的格式都应是相同的，否则就会把它合并为一个字段，还有就是用空格分隔不好，格式不好掌握，如果你的文本使用逗号分隔或者tab的就简单多了。