SQL delete - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: SQL delete

Reginaldo

BELO HORIZONTE
BH - BRASIL

ENUNCIADA !

Postada em 06/01/2006 15:16 hs

Como faço para deletar todos os registros com data de emissão menor que um inputbox? A campo da tabela já é formato data. Segue abaixo o código, se alguém puder me ajudar eu agradeço.

Dim CaixaData As String
Dim Testedata As Boolean
CaixaData = InputBox("Digite a data final que será apagada", "Limpar histórico")
Testedata = IsDate(CaixaData)
If Testedata = False Then
MsgBox "Data inválida" + Chr(13) + Chr(13) + "Formato da data: dd/mm/aa", vbOKOnly, "Erro"
Exit Sub
End If
Dim Sql As String
Sql = "delete *from regboleto where boletoemissao= caixadata"
BancodeDados.Execute Sql
Data1.Refresh

Obrigado.

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 07/01/2006 20:46 hs

Tenta assim:

Dim CaixaData As String
Dim Testedata As string

Dim Sql As String

CaixaData = InputBox("Digite a data final que será apagada", "Limpar histórico")
Testedata = format(CaixaData,"mm/dd/yyyy")

If not isDate(TesteData) Then
MsgBox "Data inválida",vbExclamation, "Erro"
Exit Sub
End If
Sql = "delete *from regboleto where boletoemissao < #" & Testedata & "#"
BancodeDados.Execute Sql
Data1.Refresh

qq dúvida é só postar

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

ENUNCIADA !

Postada em 09/01/2006 06:44 hs

DELETE FROM regBoleto WHERE boletoEmissao <= #00/00/0000#

Lembra q no Access data deve estar no formato ingles: mm/dd/yyyy

Flw!

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Reginaldo

BELO HORIZONTE
BH - BRASIL

ENUNCIADA !

Postada em 09/01/2006 06:50 hs

Muito obrigado!

Funcionou!

Página(s): 1/1