Jumat, 26 Februari 2010

Membuat Datawindow Secara Dinamis

String ls_select,ls_where,ls_dwsyntax,ls_err

ls_select = "Select id, fname, lname, address, city, state, zip from customer"
ls_where = " where customer.fname like '" + is_cust + "%'"
ls_dwsyntax = SQLCA.SyntaxFromSQL ( ls_select, "Style(Type=grid)", ls_err )

dw_1.Create ( ls_dwsyntax, ls_err )

IF ls_err <> '' THEN
MessageBox ( "error - Syntax", ls_err )
ELSE
dw_1.SetTransObject ( SQLCA )
dw_1.Retrieve()
END IF

Tidak ada komentar:

Posting Komentar