Alepe

[alepe]

Erro de Sintaxe (operador Faltando) na expressão.

rs.Open "insert into fimcomanda SELECT * From comanda Where nomedaloja LIKE '%" & txtloja.Text & "%' or datadacomanda Between LIKE '%" & Text1.Text & "%' and LIKE '%" & Text2.Text & "%' ", cn, adOpenDynamic, adLockOptimistic

'Objetos para trabalhar com o BD e a tabela, respectivamente
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 rs3 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
    rs3.CursorLocation = adUseClient
End Sub

Private Sub cmdfechar_Click()

rs.Close
rs.Open "insert into fimcomanda SELECT *  From comanda Where nomedaloja LIKE '%" & txtloja.Text & "%' or datadacomanda Between LIKE '%" & Text1.Text & "%'  and LIKE '%" & Text2.Text & "%' ", cn, adOpenDynamic, adLockOptimistic


MsgBox "Arquivo de Encerramento de Comanda Criado ... ! "
End Sub

[CKorneLL]

No insert não se usa WHERE....

A sintexe dele é Assim...

INSERT INTO Tabela

(valor1,

valor 2)

VALUES

(V1,

V2)

Vê se você consegue mudar para sintaxe acima beleza???

CKorneLL.

[Guest Natarelli]

INSERT INTO Tabela2 ( Campo1, Campo2, Campo3 )

SELECT Tabela1.Campo1, Tabela1.Campo2, Tabela1.Campo3

FROM Tabela1

WHERE Tabela1.Campo3="S"

você tem que fazer a relação dos campos da tabela1 com os campos da tabela 2.

Abs,