|
|
Postada em 31/05/2007 10:56 hs
GALERA A PERGUNTA E SIMPLES, SO NAO SEI SE A RESPOSTA SERA SIMPLES! COMO FAZER O CODIGO ABAIXO EM DAO (interrogacao) '----INICIO---conecta ao BD------
Set CON = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.Recordset") CON.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & App.Path & "DADOS.mdb"
RS.CursorLocation = adUseClient
'----FIM---conecta ao BD--------- '---tabela e campo do BD
RS.Open "SELECT * FROM VENDAS WHERE (((Cod_venda) Like '%" & txt_cod_venda & "%')) and (((Seq) Like '%" & txt_sequencia & "%'))", CON, adOpenStatic, adLockOptimistic
RS.Find "Produto = '" & txt_produto & "'", , adSearchForward, 1
RS.Delete '----INICIO---Desconecta------
RS.Close
CON.Close Set RS = Nothing
Set CON = Nothing
'----FIM---Desconecta------
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" 
|
|
|
|
|
|
|
|
Postada em 31/05/2007 13:31 hs
Faça referencia ao DAO3.6, ao Jet, Recordset Library 2.x. Dim CON As Database Dim RS As Recordset Set CON = OpenDatabase("caminhaanco.mdb", False, False, "se tiver senha") Set RS = CON.OpenRecordset("TABELA", DbOpenTable) RS.Index="Produto" RS.Seek"=", txtProduto.Text If RS.NoMatch Then não achou Else RS.Edit RS.Delete End If RS.Close CON.Close Set CON = Nothing vlu// |
|
|
|
DCM
|
GOIÂNIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 31/05/2007 14:03 hs
Deixa eu tentar e te falo......
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
|
|
Postada em 31/05/2007 14:12 hs
E essa parte? RS.CursorLocation = adUseClient Pra que serve esta parte? alguem sabe?
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
|
|
Postada em 31/05/2007 17:05 hs
Forma do cursor do BD, no DAO, false ou true. vlu// |
|
|
|
|
|
Postada em 04/06/2007 09:48 hs
CARA, BRIGADAO......... DEU CERTO..... TOPICO FECHADO
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
|
