openoffice-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Fernand Vanrie <...@pmgroup.be>
Subject Re: Error in macro.
Date Sat, 02 Feb 2013 08:35:27 GMT
Op 02/02/2013 07:04, Yessica Brinkmann schreef:
> Hello,
> I wanted to ask if I can please help with this issue. Is that really need
> to implement this functionality for my database. The macro has no errors
> but UPDATE is not performed in the customer table. I do not know if you owe
> the event in which I am putting my macro, event currently in the Mouse
> button released Calculate Total button. Same should work if saldo_actual
> field for a record is empty it?
do the sql statement works when run from elsewhere (make a query to test)
> I also see that all new users first make an introduction, I'm doing my
> thesis on  Computer Engineering and I am working Independent, as do
> systems. I have more experience working on Java and XML, but I think this
> is a nice opportunity to learn Visual Basic.
> My macro is now as follows:
> Sub ActualizarSaldoVentas (Evento)
> Dim oFrm As Object
> Dim oCliente As Object
> Dim oTotal As Object
> Dim oCon As Object
> Dim oStat As Object
> Dim sSQL As String
> Dim oRes As Object
> Dim rs As Object
> Dim sCliente as String
> Dim ColIndex as Integer
> 'Dim oIdPago As Object
> oFrm=Evento.Source.Model.Parent
> If oFrm.hasByName("id_cliente") Then
>    oCliente=oFrm.getByName("id_cliente")
> Else
>    Print "Cannot find id_cliente"
>    Exit Sub
> End If
>     rs=oFrm.createResultSet()
>         sCliente=rs.getString(rs.findColumn("cod_cliente"))
>         oTotal=oFrm.getByName("fmttotal")
>     Print sCliente
>     Print oTotal.getCurrentValue()
>     oCon=ThisDatabaseDocument.CurrentController.ActiveConnection
>         oStat=oCon.CreateStatement
>     sSQL = "UPDATE ""cliente"" " & "SET ""cliente"".""saldo_actual"" =" & "
> ""cliente"".""saldo_actual"" + " & oTotal.getCurrentValue() & " WHERE
> ""cliente"".""id_cliente""=" & CInt(sCliente)
>     oRes=oStat.ExecuteQuery(sSQL)
> End Sub
> Regards,
> Yessica
> 2013/2/1 Yessica Brinkmann <yessica.brinkmann@gmail.com>
>
>> Hello,
>> I think maybe I should assign my macro to another event, perhaps one
>> associated with the form to work, I do not know, my idea is just. Tempted
>> now assigned to mouse button released event of a button called Calculate
>> Total.
>> regards,
>> Yessica
>>
>> 2013/2/1 Yessica Brinkmann <yessica.brinkmann@gmail.com>
>>
>>> Hello,
>>> Thank you very much for the reply. Sorry, did not know that I should not
>>> put attachments. Now I have no errors in the macro, and I used the SQL
>>> UPDATE indicated. Just do not know why but UPDATE fails. So, when I check
>>> the table, I do not see the value of the changed field. I refreshed the
>>> table also but nothing. I printed the total value also to see if I was
>>> right and good. I do not know what is going wrong.
>>> Regards,
>>> Yessica
>>>
>>> 2013/2/1 Fernand Vanrie <sos@pmgroup.be>
>>>
>>>> Ariel, Yessica,
>>>>
>>>> with OObase database, table and field names are case sensitive, their is
>>>> no need to quote if:  tables are lowercase and fieldnames uppercase.
>>>>
>>>> if quotes are used, then leave the dots out of the quotes
>>>>   sSQL= "SELECT ""mybase"".""cliente"".""**saldo_saldo_actual""
>>>> WHERE...................." works
>>>>
>>>> greetz
>>>>
>>>> Fernand
>>>>
>>>>   On Thu, Jan 31, 2013 at 08:01:22PM -0300, Yessica Brinkmann wrote:
>>>>>> Hi, thanks for your answer.
>>>>>> Now I advanced.
>>>>>> I print the value of the client code correctly.
>>>>>> Only now I have another error, tells me that the Customer table does
>>>>>> not
>>>>>> exist or something like this:
>>>>>> Basic runtime error. There was an exception. Type:
>>>>>> com.sun.star.sdbc.**SQLException. Message: Table not found in
>>>>>> statement
>>>>>>
>>>>> This may need to quote table and fields names:
>>>>>
>>>>>       sSQL="UPDATE cliente SET cliente.saldo_actual =
>>>>>> cliente.saldo_saldo_actual + "& oTotal.getCurrentValue()&
" WHERE
>>>>>> cliente.id_cliente=" & CInt(sCliente)
>>>>>>
>>>>> What is the name of the table? "CLIENTES" or "clientes"?
>>>>>
>>>>>
>>>>> Regards
>>>>>
>>>>


Mime
View raw message