Visual Basic - DELETE CON ODBC

Life is soft - evento anual de software empresarial
   
Vista:

DELETE CON ODBC

Publicado por JHON JAIRO (2 intervenciones) el 31/08/2016 15:56:07
BUEN DIA, EL CODIGO ADJUNTO ME PERMITE CONECTARME MEDIANTE ODBC CON UNA BASE DE MYSQL DE UN SITIO WEB. LA CONEXION ESTA OK,

NECESITO QUE ALGUIEN EXPERTO ME REVISE ESTE CODIGO, POR CUANTO ME APARECE UN MENSAJE EN LA LINEA

-----Rs.Delete------

EL MENSAJE ME DA 2 POSIBILIDADES.
1) QUE EL CODIGO ADJUNTO EXISTA ALGUNA INSTRUCCION QUE ME IMPOSIBILITE REALIZAR EL DELETE?

2) QUE LA BASE DE DATOS TENGA RESTRICCIONES Y NO ME PERMITA HACER EL DELETE?

Por favor alguien que me colabore revisando el codigo y mirando si existe algo de lo expuesto en el punto 1.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim CON As ADODB.Connection
Dim Comd As ADODB.Command
Dim Rs As ADODB.Recordset
 
Public Function Conectar_bd()
 
	Set CON = New ADODB.Connection
	Set Comd = New ADODB.Command
	Set Rs = New ADODB.Recordset
 
	CON.CommandTimeout = 40
	CON.CursorLocation = 1
 
	Nombd = "midatabase"
	servidor = "100.X.X.X"
	usuario = "MIUSER"
	Pwd = "MIPWD"
 
	CON.Open "DRIVER={MySQL ODBC 5.3 Unicode Driver};DATABASE=" & Nombd & ";SERVER=" & servidor & ";UID=" & usuario & ";password=" & Pwd & ";PORT=3306;"
 
	Set Comd.ActiveConnection = CON
 
End Function
 
Private Sub Form_Load()
	'i = 1
	Conectar_bd
	'Le digo la consulta a ejecutar al comando
	Comd.CommandText = "SELECT * FROM table_04 where idTable_04 = 0"
 
	Rs.CursorLocation = adUseClient
	Rs.Open Comd, , 1, 1
	'Rs.AddNew
 
	'Rs.Open Comd, , adOpenDynamic, adLockUnspecified, -1
 
	MsgBox (Rs.RecordCount)
	Rs.MoveFirst
 
	While Not Rs.EOF
		'MsgBox i
		Rs.Delete
		Rs.MoveNext
		'i = i + 1
	Wend
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

DELETE CON ODBC

Publicado por JHON JAIRO jjfchamorro@hotmail.com (2 intervenciones) el 03/09/2016 00:48:53
Encontre la solución, el problema estaba en que mysql interpretaba la instruccion como consulta y no me permitia borrar los registros asi, este es la parte del codigo que modifique:



Comd.CommandText = "DELETE FROM table_04 WHERE idTable_04 = 0"

Rs.CursorLocation = adUseClient
Rs.Open Comd, , 1, 1

end sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar