具体的代码:参看这个例子VB支持SQL语言的SELECT ... INTO语句,这使得你可以将一种数据库轻松地转换为另一种格式,也可以在同一种格式的数据库中进行转换。下面我们以将.MDB格式转换为Excel形式为例。 首先,打开.MDB文件。如 Dim dbSource As Database
Set dbSource = OpenDatabase("MY.MDB") 然后使用SELECT ... INTO语句转换文件。 dbSource.Execute("SELECT * INTO my IN 'c:\documents\xldata.xls' 'EXCEL 5.0;' FROM table1") 这里,IN子句后面是转换后的数据库文件名,'EXCEL 5.0;'表示Excel 5.0/95格式,也可以是其他VB支持的格式。 SELECT ... INTO建立新的表或数据库,而如果要将数据追加到已经存在的数据库中,可以使用INSERT ... INTO语句。
解决了再加分
2、可以用两个ADO Connection分别连接Access和sql,用两个纪录集分别打开两个连接中的相关记录集,在VB中操作纪录集,然后更新数据库。特别是需要在交换数据时需要进行某些处理的情况,有时必须采用这种情况。
首先,打开.MDB文件。如
Dim dbSource As Database
Set dbSource = OpenDatabase("MY.MDB")
然后使用SELECT ... INTO语句转换文件。
dbSource.Execute("SELECT * INTO my IN 'c:\documents\xldata.xls' 'EXCEL 5.0;' FROM table1")
这里,IN子句后面是转换后的数据库文件名,'EXCEL 5.0;'表示Excel 5.0/95格式,也可以是其他VB支持的格式。
SELECT ... INTO建立新的表或数据库,而如果要将数据追加到已经存在的数据库中,可以使用INSERT ... INTO语句。
我没装sql server啊,一定要装吗?
changechange(改了又改) :你试过吗?看看先!