F_CREATE_DYNAMIC_DATAWINDOW

// Function Name : f_create_dynamic_datawindow
// Argument Name : adw_control, Arg Type : Datawindow, Pass By : Reference
// Return Type :       (None)

String ls_select
String ls_where
String ls_order_by
String ls_dwsyntax
String ls_err

ls_select = "Select customer_id, companyname, contactname From Customers"
ls_where = " Where region IS NOT NULL"
ls_order_by = " order by customerid"

ls_dwsyntax = SQLCA.SyntaxFromSQL(ls_select + ls_where + ls_order_by, "Style(Type=grid) ", ls_err)

adw_control.Create ( ls_dwsynta, ls_err)

If ls_err <> '' Then
    MessageBox("Error - Syntax", ls_err)
Else
    adw_control.SetTransObject(SQLCA)
    adw_control.Retrieve()
End If

1 comments:

jackob said...

I recently came across your blog and have been reading along. I thought I would leave my first comment. I don't know what to say except that I have enjoyed reading. Nice blog. I will keep visiting this blog very often.
Thank You
PowerBuilder

Post a Comment