access可否改成在另外驱动器中的aaa文件夹中的同名数据库中新建一个表然后将数据写入?
以下代码是在同一数据库(PX.MDB)中新建一个表,然后将选出数据写入,可否改成在另外驱动器中的aaa文件夹中的同名数据库中新建一个表然后将数据写入?Dim Conn As ADODB.Connection'工程要引用ADO哦
Dim Rs As ADODB.Recordset
Dim Rs1 As ADODB.Recordset
'下面代码的正常运行,需要在窗体上画一个按钮,二个文本框
Private Sub Command1_Click()
If Len(Text1) = 0 Or Len(Text2) = 0 Then
MsgBox "请在两个文本框中输入需要导出的起止ID"
Exit Sub
End If
Path = App.Path
Set Conn = New ADODB.Connection
'请修改下面数据库文件的位置,这里是在工程文件夹下的PX.MDB
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path & "\px.mdb;Persist Security Info=False;"
Conn.Open '上面是创建数据库连接,并打开数据库
'下面的代码将创建一个临时表TmpTable,并将原表中符合所输入的起止ID条件的数据存入临时表TmpTable中
Set Rs = New ADODB.Recordset
Rs.Open "select 科目一,科目二,科目三,日期,ID INTO TmpTable from dfg where id>=" & Text1 & " and id <=" & Text2, Conn, 1, 1
Conn.Close
End Sub