安装了,在同学机器上,里面有张用户表,有姓名和密码,我这边怎么做登陆?
解决方案 »
- 关于RichTextBox中的Find方法的疑问
- 关于用vbs自动安装软件?
- 没办办法判断一张BMP是不是空的,即整张图,全部都是白色,基本没有其它色。
- 大家好 谁有关于Collection集合的例子?这个Collection集合对象怎么使用?
- 有VC++编的DLL库,可实现C/S视频传输处理功能,请问VB中?
- 使用ADO对数据库操作,求代码
- 高手请进(100大分送)
- ACCESS与文本框
- 视频压缩技术的压缩比最高的是那一个?压缩比是多少?一般是多少?
- ★★★★★★★★★★★关于hook,请知者不吝赐教★★★★★★★★★★★★★
- 求助高手,关于数据库的
- 急!!急!!!Recordset.recordcount的值为-1
如果你同学有装实例名,\\ip\实例名
这样就可以了
1# 这个用户表是某个程序系统里的吧!记录的是用户名和密码,不是SQL本身的,你要登陆他那个程序就去查查用户名和密码,估计有可能密码是加密的,所以还是去问个用户和密码登陆2# 如果想登陆远程的服务器上的SQL,看下远程访问的设置,SQL里连接时服务器IP 用户 密码 正确就可以。
Dim cnn As ADODB.Connection
dim rs as New ADODB.Recordset
' 不使用数据源名 (DSN) 打开连接。
Set cnn = New ADODB.Connection
cnn.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs"
cnn.ConnectionTimeout = 30
cnn.Open
'隥陆按钮检测:假定上面连接成功,客户端登陆有2个文本框输入用户名(txtuser)和密码(txtpwd)rs.open "select * from 用户表 where 用户名='" &txtuser & " and 密码='" & txtpwd &"'" , cnn, adOpenStatic, adLockOptimistic
if rs.eof then
msgbox "用户名或密码有误!":exit sub
else
'打开主窗口
end if
这个里面有四项值是要你自己去配置 第一个是server=这里一般输入服务器IP地址就可以了
uid = SQL登陆名
pwd= SQL登陆密码 没有就空着
database= 这里要输入用户数据库名