uso de sqldisconnetc
Publicado por Elias (79 intervenciones) el 28/10/2020 15:40:11
Hola a todos, alguien podría decirme porque me da error la linea en donde intento ejecutar la instrucción de SQLDISCONNECT ?
Paso mi codigo a continuacion, el procedimiento lo hace sin problema, solo que ahora necesito desconectarme y agregue esa linea y me da error.
DESDE YA MUCHAS GRACIAS
*
Paso mi codigo a continuacion, el procedimiento lo hace sin problema, solo que ahora necesito desconectarme y agregue esa linea y me da error.
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
v_cadena = "driver={mysql odbc 5.1 driver};port=3306"+;
";server=192.168.1.110"+;
";database=cobros"+;
";uid=xxxxxx"+;
";pwd=ccccc"q=""
conSF = sqlstringconnect(v_cadena)
cadena=""
* IF conSF > 0 THEN *cadena_delete='delete from cuotas'
*e=SQLEXEC(conSF,cadena_delete)
* IF e < 0 then *= MESSAGEBOX(MESSAGE(), 16, 'SQL Error')
*ENDIF
*SELEC detalle
*GO TOP
*DO WHILE .NOT. EOF()
*cadena='INSERT INTO cuotas VALUES (?detalle.nroope,?detalle.desope,?detalle.nrocuo,?detalle.capital,?detalle.interes,?detalle.mora,?detalle.punitorio,?detalle.gastos,?detalle.iva10,?detalle.iva5,?detalle.totdeu,?detalle.moneda,?detalle.fecven,?detalle.apenom)'
e=SQLEXEC(conSF,cadena)
* IF e < 0 then *= MESSAGEBOX(MESSAGE(), 16, 'SQL Error')
*ENDIF
*SELEC detalle
*SKIP
*ENDDO
*conSF = sqlstringconnect(v_cadena)
* IF conSF > 0 THEN *sqldisconnect(v_cadena)
*ELSE
*MESSAGEBOX("ERROR de conexión con MySQL",0+16+0,"ERROR......")
*ENDIF
*ELSE
*MESSAGEBOX("ERROR de conexión con MySQL",0+16+0,"ERROR......")
*ENDIF
*ENDIF
DESDE YA MUCHAS GRACIAS
*
Valora esta pregunta
0
