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还需要如何改啊??请高手帮帮忙!!!马上要交毕设了!
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还需要如何改啊??请高手帮帮忙!!!马上要交毕设了!
解决方案 »
- labwindows 工程师待遇?
- 弄了半天的SQL问题!!!!非常着急解决那位大虾帮个忙解决了20分
- 高分求 bmp转jpg算法,控件,dll或者是代码总之高效就行
- 存储过程问题
- 问高手!防止多次启动的问题:previnstance探测到这个程序已经启动的时候,如何自动地show出已经运行的这个previnstance的form?
- 用木马是不对的,大家别学我,我也是被逼的。散分200
- 用ADODC连接VFP数据库时的ConnectionString该怎么写?
- 请问
- 水晶报表:关于微软的CRViewer空间怎么用......等你!
- Dbase IV 和VB编程
- 那位大哥帮我把这段c代码翻译成vb阿...急
- UDP协议数据正确性判断及重发机制问题,老鸟解答
如果不加入密码,在运行时候会出现“数据库不存在或拒绝访问”之类的错误。这样你的系统装在其他机器上应该可以顺利的运行了(在WIN98或有些WIN2K的机器上可能要装MDAC28,否则会报错的啊,微软有下载)
这样的吗???然后需打包吗?我菜鸟,VB基本文盲!要不哪个兄弟给个邮箱我发程序过去你看看!
但是对于WIN98或部分机器的WIN2000可能要装MDAC28
1个是 MICROSOFT AXTIVEX DATA OBJECTS RECORDSET2.5 LIBRARY
1个是 ......... ADO EXT. 2.5 FOR DDL AND SECURITY