en un proyecto anterior habia utilizado este codigo y habia funcionado pero ahora no funciona hice algo mal? seguro que si, podrian ayudarme
este es el codigo el error selecciona la linea
Set conEdits = wrkODBC.OpenConnection("proyecto", , , _
"ODBC;DATABASE=trabajos;UID=root;PWD=;DSN=proyecto ")
Set qdfTemp = conEdits.CreateQueryDef("")
Código:
Private Sub Command1_Click(Index As Integer)
'eliminar
Dim wrkODBC As Workspace
Dim conEdits As Connection
Dim qdfTemp As QueryDef
Dim rstTemp As Recordset
Dim Contador As Integer
Dim Mensaje2, Respuesta, Título As String
Contador = 0
If Text1.Text = "" Then
Mensaje2 = "Debe digitar un CODIGO DE USUARIO"
Respuesta = MsgBox(Mensaje2, vbOKOnly, Título)
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
Exit Sub
End If
' Crea un objeto Workspace ODBCDirect y abre un objeto Connection.
Set wrkODBC = CreateWorkspace("", "admin", "", dbUseODBC)
Set conEdits = wrkODBC.OpenConnection("proyecto", , , _
"ODBC;DATABASE=trabajos;UID=root;PWD=;DSN=proyecto")
Set qdfTemp = conEdits.CreateQueryDef("")
'consulta
With qdfTemp
.Prepare = dbQUnprepare
.SQL = "SELECT * FROM USUARIOS WHERE COD_USUARIO = ' " & Text1.Text & " ' "
.Execute
End With
' Abre el conjunto de registros que contiene los registros modificados.
Set rstTemp = conEdits.OpenRecordset("")
' Enumera el conjunto de registros.
With rstTemp
Do While Not .EOF
Contador = Contador + 1
.MoveNext
Loop
.Close
End With
If Contador = 0 Then
MsgBox ("CODIGO NO ENCONTRADO")
Else
With qdfTemp
.Prepare = dbQUnprepare
.SQL = "DELETE FROM USUARIOS WHERE COD_USUARIO = '" & Text1.Text & "'"
.Execute
.Close
End With
MsgBox ("EL USUARIO FUE ELIMINADO DE LA BASE DE DATOS")
End If
conEdits.Close
wrkODBC.Close
End Sub
gracias!!!
