EXCEL vba *** 作access数据库，执行insert *** 作时，如何将记录插在数据表的最后一行

如果没有特殊设定的话，基本都是自动最后一行。

在使用INSERT INTO TableName(field1,field2,field3,) VALUES()向Access数据库插入一条记录

以前在网上看到的例子，应该就是你想要了

CREATE proc spGenInsertSQL (@tablename varchar(256))

as

begin

declare @sql varchar(8000)

declare @sqlValues varchar(8000)

set @sql =' ('

set @sqlValues = 'values (''+'

select @sqlValues = @sqlValues + cols + ' + '','' + ' ,@sql = @sql + '[' + name + '],'

from

(select case

when xtype in (48,52,56,59,60,62,104,106,108,122,127)

then 'case when '+ name +' is null then ''NULL'' else ' + 'cast('+ name + ' as varchar)'+' end'

when xtype in (58,61)

then 'case when '+ name +' is null then ''NULL'' else '+''''''''' + ' + 'cast('+ name +' as varchar)'+ '+'''''''''+' end'

when xtype in (167)

then 'case when '+ name +' is null then ''NULL'' else '+''''''''' + ' + 'replace('+ name+','''''''','''''''''''')' + '+'''''''''+' end'

when xtype in (231)

then 'case when '+ name +' is null then ''NULL'' else '+'''N'''''' + ' + 'replace('+ name+','''''''','''''''''''')' + '+'''''''''+' end'

when xtype in (175)

then 'case when '+ name +' is null then ''NULL'' else '+''''''''' + ' + 'cast(replace('+ name+','''''''','''''''''''') as Char(' + cast(length as varchar) + '))+'''''''''+' end'

when xtype in (239)

then 'case when '+ name +' is null then ''NULL'' else '+'''N'''''' + ' + 'cast(replace('+ name+','''''''','''''''''''') as Char(' + cast(length as varchar) + '))+'''''''''+' end'

else '''NULL'''

end as Cols,name

from syscolumns

where id = object_id(@tablename)

) T

set @sql ='select ''INSERT INTO ['+ @tablename + ']' + left(@sql,len(@sql)-1)+') ' + left(@sqlValues,len(@sqlValues)-4) + ')'' from '+@tablename

print @sql

exec (@sql)

end

GO

使用方法

exec spGenInsertSQL 表名

以上就是关于EXCEL vba *** 作access数据库，执行insert *** 作时，如何将记录插在数据表的最后一行全部的内容，包括:EXCEL vba *** 作access数据库，执行insert *** 作时，如何将记录插在数据表的最后一行、sql和access数据库生成insert语句，请问怎么写、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！