请问局域网中,如何控制连接到同一sql server2000数据库上的计算机的数量?
解决方案 »
- 从外部拖图片到窗口显示的问题
- 字符显示,我程序读取unicode文件中字符串(日文),但在界面显示的时候有一部分显示不对?各位高手请帮忙?
- 修改autocad图纸的图签
- 如何限制MDI子窗体的大小
- 求文件格式转换源代码(up有分)
- DAO问题!
- 使用vb把sqlserver数据库表中的数据导到excel中(在线等待,一解决就给分)
- 小弟由delphi转过来VB,不知道怎样才能最快的上手,用VB来开发
- 对DATA & DBGRID绑定数据排序完成
- 如何在vb中直接使用dbf,excel,text形式的数据
- 各位大哥、大姐、老少爷么们,帮我解决一个关于Excel的问题好吗?
- Format数字的问题
http://community.csdn.net/Expert/topic/3167/3167616.xml?temp=.6633722如果超过了你设定的上限就提示用户。
exec sp_configure N'user connections', 0
RECONFIGURE WITH OVERRIDE
Dim cn As New ADODB.ConnectionPrivate Sub Command1_Click()
cn.Execute "USE master" & vbCrLf & "exec sp_configure N'user connections', 0" & vbCrLf & "RECONFIGURE WITH OVERRIDE"
End SubPrivate Sub Form_Load()
On Error GoTo Errhandle
cn.ConnectionString = "Driver={SQL Server};SERVER=192.168.4.251;DATABASE=master;UID=sa;PWD=jftest"
cn.Open
Exit Sub
Errhandle:
MsgBox Err.Description
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
cn.Close
Set cn = Nothing
End Sub