Insert Into

[Guest Aleinfo]

Caros gostaria de selecionar 3 tabelas e inserir em uma nova, mas ele da erro se usar o rs.open para fazer o insert into.

alguém de uma luz

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim nomeloja As String
Dim datacom As Date
Dim total As Double
Dim total1 As Double
Dim soma As Double
Dim soma1 As Double
Private Lista As ListItem
Private Lista1 As ListItem
Private contapagina As Integer


Private Sub cmdsair_Click()
   Unload Me
End Sub

Private Sub Form_Load()
Dim txtvltotal, txtvalorunitario, txtvalortotal, txtquantidade As Double
Dim txtnomedaloja, txtdescricacaodoproduto, txtcodigodoproduto As String
Dim txtncomanda As Integer
Dim txtdatacomanda As Data
Dim vdata As Date
    'Abre o banco de dados
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=fabrica.mdb"
    'Abre a tabela Comanda, Funcionário, Confererencia de Comanda
    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM comanda", cn, adOpenDynamic, adLockOptimistic
    'Cabeca da Comanda
    rs1.CursorLocation = adUseClient
    rs1.Open "SELECT * FROM cabecacomand", cn, adOpenDynamic, adLockOptimistic
    'Conferido e Contado
    rs2.CursorLocation = adUseClient
    rs2.Open "SELECT * FROM contconf", cn, adOpenDynamic, adLockOptimistic
    
End Sub

Private Sub cmdfechar_Click()
'rs.Open "SELECT * FROM cabecacomand,comanda,contconf where nomedaloja LIKE '%" & txtloja.Text & "%' or Between Text1.Text And Text2.Text", cn, adOpenDynamic, adLockOptimistic

INSERT INTO fimcomanda SELECT * FROM cabecacomand,comanda,contconf where nomedaloja LIKE '%" & txtloja.Text & "%' or Between Text1.Text And Text2.Text
MsgBox "Arquivo de Encerramento de Comanda Criado ... ! "
End Sub

[Luiz Humberto]

Para utilzar o INSERT INTO, com base nos dados obtidos em sua SELECT tem que fazer desta forma:

SELECT Campo
INTO    TabelaQueVaiInserir
FROM   Tabela

No seu caso ficaria:

SELECT * 
INTO  fimcomanda
FROM cabecacomand
        ,comanda
        ,contconf 
Where nomedaloja LIKE '%" & txtloja.Text & "%' or Between Text1.Text And Text2.Text