Hi Delpier, mo tanya nich
gmana caranya assign _recordset/olevariant yang didapat dari suatu function ke dalam
TDBGrid supaya resultsetnya bisa langsung dilihat di DBGird.
Source:
Function TMyFirstCOMplus.GetPlaceName(Const PlaceId: WideString): OleVariant
Var rs : _recordset;
Str: widestring;
Begin
Str := 'Select Pl_Name From MST_Place ';
If PlaceId <> '' Then Str := str + 'Where Pl_Id = '+QuotedStr(PlaceId);
try
OleCheck(CoCreateInstance(CLASS_Recordset, nil, CLSCTX_ALL, IID__Recordset, Rs));
Rs.CursorLocation := adUseClient;
rs.Open(str,'Provider=SQLOLEDB;Server=ruby;DataBase=Goldmart;UID=xx;PWD=xxxxx',
adOpenStatic,
adLockOptimistic,adCmdText);
Result := rs;
rs.Close;
Finally
Rs := nil;
End;
Dipanggil di form yang ada TDBGridnya, TAdodataset, button
Function TForm1.ButtonClick(Sender:TObject)
Var oGetPlaceName : IMyFirstCOMplus;
RS: _Recordset;
str: String;
Begin
--- Code here
---
---
RS := (IDispatch(oRetVal) as _Recordset);
ADODataSet1.Open;
ADODataSet1.Recordset := rs; //Error Adodataset1: dataset is closed
End;
Thx
Ruby
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Looking for the latest Free IT White Papers?
Visit SearchSecurity.com to access over 500 white papers.
Get instant access at SearchSecurity.com Today
http://us.click.yahoo.com/.lAzoD/QLNGAA/witMAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
