怎么用VB编写DLL,请告知如何编写（举例）。

怎么用VB编写DLL,请告知如何编写（举例）。  
  怎么用VB编写class,请告知如何编写（举例）。  
  分不够可以在加，    
  为什么好的文章都被删除了。希望能给于答复？？？？？？？？？？？？？  
   
  问题点数：100、回复次数：5Top

1 楼thinkeasy（Nothing）回复于 2002-07-15 20:39:06 得分 10

VB不能编写真正的DLL的，只能编写ActiveDLL,所以想写DLL还是去学VC吧，还有，关于ActiveDll的Class在MSDN中都有例子的，你去看看，很有帮助的Top

2 楼online（龙卷风V4.0--决战江湖(MS MVP-VB)）回复于 2002-07-15 20:40:32 得分 70

 
  　　　启动vb6.0，新建-->Active   dll工程。单击"工程"-->引用,选择"microsoft   active   server   pages   object   library"  
  和"microsoft   activeX   data   objects   2.1   library"两项。将类模块的名称改为dcss.将工程的名称改为yygwy.保存工程文件yygwy.vbp和类文件dcss.cls。  
  在dcss.cls中写入:  
  Private   myscriptingcontext   As   ScriptingContext  
  Private   myapplication   As   Application  
  Private   myrequest   As   Request  
  Private   myresponse   As   Response  
  Private   myserver   As   Server  
  Private   mysession   As   Session  
   
  Public   Sub   onstartpage(passedscriptingcontext   As   ScriptingContext)  
  Set   myscriptingcontext   =   passedscriptingcontext  
  Set   myapplication   =   myscriptingcontext.Application  
  Set   myrequest   =   myscriptingcontext.Request  
  Set   myresponse   =   myscriptingcontext.Response  
  Set   myserver   =   myscriptingcontext.Server  
  Set   mysession   =   myscriptingcontext.Session  
  End   Sub  
   
  Public   Sub   onendpage()  
  Set   myscriptingcontext   =   Nothing  
  Set   myapplication   =   Nothing  
  Set   myrequest   =   Nothing  
  Set   myresponse   =   Nothing  
  Set   myserver   =   Nothing  
  Set   mysession   =   Nothing  
  End   Sub  
   
  '以上语句是必须的。  
  '定义两个公有函数  
   
  Public   Function   rsresult(strsql   As   String)   As   Recordset  
  Dim   mycnn   As   Connection  
  Dim   myset   As   Recordset  
  Dim   strconnstring   As   String  
  'strconnstring   =   "provider=sqloledb.1;password=;"   &   "user   id=sa;"   &   "initial   catalog=vlog;"   &   "data   source=hpe60;connect   timeout=15"  
  strconnstring   =   "driver={sql   server};server=yang;uid=sa;pwd=;   database=dcss"  
  'mycnn.ConnectionString   =   strconnstring  
  mycnn.Open   strconnstring  
  myset.ActiveConnection   =   mycnn  
  myset.Open   strsql,   mycnn,   3,   adCmdText  
  Set   rsresult   =   myset  
  End   Function  
   
  Public   Function   datasource()   As   Variant  
  datasource   =   "driver={sql   server};server=yang;uid=sa;pwd=;   database=dcss"  
  End   Function  
   
  编译生成dcss.dll文件。注册regsvr32   路径\dcss.dll。  
  用visual   interdev打开global.asa文件.当然了，你也可以在其它文件中使用。  
  sub   application_onstart  
             
            dim   oconn,dcss  
            Set   oconn   =   Server.CreateObject("ADODB.Connection")            
             
            'ConnectionString   =   "provider=SQLOLEDB;   Data   Source=yang;   Initial   Catalog=dcss;   User   Id=sa;   Password="  
            'oconn.Open   connectionstring  
              'oconn.Open   "driver={sql   server};server=yang;uid=sa;pwd=;   database=dcss"  
            set   dcss=server.CreateObject("yygwy.dcss")  
            oconn=dcss.datasource()      
            application("strconn")=oconn  
            server.scripttimeout=60  
            application("number")=0  
         
    end   sub  
  在其它的页面中如下调用即可：  
  set   objConn   =   Server.CreateObject("ADODB.Connection")  
  objConn.Open   application("strconn")    
  我是在asp中调试的，这个例子简单些，希望对你有启发。  
  你可以写个函数，将用户名和密码传入即可  
  yyg@xjeri.com.cn  
  Top

3 楼agefworld（三郎）回复于 2002-07-15 21:08:13 得分 0

谢谢大家，我试试看Top

相关问题

• 文件
• vb
• sa
• dll
• database
• application
• dcss
• myscriptingcontext
• 编写
• nothingset

• 帖主：agefworld
• thinkeasy
• online

• Visual Basic类图书
• Visual Basic类源码下载