想把其它类型数据库中的数据导到SQL2000中来，select * into 如何写？

[hbjmdx008]

如题：
select * into 是不同的类型的的数据库，
AccessConn=""Provider=microsoft.jet.oledb.4.0;data source=d:\db1.mdb;"
sqlConn="Provider=SQLOLEDB;data source=(local);initial catalog=yang;userid=sa;password=123;"
这句
select * into A from B
怎么写呀。

在线等呀。

[hbjmdx008]

非常感谢，马上结贴：）

[hbjmdx008]

自已UP先呀！！！

[Snoworld]

可以做兩個連接,分別連接ACCESS和SQL SERVER數據庫,
先從一個連接的記錄集裏取出ACCESS的數據放到一個變量裏,
再把這個變量的內容INSERT到SQL SERVER數據庫中.

[faysky2]

SELECT * INTO A FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0', 'Data Source=D:\DB1.mdb;User ID=Admin;Password=' )...B

[Snoworld]

這是我原來的一個類似於這樣程序的代碼
---------------------------------------------
Option Explicit

Private Sub Command1_Click()
'定义变量
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Dim Ser, Us, Pd, SqlData As String
Dim ConnStr, ConnStr1, SSql, A1, B1, C1 As String
Dim Rs As New ADODB.Recordset
Dim I, Count2, D1 As Integer

Ser = Trim(Text7.Text)
Us = Trim(Text5.Text)
Pd = Trim(Text6.Text)
SqlData = Trim(Text8.Text)
D1 = CInt(Text4.Text)
I = 0

'连接SQL数据库

ConnStr = "Driver={SQL Server};SERVER=" & Ser & ";UID=" & Us & ";PWD=" & Pd & ";database=" & SqlData & ""
Conn.ConnectionString = ConnStr
Conn.ConnectionTimeout = 0
Conn.Open

Command1.Enabled = False
ConnStr1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\update.mdb" & ";Persist Security Info=False"
Conn.CursorLocation = adUseClient
Conn.CommandTimeout = 0

'查询数据库

Rs.Open "Select * From tab", ConnStr1, adOpenStatic, adLockOptimistic, adCmdText

'建立存放运行结果的文档

Open App.Path & "\Result.txt" For Output As #1

Print #1,

'更新操作

Do While Not Rs.EOF
Text1.Text = Rs!hphmid1
Text2.Text = Rs!hphm2
Text3.Text = Rs!hphmid3
A1 = Trim(Text1.Text)
B1 = Trim(Text2.Text)
C1 = Trim(Text3.Text)
I = I + 1
SSql = "*****"
Conn.Execute SSql, Count2
Print #1, A1 & " " & B1 & " " & C1 & " " & Count2
Rs.MoveNext
Loop
Close #1
'关闭连接
Set Rs = Nothing
Set Conn = Nothing

Label4.Caption = "共有" & I & "条记录"
MsgBox "运行完毕", vbInformation, "消隐"
Command1.Enabled = True
Set I = Nothing
End Sub

[迈克揉索芙特]

这是从SQL Server导入的代码，自己修改一下吧。

SELECT * INTO A FROM [ODBC;Driver=SQL Server;Server=MyServer;UID=sa;PWD=;Database=MyBase;].[MyTab]

[faysky2]

可以用ADO来执行，代码大致如此：

dim cn as new adodb.connection
dim sqlConn as string
dim strSql as string
sqlConn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=123;Initial Catalog=yang;Data Source=(local)"
cn.connectionString=sqlConn
cn.open
strSql="SELECT * INTO A FROM OPENDATASOURCE ('Microsoft.Jet.OLEDB.4.0', 'Data Source=D:\DB1.mdb;User ID=Admin;Password=' )...B"
cn.execute strSql

[hbjmdx008]

谢谢各位，试一下了。