COMO FACO ESSA SQL
pego o banco de dados:
para inserir dados na tabela:
para remover dados da tabela:
como é que faço usando a mesma ideia (execSQL) ai de cima só para consultar informações na tabela, exemplo:
Sub execSQL(SQL As String)
[ô]Set BD = OpenDatabase([Ô]\\BALCAO01\SISTEMA\Cyberbase.mdb[Ô])
Set BD = OpenDatabase(App.Path & [Ô]\CYBERBASE.mdb[Ô])
BD.Execute SQL
BD.Close
End Sub
para inserir dados na tabela:
execSQL [Ô]INSERT INTO PEDIDOS (COD_PEDIDO, STATUS_PEDIDO) VALUES ([Ô] & txtCodPedido.Text & [Ô], FALSE)[Ô]
para remover dados da tabela:
execSQL [Ô]DELETE FROM PEDIDOS_ITENS WHERE CODIGO = [Ô] & Grid.TextMatrix(Grid.Row, 1) & [Ô] AND COD_PRODUTO = [Ô] & Grid.TextMatrix(Grid.Row, 2)
como é que faço usando a mesma ideia (execSQL) ai de cima só para consultar informações na tabela, exemplo:
Call ABRIR_BD2
SQL = [Ô]SELECT MAX(CODIGO) as ULTIMO_ITEM FROM PEDIDOS_ITENS[Ô]
Set RS = BD.OpenRecordset(SQL, dbOpenSnapshot)
txtCodItem.Text = IIf(IsNull(RS.Fields!ULTIMO_ITEM) = True, 1, RS.Fields!ULTIMO_ITEM + 1)
Sub execSQL(SQL As String, Consulta as Boolean)
Set BD = OpenDatabase(App.Path & [Ô]\CYBERBASE.mdb[Ô])
if Consulta then
set RS = DB.OpenaRecordset(SQL,dbOpenSnapShot)
else
BD.Execute SQL
end if
BD.Close
End Sub
para inserir dados na tabela:
execSQL [Ô]INSERT INTO PEDIDOS (COD_PEDIDO, STATUS_PEDIDO) VALUES ([Ô] & txtCodPedido.Text & [Ô], FALSE)[Ô], False
para remover dados da tabela:
execSQL [Ô]DELETE FROM PEDIDOS_ITENS WHERE CODIGO = [Ô] & Grid.TextMatrix(Grid.Row, 1) & [Ô] AND COD_PRODUTO = [Ô] & Grid.TextMatrix(Grid.Row, 2),False
[ô]------------------------------------------------------------------------
para consultar
SQL = [Ô]SELECT MAX(CODIGO) as ULTIMO_ITEM FROM PEDIDOS_ITENS[Ô]
execSQL SQL,True
txtCodItem.Text = IIf(IsNull(RS.Fields!ULTIMO_ITEM) = True, 1, RS.Fields!ULTIMO_ITEM + 1)
RS.close
[ô]-----------------------------------------------------------------------
A recordset >>RS<< deve ser declarada no módulo para ser global no projeto
Set BD = OpenDatabase(App.Path & [Ô]\CYBERBASE.mdb[Ô])
if Consulta then
set RS = DB.OpenaRecordset(SQL,dbOpenSnapShot)
else
BD.Execute SQL
end if
BD.Close
End Sub
para inserir dados na tabela:
execSQL [Ô]INSERT INTO PEDIDOS (COD_PEDIDO, STATUS_PEDIDO) VALUES ([Ô] & txtCodPedido.Text & [Ô], FALSE)[Ô], False
para remover dados da tabela:
execSQL [Ô]DELETE FROM PEDIDOS_ITENS WHERE CODIGO = [Ô] & Grid.TextMatrix(Grid.Row, 1) & [Ô] AND COD_PRODUTO = [Ô] & Grid.TextMatrix(Grid.Row, 2),False
[ô]------------------------------------------------------------------------
para consultar
SQL = [Ô]SELECT MAX(CODIGO) as ULTIMO_ITEM FROM PEDIDOS_ITENS[Ô]
execSQL SQL,True
txtCodItem.Text = IIf(IsNull(RS.Fields!ULTIMO_ITEM) = True, 1, RS.Fields!ULTIMO_ITEM + 1)
RS.close
[ô]-----------------------------------------------------------------------
A recordset >>RS<< deve ser declarada no módulo para ser global no projeto
Tópico encerrado , respostas não são mais permitidas