Dim cnn As ADODB.ConnectionPrivate Sub Command1_Click()
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\mydb.mdb"
cnn.Execute "select 学号,姓名,住址 into student in 'c:\temp\mydb2.mdb' from student "
cnn.Close
Set cnn = Nothing
End Sub
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\mydb.mdb"
cnn.Execute "select 学号,姓名,住址 into student in 'c:\temp\mydb2.mdb' from student "
cnn.Close
Set cnn = Nothing
End Sub
解决方案 »
- 请问如何终止函数里面的循环?
- 定时提取数据
- 用Webbroswer,下载一个网页的时候,如果里面有图片,怎么下载下来啊?
- Dataenviroment连接SQL SERVER 7.0,关于及时更新的问题?
- 系统授权问题,请教高手,很急,请帮帮忙!!
- ActiveReport的打印问题
- 关于VB编写的程序
- 文件内容排序问题
- 关于一个数据库内表记录全部导入另一个数据库内相同表中
- 我进了一家公司做Delphi程序,两个月了,老板说刚进来的时候是试用期,每个月300块钱,可是今天他炒了我,还说我没有为公司做什么事情,不给我工资,这合不合理呀。
- 如何获取某目录中的文件列表??
- 关于msflexgrid的问题,在线等待!!!!!!!!!!!!!!!!!!
---------------------------------------------------------
Montaque==Digitalboy==Houyongfeng==Monkey