等候各位给我解决,把存在于ACCESS里的记录全部导到SQLSERVER2000里去。
解决方案 »
- 关于SQL查询的问题
- 求助急!!VB所有控件突然无法显示中文
- 求一个简单信息管理系统,有添加、删除、修改、打印功能!
- 再问关于mshflexgrid控件的问题。谢谢大家
- 哪位高手可以贴个 完整的代码啊?不甚感谢!
- 我是一个新手,最近在编程的时候碰到了一个难题!!!现在向高手请教一下:在VB中怎样才能把本地的数据传到网络上的服务器上,比如象“登
- 请推荐本介绍数据库开发的经典书籍(ado)及介绍控件的书籍
- 请问怎样屏蔽Alt+Esc键?
- 怎样修改弹出式菜单的背景颜色。
- 我用ShellExecute调用一个dos程序,如何知道它已执行完毕?
- 程序退出时有时出现 "0x "指令引用"0x00000000"内存。该内存不能为"read"
- 如何使用Excel.Application打开一个xls文件
再写入到SQL SERVER.
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号)Private Sub Form_Load()
Dim cn As New ADODB.Connection
'连接sql库
cn.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=False;User ID=sa;Initial Catalog=Test;Data Source=ljx"
'自动在sql库里建表newTable1,并把当前目录下text.mdb的table1表的数据导进newTable1表里
cn.Execute ("SELECT * Into newTable1 FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0', 'Data Source=" & App.Path & "\test.mdb;User ID=Admin;Password=' )...table1")
cn.Close
Set cn=Nothing
End Sub
这里面格式都是这样的吗?有没有写错啊!请斟酌!!