VBA把access中的查询结果,提交到sql2005中的一个表中
不用access中自带升级到sql中的功能,而是用VBA
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
Dim sql1 As String
sql1 = " SELECT a,b,c from tb1" 'tb1是access中的表
rs1.Open sql1, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql, strCn As String
strCn = "Provider=sqloledb;Server=192.168.0.1;Database=abc;uid=sa;pwd=qwe"
conn.Open strCn
sql = "insert into tb_test(a,b,c) values('" & rs1.Fields("a") & "','" & rs1.Fields("b") & "','" & rs1.Fields("c") & "')" 'tb_test是sql中的表
Set rs = conn.Execute(sql)
Set rs = Nothing
Set conn = Nothing
但是结果在tb_test中只能添加一条记录，实际上tb1（access中的表）中有很多条记录，怎样把tb1中的记录全部添加到tb_test（sql中的表）中去
但是在sql2005中用刚才的方法添加的数据有的是乱码呢?
sql2005中字段类型是:nvarchar(50)
access中字段类型是：文本
{{---
相关问答：
select convert(varchar(50),cast(convert(numeric(18,2),1275674000000/100000000)as real))+'亿'
select cast(convert(numeric(18,2),1275674000000/100000000)as real)
为什么上一个用varchar转换后就只保留了� ......
请问一下，外网两台SQLSERVER实例数据传输，有没有采用数据压缩和加密。压缩比是多少，加密是什么加密算法？相关文档哪里可以找到？谢谢
我也想知道！关注此贴！
关注～～
数据库大牛都哪去了啊？
......
问题是这样的,现在有一个工资表,是EXCEL的,我要把它导入ACCESS,因为 要查询每个人的工资,根据不同的编号可以查询到相对的人,
用ASP 怎么将EXCEL导入到ACCESS,而且每月都有不同的表,
引用
其实就是把EXCEL当成数 ......
