PureBasic Forums - English

Hello!

I'm not sure what's wrong but when I'm trying to use this solution I'm getting an error on OpenDatabase() command (PB v5.72):

[16:55:33] [ERROR] UseODBCDatabase(), UseSQLiteDatase() or UsePostgreSQLDatabase() need to be called before using database commands.

Did anybody try it on later PB ...

Hello community!

Once again your help wanted, could you please help?

There are few VBA methods which can do a single or batch data manipulation.

Create(DObject[], async As Boolean)
Delete(DObject[], async As Boolean)
......


I know how to perform single opertations
VBA usage (single):

Dim ...

Yep... I tried to use Delay() there but it seems it doesn't release CPU and WaitWindowEvent( xx) doesn't work without window :/
With the messagebox it works and has no crashes so I need to look into my code, thank you!

Another question: is it possible to clear the COMate error code after it was ...

PB casts them automatically so Str( 100) = ""+ 100
The problem is not in the resizing but what happening with objWorkbook after that if events handling is active.
Can you try this please (but it has a different problem I mentioned earlier)


XIncludeFile "\COMatePLUS.pbi"

;--#xlWindowState ...

1 - it appears when no more objects in the enumeration left and \GetNextObject() returns zero. I think it shall be silent...
2 - I can't make it working separately.. I don't know why but it stops processing events after workbook is opened and 4 events received :shock: :oops:
It works normally in my ...

Hi mk-soft,

So many rows of code and only one which solved my problem))


Protected.i _iEntity, _iLBound, _iUBound
Protected.COMateObject _objField
Protected.SAFEARRAY *saEntity
Protected.IDispatch *idField

*saEntity = VT_ARRAY( _obj\GetVariantProperty( "Fields")) ; "Fields" VARIANT type: VT ...

Hi skywalk,

Thanks, I learned a little bit more and now at least I understand the meaning of fields
* SafeArray *
cDim: 1
cbElements: 16
* rgsabound *
cElements: 78
lLbound: 0

But the problem is that it is an array of objects... and here I'm losing the way :oops:
I tried to wrap it by COMate ...

Hi mk-soft,
Thanks, I'm using this add-in but it doesn't help in this case(
I think that iDispatch can point to another array but I have no enough knowledge to proof it and to extract the data

Nobody knows?
Looks like this Safearray is uni-dimensional, each element has \vt = 9 (Dispatch) and being converted by VT_STR(*Var.Variant) it returns the \Value parameter but Excel can return \Name, \Label and \Type as well.
No idea how to do the same on PB...

Hi srod!

Thank you so much! It works like a charm!)

May I ask you a couple of other questions regarding COMate?

1- "COM Error [1]: The operation completed, but was only partially successful." during enumeration processing (I filter it out but I wonder why it appears)
2 - When I'm using COMate ...

Thank you in advance!

Hello srod,

Thank you for your explanation!
Just checked the COMate code and I think I found the temp object destroyer

If command$
COMateClass_Release(*tempCOMateObject)
EndIf
but there are too many asterisks for my programming level so I'm not sure how to modify it to return 2x objects and ...

Hello!

Can you help me to translate this VBA code to PB please?


Function FieldType(obj As Object, label As String) As String
FieldType = "string" 'default
Dim f As Integer
For f = LBound(obj.fields) To UBound(obj.fields)
Dim lc: lc = LCase(label)
If (lc = LCase(obj.fields(f).label) Or lc ...

Hello!

Could you please advise how to read properties from an COMate Enumeration object?
This COMate object doesn't support GetString/Integer etc. methods but in my case, besides the collection itself it returns a number of elements and other useful properties.
Of course I can create two objects ...

@Freak
Thank you for the explanation!
Does it mean that it is not possible to use placeholders for queries morphing?
The strings I need to insert don't contain "=" symbol. I tried:
_sString = "[main].[tblProductFamilies].[ID] IN("+ ... +") And"
_sString = "IN("+ ... +")"
but both variants don't work(