DELETE

NILSONTRES 07/12/2024 17:05:53
#503674

Você não quer um DELETE, quer um UPDATE.
Dim DATA as date=TXT_DATA.TEXT
CAMPODATA=IIf(DATA = Nothing, System.DBNull.Value, DATA)
Não sei se isso rola em vb6.

FABRICIOWEB 09/12/2024 15:25:42
#503675 Resposta escolhida

Dim conn As ADODB.Connection
Dim cmd As ADODB.Command
Dim strConnection As String
Dim strSQL As String

Private Sub LimparCampoData()
On Error GoTo ErrorHandler

' Configurar a string de conexão
strConnection = "Driver={MySQL ODBC 8.0 Driver};Server=localhost;Database=seu_banco;User=usuario;Password=senha;"

' Criar a conexão
Set conn = New ADODB.Connection
conn.Open strConnection

' SQL para limpar o campo de data
strSQL = "UPDATE NomeDaTabela SET NomeDoCampoData = NULL;"

' Criar o comando e executar
Set cmd = New ADODB.Command
With cmd
.ActiveConnection = conn
.CommandText = strSQL
.CommandType = adCmdText
.Execute
End With

MsgBox "Campo de data limpo com sucesso!", vbInformation

' Fechar conexão
conn.Close
Set conn = Nothing
Set cmd = Nothing
Exit Sub

ErrorHandler:
MsgBox "Erro: " & Err.Description, vbCritical
If Not conn Is Nothing Then conn.Close
Set conn = Nothing
Set cmd = Nothing
End Sub

LUCIANO021273 11/12/2024 10:48:20
#503677

Valeu pessoal,
testei as duas e a do Fabricio deu certinho no que preciso!
Muito Obrigado pelo seu tempo!