Nueva version que inicia una nueva conexion con mysql.
Claro que lo bueno seria conectar con la conexion que ya existe de OO con mysql
pero el
DatabaseContext no funciona correctamente o no hay manera de saber como se usa.
De esta forma inicia una nueva conexion peeeeeeeeeeeeeeeeero no consigo
enviarle el usuario y
contraseña con lo cual no es que sirva para mucho.
Sub calculatotallineas ( event as Object )
dim mDBProperties (3) As New com.sun.star.beans.PropertyValue
dim oConnect as Object
dim oCon as Object
Dim oStmt as variant
mDBProperties(0).Name = "User"
mDBProperties(0).Value = "endesa-gas"
mDBProperties(1).Name = "Password"
mDBProperties(1).Value = "endesa-gas"
mDBProperties(2).name = "JavaDriverClass"
mDBProperties(2).value = "com.mysql.jdbc.Driver"
oDriver = createUNOService("com.sun.star.sdbc.DriverManager")
sDatabaseURL = "jdbc:mysql://192.168.65.254:3306/endesa-gas"
oConnect = oDriver.getConnectionWithInfo(sDatabaseURL,mDBProperties())
' Por alguna razon la linea de arriba conecta pero no envia el usuario y
contraseña
' Se que conecta porque aparece el proceso en el mysql
'strSQL = "update ""lineas-factura"" " & "set " & """total"" = " &
"(""cantidad""" & " " & "*" & " "
& """precio-baremo"")" & " " & "where" & " " & """Id-factura"""+ " = "+ 1
strSQL = "update `lineas-factura` set `total`=(`cantidad`*`precio-baremo`)
where `Id-factura` = 1"
oStmt = oConnect.createStatement()
oResult = oStmt.executeUpdate(strSQL)
End Sub
A ver si alguno ilumina este mar de culebras
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
