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.
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.ConnectionDim Comd As ADODB.CommandDim Rs As ADODB.RecordsetPublic 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
0