下面这段代码 能在 局域网 中运行吗？？

Dim   objconnection   As   Connection  
  Dim   objht   As   Recordset  
  Set   objconnection   =   New   Connection     '连接数据库  
  With   objconnection  
          .Provider   =   "SQLOLEDB"  
          .ConnectionString   =   "User   ID=sa;PWD=123;Data   Source=(local);Initial   Catalog=xxgl"  
          .Open  
  End   With  
  Set   objht   =   New   Recordset       ’打开一个库  
  With   objht  
  Set   .ActiveConnection   =   objconnection  
          .CursorLocation   =   adUseClient  
          .CursorType   =   adOpenStatic  
          .LockType   =   adLockOptimistic  
          .Open   "select   hth   from   ht"  
    If   .RecordCount   >   0   Then  
          .MoveFirst  
          End   If  
          .Find   ("hth='"   &   Trim(Text1)   &   "'")  
   
   
   
  问题点数：20、回复次数：4Top

1 楼aohan（aohan）回复于 2004-12-03 22:36:21 得分 4

大概看了一下，应该没有问题Top

2 楼cosio（）回复于 2004-12-03 22:42:03 得分 4

可以！Top

3 楼jannock（我是新手）回复于 2004-12-03 22:49:24 得分 0

上面这段程序   在局域网运行时     当多个用户同时访问   会不会产生   冲突    
  需不需要   改成   ado.conn...   什么的Top

4 楼yanli（严立）回复于 2004-12-03 23:48:55 得分 12

With   objconnection  
          .Provider   =   "SQLOLEDB"  
          .ConnectionString   =   "User   ID=sa;PWD=123;Data   Source=(local);Initial    
  这地方我觉的有问题,在局域网运行时,应该是这样的  
  With   objconnection  
          .Provider   =   "SQLOLEDB"  
          .ConnectionString   =   "User   ID=sa;PWD=123;Data   Source=数据库服务器IP地址或是数据库服务器名称;Initial    
  Top

相关问题

• 局域网
• 数据库
• sa
• source
• objconnection
• 运行
• sqloledb
• connectionstring
• pwd
• initial

• 帖主：jannock
• aohan
• cosio
• yanli

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