Alexandre Fim 14/9/2021, 22:17
Giovanni,
A instrução DELETE que eu sugeri não vai funcionar porque a conexão utilizada é combinada com abertura de recordset, ou seja, a conexão está "engessada".
Não é a forma mais correta de utilizar.
É necessário separar as coisas.
Abrir conexão é uma coisa e abrir um recordset é outra.
Ao abrir uma conexão, vc pode utilizar seus métodos para executar determinadas rotinas.
Minha sugestão:
Criar uma função somente para abrir conexão com o MySQL:
- Código:
Public Function fnConn()
Call MySQL_Server 'Carrega parametros do servidor
If cn.State = 0 Then
cn.Open "Driver={MySQL ODBC 5.3 ANSI Driver};" & _
"Server=" & MyslqServidor & ";" & _
"Database=" & MyslqDatabase & ";" & _
"User=" & MyslqUsuario & ";" & _
"Password=" & MyslqSenha & ";" & _
"PORT=" & MyslqPorta & ";" & _
"Option=3;"
End If
Exit Function
trata_erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Exit Function
End Function
E a rotina de exclusão de dados poderia ser executada desta forma:
- Código:
'-- Abre conexão
Call fnConn
If Me.pr06composto = "SIM" Then
csql = ("DELETE FROM pr07composicao WHERE pr07idprod = " & Me.pr06idprod)
cn.Execute csql '==> executa Instrução DELETE
Else
csql = ("DELETE FROM pr08fornecedores WHERE pr08idprod = " & Me.pr06idprod)
cn.Execute csql '==> executa Instrução DELETE
End If
cn.Close
Segue exemplo de utilização da conexão:
- Código:
' -- função que abre a conexão
Call fnConn
' ------ Usando conexão para abrir recordset de uma query (SELECT) -------
sSQl = "SELECT * FROM SUA_TABELA"
rs.Open sSQl, cn, adOpenKeyset, adLockReadOnly
If Not rs.EOF Then
'-- executar rotina desejada........
'....
'...
End If
'----------------------------------------------------------------------------
'--- Excluido registros ----------------------------------------------------
sSQl = "DELETE FROM SUA_TABELA WHERE CONDIÇÃO....."
cn.Execute sSQl
'----------------------------------------------------------------------------
'-- Inserindo dados
sSQl = "INSERT INTO SUA_TABELA (CAMPO1,CAMPO2) VALUES (VALOR1,VALOR2)"
cn.Execute sSQl
'----------------------------------------------------------------------------
'-- Atualizando dados
sSQl = "UPDATE SUA_TABELA SET CAMPO1 = VALOR1, CAMPO2 = VALOR2 WHERE CONDIÇÃO..."
cn.Execute sSQl
'----------------------------------------------------------------------------
OBS: O bd MySQL está em algum provedor na nuvem ou é local?
Se o servidor de dados for "COMPARTILHADO" é necessário fazer ajustes na conexão, pois o próprio servidor derruba a conexão quando ela está inativa.
Já me deparei com servidores compartilhados, e pra não gerar erro em uma situação de cadastro /geração de relatório e etc, fiz o seguinte ajuste:
- Código:
'-- Situação 1= Conexão fechada e o nome de banco de dados for vazio/null
If cnn.State = 0 And (IsNull(cnn.DefaultDatabase) Or Trim(cnn.DefaultDatabase) = Empty) Then
'==> Executa função para abrir conexão
End If
'-- Situação 2= Conexão aberta e nome de banco de dados for vazio/null
If cnn.State = 1 And (IsNull(cnn.DefaultDatabase) Or Trim(cnn.DefaultDatabase) = Empty) Then
'==> Executa função para abrir conexão
End If
É isso.
Espero ter ajudado.
[]'s
FIM
Início
![[Resolvido]Excluir mais de um registro conforme critério com sql (ADO / mysql) - CRUD Completo Empty](https://2img.net/i/empty.gif)
