COMO FACO ESSA SQL

WEBIER 28/12/2010 12:46:00
#360537
pego o banco de dados:
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)
JEISONANTONI 28/12/2010 13:29:20
#360540 Resposta escolhida
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
Tópico encerrado , respostas não são mais permitidas
Voltar