VB+sql2000单机版人事管理系统怎么改成网络版啊??form1的代码是这样的Private Sub Command1_Click()mname = Text1.Text
pass = Text2.Text
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
mycn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=rs;Data Source=(local)"
myrs.Open "SELECT * FROM dbo.[user] where [user]='" + mname + "';", mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox "查无此人", , "登陆信息"
Else     
     If myrs("pass") = pass Then
        
         ''''''''''''''''''''''''''''''''''''''''''
        MsgBox "ok", , "登陆信息"
         MDIForm1.Show
         
         Unload Me
        
       
           '''''''''''''''''''''''''''''''''''''''''''''''''''
     Else
        MsgBox "密码不正确", , "登陆信息"
     End If
    End If
    End Sub
Private Sub Form_DblClick()
MsgBox "hello"
End SubPrivate Sub Form_Load()
Dim mname As String
Dim pass As String
End Submodule1的代码是这个Public mname As String还需要如何改啊??请高手帮帮忙!!!马上要交毕设了!

解决方案 »

  1.   

    其实你采用了oledbsql,这已经可以方便的转化成网络版的啊,在数据库连接上加入数据库服务器密码就可以了mycn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;  在此处加入PWD=password(即你的SQL数据库服务器的密码);  Initial Catalog=rs;Data Source=(local 最好是IP地址)"
    如果不加入密码,在运行时候会出现“数据库不存在或拒绝访问”之类的错误。这样你的系统装在其他机器上应该可以顺利的运行了(在WIN98或有些WIN2K的机器上可能要装MDAC28,否则会报错的啊,微软有下载)
      

  2.   

    改成网络版主要注意的是访问冲突,应该在程序中使用事务处理。另外,SQL本身能自动给数据表加、解锁,所以基本上程序不需要太大的改动。
      

  3.   

    mycn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;pwd=111;Initial Catalog=rs;Data Source=(192.168.0.1)"
    这样的吗???然后需打包吗?我菜鸟,VB基本文盲!要不哪个兄弟给个邮箱我发程序过去你看看!
      

  4.   

    [email protected] 愿意的话发过来看看啊。“编译错误 找不到工程或库”,可能是你没有引用ADO吧。引用方法:打开VB60——工程菜单——引用,选择ADO发来看看吧
      

  5.   

    什么也不用改,即然用了SQL就无所谓单机网络了,只要连接字符串采用INI文件方式就可以了
      

  6.   

    Source=ip地址就可以了,可以定义一个变量来接受ip地址,只有局域网中的其他人输入ip地址,然后把ip给Source,就应该可以了。
      

  7.   

    huhu2002 程序发了 看看吧 先谢了
      

  8.   

    客户端上需要安装sql 2000吗??
      

  9.   

    客户端上不需要安装sql 2000。
    但是对于WIN98或部分机器的WIN2000可能要装MDAC28
      

  10.   

    引用哪个啊工具-》引用-》 好像有2个
    1个是 MICROSOFT AXTIVEX DATA OBJECTS RECORDSET2.5 LIBRARY
    1个是 ......... ADO EXT. 2.5 FOR DDL AND SECURITY