一个文本文件,只有一列,如何才能将他的内容,每11行取出,变成另一个SQL 表的一个记录的11列???

如题.  
   
  谢谢先 问题点数：20、回复次数：3Top

1 楼of123（）回复于 2006-03-07 09:33:46 得分 19

dim   a(10)   as   string,   i   as   integer  
  dim   cnn   as   new   adodb.connection  
   
  cnn.open   strconnectionstring,   ......  
  open   "1.txt"   for   input   as   #1  
  do   until   eof(1)  
          input   line   #1,   a(i)  
          i   =   i   +   1  
          if   i   =   11   then  
                  i   =   0  
                  cnn.execute   "insert   into   yourtable(field1,field2,......,field11)"   &   _  
                              "   values('"   &   a(0)   &   "','"   &   a(1)   &   "','"   &   ......   &   a(10)   &   "')"  
          end   if  
  loop  
  close   #1  
  cnn.close  
  set   cnn   =   nothingTop

2 楼ZOU_SEAFARER（颓废程序员^_^）回复于 2006-03-07 10:12:56 得分 1

楼上正解，来晚了Top

3 楼imur2008（）回复于 2006-03-09 03:54:14 得分 0

谢谢2位大侠!  
  Top

相关问题

• cnn
• 谢谢
• field
• input
• open

• 帖主：imur2008
• of123
• ZOU_SEAFARER

• Visual Basic类图书
• Visual Basic类源码下载