# To:CWW

Posted by Albert on July 23, 1998 at 09:45:03:

In Reply to: 你的做法是对的！ posted by 小吴 on July 22, 1998 at 07:52:23:

由于 CWW 的信我也寄不进去，
所以借用此讨论中心Post一点意见，
希望你能Check你的Mail为何老是退件?
若有其他Email Address告否告知?
******************************************
在你的Home Page上有一篇文章
[如何将其他资料汇入MDB档]
介绍如何将Text,Dbase,Paradox..转至mdb档
但是我试过若从SQL下载到mdb档，无法以此方式完成。
若是以传统方式一笔一笔Insert又太慢了，
在几经尝试之后终于抓到一点门路了，
以下是我的方式； 请指教(以下方式有使用ODBC,当然可改为不使用ODBC)

Private Sub Form_Load()
Dim db As Database, tbl As TableDef
'Create New mdb
'Set db = DBEngine.CreateDatabase(App.Path & "\mymdb.mdb", dbLangGeneral)
'Use Existed mdb
Set db = DBEngine.OpenDatabase(App.Path & "\GVC2BCR.mdb", False)
Set tbl = db.CreateTableDef("Temp")
' ********** Temp为自取名称，可自由定名称
' SOURCE POSITION
tbl.CONNECT = "ODBC;DATABASE=GVCPDC;UID=useid;PWD=xxx;DSN=GVC2"
tbl.SourceTableName = "SnoList" ' 于SQL Server中待转的Table Name
db.TableDefs.Append tbl
' ********************* 先删除旧资料
db.Execute "Delete * from dbo_SnoList " ' 转到已存在的Access Table中故先删除旧资料
' 以下是dbo_SnoList不存在时的作法
'db.Execute "Select Temp.* into dbo_SnoList from Temp"
' ********************* 从SQL转到(Insert)ACCESS
db.Execute "insert into SnoList Select Temp.* from Temp"
'由于是暂时定义Temp table故需删除
db.TableDefs.Delete tbl.Name
db.Close
Set tbl = Nothing
Set db = Nothing
End Sub

Follow Ups:

- 您是对的 cww 15:43:38 7/23/98 (0)