用VB6向数据库插入数据时，怎么做才能快点

用VB6向数据库插入数据时，怎么做才能快点

谁让你一条一条去干：
Insert Into 表 Select * from 检索表 left join 表 on 检索表.字段=表.字段 where 表.字段 is null这句话的意思就是把现有表去比对检索表，如果现有表没有的就插入数据，如果有了就不做重复插入
前提条件你最好在SQL上做好数据挖掘，不要说表和检索表分开存储在不同服务器不同数据库，哪就必须要一条一条去做了
追问你写的一好看明白，我把我的代码写下
rs.open".................. ",cn
s = rs.field("字符串")
for i = 1 to n
cn.Execute "insert into 子串表1(序号,子串)values(" & h & "," & Mid(s, i, 10) & ")"
next i
意思就是把一个记录集的字符串分拆成多个子串,并插入其他表追答修改这句：
cn.Execute "insert into 子串表1(序号,子串)values(" & h & "," & Mid(s, i, 10) & ")"
这里多余：
rs.open".................. ",cn
s = rs.field("字符串")
这里面查的表直接可以操作啊，谁让你去查他一次，你只要不关闭cn，Excute就能执行表对表的插入追问那values里面的变量怎么处理，特别是mid函数追答怎么可能去用Mid函数，打个比方 Mid(字段,3,1) 我不能写成 Right(left(字段,4),1) 吗？不用Value关键字，是表对表操作，Value是固定值来自：求助得到的回答

insert into 表名(列名1,列名2,...)
select 行1的列1值,行1的列2值,...
union select 行2的列1值,行1的列2值,...
union ...

不知道你这个数据是在文件中保存的，还是需要手动一条一条输入，然后再insert into
如果是在文件中，那就直接读取文件 while循环，批量insert into 很快的。追问保存在数据库,用循环也是一条一条插入的啊