Juan Carlos R.A
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 13/10/2010 16:16 hs
isso mesmo.
|
|
|
|
|
|
|
|
Postada em 13/10/2010 21:50 hs
hun pessoal no meu tb nao funcionou nao deu erro no query ! |
|
|
|
|
|
Postada em 13/10/2010 21:56 hs
Pessoal tentei aqui da duas formas mas nao funcionou nao ! |
|
|
|
|
|
Postada em 14/10/2010 08:59 hs
Ta na hora de migrar para Ado.
no modulo copia aquilo:
Global Cn As New ADODB.Connection
no formulario:
na declaracao de variaveis:
Dim Regtabela as New Adodb.Recorset
No load do formulario
Cn.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; Data Source= " & App.Path & "Atendimento.mdb" & "; Persist Security Info=False"
Cn.CursorLocation = adUseClient
Cn.Open
no botao excluir:
set regtabela=cn.execute("select * from caixa where codigo=' " & textcodigo.text & " ' ")
if not regtabela.eof then
cn.execute("Delete From caixa where codigo=' " & textcodigo.text & " ' ")
regtabela.requery
endif
regtabela.close
set regtabela=Nothing
testado e aprovado viu. e se quiser pode chamar relatorio crystal que ja traz tudo atualizado.
lembrando que tem que fazer as referencias no projeto para Ado. pode ser 2.5, 26, 2,7 2.8
blz
|
|
|
|
Orlando
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/10/2010 09:25 hs
Dim XBCO As DAO.Database
Dim dyn As DAO.Recordset
Dim query As QueryDef
'Aqui você cria a QueryDef
Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "Cadastro.Mdb", False, False)
Set query = XBCO.CreateQueryDef("ApgRegistro", "Select * From caixa order by codigo")
XBCO.Close
'==================================================================================
'Aqui você usa para deletar os registros selecionados
Set AreaTrabalho = DBEngine.Workspaces(0)
Set XBCO = AreaTrabalho.OpenDatabase(App.Path & "TABELAS2", False, False)
Set dyn = XBCO.QueryDefs("ApgRegistro").OpenRecordset(dbOpenDynaset)
While Not dyn.EOF
dyn.Delete
dyn.MoveNext
Wend
dyn.Close
Set dyn = Nothing
XBCO.Close
|
|
|
|
Orlando
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/10/2010 09:31 hs
Juan Carlos R.A homem de Maceió.Nos temos que respeitar o direito do cidadão.Se ele quer usar
o Dao e problema dele.Você não tem que impor a sua vontade,pega leve.
|
|
|
|
