OLEDB Y PB
Publicado por Mark antonio (1 intervención) el 14/02/2008 20:59:13
saludos.
trabajo con pb10.5 y sql server 2000. me conecto via ole db. pero surgen algunos problemas.
1. no permite multiusuario. tengo 2 usuarios conectados a la base y los dos realizan la misma operación, el sistema se trunca hasta que un usuario cierre la ventana.
este asunto lo solucioné poniendo el autocommit = true
pero en este caso no me funciona bien las transacciones.en una secuencia de codigo (insertes, updates, deletes) si todo el proceso se realiza con éxito al final hago el commit using sqlca. pero sucede que no me está funcionando el commit funciona independiente por cada sentencia.
// ejemplo de una secuencia de codigo
inser into tabla
If sqlca.sqlcode <> 0 Then
rollback using sqlca;
message de error
return -1
End If
update tabla set campo = valor ;
If sqlca.sqlcode <> 0 Then
rollback using sqlca:
Message de error
return -1
end If
update tabla2 set campo = valor;
If slqca.sqlcode <> 0 then
rollback using sqlca;
message de error
return -1
End If
Commit using sqlca;
return 1
en este codigo con pb 9 , y conexion nativa funciona perfectamente
como ven si todo está ok, al final hago el commit.
este el mi conexión
SQLCA.DBMS = "OLE DB"
SQLCA.LogId = "SA"
SQLCA.AutoCommit = True
SQLCA.DBParm = "PROVIDER='SQLOLEDB',DATASOURCE='mipc,PROVIDERSTRING='database=DB_PRUEBA'"
como puede solucionar esto.
trabajo con pb10.5 y sql server 2000. me conecto via ole db. pero surgen algunos problemas.
1. no permite multiusuario. tengo 2 usuarios conectados a la base y los dos realizan la misma operación, el sistema se trunca hasta que un usuario cierre la ventana.
este asunto lo solucioné poniendo el autocommit = true
pero en este caso no me funciona bien las transacciones.en una secuencia de codigo (insertes, updates, deletes) si todo el proceso se realiza con éxito al final hago el commit using sqlca. pero sucede que no me está funcionando el commit funciona independiente por cada sentencia.
// ejemplo de una secuencia de codigo
inser into tabla
If sqlca.sqlcode <> 0 Then
rollback using sqlca;
message de error
return -1
End If
update tabla set campo = valor ;
If sqlca.sqlcode <> 0 Then
rollback using sqlca:
Message de error
return -1
end If
update tabla2 set campo = valor;
If slqca.sqlcode <> 0 then
rollback using sqlca;
message de error
return -1
End If
Commit using sqlca;
return 1
en este codigo con pb 9 , y conexion nativa funciona perfectamente
como ven si todo está ok, al final hago el commit.
este el mi conexión
SQLCA.DBMS = "OLE DB"
SQLCA.LogId = "SA"
SQLCA.AutoCommit = True
SQLCA.DBParm = "PROVIDER='SQLOLEDB',DATASOURCE='mipc,PROVIDERSTRING='database=DB_PRUEBA'"
como puede solucionar esto.
Valora esta pregunta
0