|
1.VB客户端 Dim obj As Object
Set obj = CreateObject("AtlCom.OutFun")
Set adoRs = obj.MyMessageBox("aaaa")
2.VC中间层
1.new/projects/ATL COM AppWizard/input AtlCom/OK/Dynamic Link Library(DLL),Suppport MFC,Support
if you want to support MTS,then check MTS/Finish
2.Mouse right Click AtlCom Classes/new Atl Object/simple Object/Names:OutFun,MTS:if you will use
Pool then you check Support IObjectControl and Can be Pooled
3.点IoutFun
把类似
[
object,
uuid(C06F09FA-C905-4E59-AC29-A4137948D8D7),
dual,
helpstring("IOutFun Interface"),
pointer_default(unique)
]
interface IOutFun : IDispatch
{
};
挪到importlib("stdole2.tlb")下面
4.右键点IOutFun，然后Add Method/输入MyMessageBox，parameters:[in]BSTR strInfo(如果需要返回值则为
[out,retval])
再函数中输入：MessageBox(NULL,CString(strInfo),"BOX",MB_OK);
给你一个连接SQL Server得，你把廉节字符串改一下
1.stdafx.h中加入
#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
2。app文件的InitInstance中加入
if(S_OK!=OleInitialize(NULL))
{
AfxMessageBox("初始化COM组件库错误");
}
下面就是数据库操作
_ConnectionPtr pConn;
_RecordsetPtr pRs;
CString strSQL;
pConn.CreateInstance(__uuidof(Connection));
pConn->CursorLocation=adUseClient;
strSQL="Provider=SQLOLEDB;Server=Gooyan;DataBase=SkillsBox;UID=sa;PWD=aaaaaaaa";
pConn->Open(_bstr_t(strSQL),"","",-1);
pRs.CreateInstance(__uuidof(Recordset));
pRs->CursorLocation=adUseClient;
pRs->PutActiveConnection(pConn.GetInterfacePtr());
pRs1.CreateInstance(__uuidof(Recordset));
pRs1->CursorLocation=adUseClient;
pRs1->PutActiveConnection(pConn.GetInterfacePtr());
strSQL="select * from catalog order by cataid";
pRs->Open(_bstr_t(strSQL),vtMissing,adOpenDynamic,adLockBatchOptimistic,adCmdText);
[VB.NET程序]ADO 在informix的 Addnew [VB.NET程序]ADO 的测试
[VB.NET程序]ADO 揭密 1 [Web开发][ADO]如何修改ADO的线程模型
[Web开发]Delphi7下仿Ado.Net类的实现 [Web开发]通过COM使用ADO
[Web开发]ADO & ADO.NET中使用存储过程的两个共用的函数 [Web开发]Binding a DataGrid to an ADO Recordset
[Web开发]ADOCE for ADO Programmers [Web开发]Delphi多线程下的ADO编程
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
