VB编写的登录局域网内的sql2000数据库服务器代码

原创 2006年06月12日 16:49:00

'工程引用Microsoft SQLDMO Object Library
'Microsoft ActiveX Data Objects 2.8 Library
'定义一个连接对象..和记录集对象
Public conn As New ADODB.Connection '连接的
Public recv As New ADODB.Recordset '用来接收数据的

Private Sub Nsqlser_DropDown()
     If Nsqlser.ListCount > 0 Then Exit Sub
     Dim Server As SQLDMO.NameList '名字列表namelist
     Dim appDMO As New SQLDMO.Application 'sqldmo应用
     Dim i As Integer
     Set Server = appDMO.ListAvailableSQLServers '得到所有的sql sever 列表
     For i = 1 To Server.Count
     Nsqlser.AddItem Server(i) 'Nsqlser为下拉列表框
     Next
End Sub

Private Sub Command1_Click()
'连接按钮事件click()
Dim sql As String
Dim txtaddres As String
Dim txtuser As String
Dim txtpass As String
Dim msdb As String

txtaddres = Nsqlser.Text
txtuser = Text1.Text
txtpass = Text2.Text
msdb = Text3.Text

sql = "Provider=SQLOLEDB.1;Password=" & txtpass & ";Persist Security Info=True;User ID=" & txtuser & ";Initial Catalog=" & msdb & ";Data Source = " & txtaddres
'sql变量力存放的是连接字符串....
conn.ConnectionString = sql '连接字符串..
conn.open '连接
If conn.State = 0 Then
MsgBox "数据库联接失败"
Else
MsgBox "数据库联接成功"
End If
conn.Close
Set conn = Nothing
End Sub


初识vb数据库开发之实例1(系统登录)

设计分析 一般数据库管理系统登录对话框有两种基本方法 方法1:在数据库中建立一个数据表用于保存系统用户登录信息,在设计登录对话框时通过查询该数据表完成验证.(一般性) 方法2:对于一些支持安全验...

恢复其它sql2000数据库的.bak文件到另一服务器中的数据库后,发现有用户名没有登录名

当我们重装系统,或者是重装数据库之后,当附加数据库之后,发现数据库里面 有用户名,但是在sqlserver里面没有 登陆名 例如 先看  用户名  是有他上次系统的用户名的 ...

Java 直接用jdbc连接数据库 sql2000 的步骤和验证代码

第一步: 要下载三个jar包 msbase.jar mssqlserver.jar msutil.jar   下载地址: http://dldx.csdn.net/fd.php?i=60...

SQL2000做附加数据库时报处理日志出错,错误代码9004--解决

由于种种原因,我们如果当时仅仅备份了mdf文件,那么恢复起来就是一件很麻烦的事情了。 如果您的mdf文件是当前数据库产生的,那么很侥幸,也许你使用sp_attach_db或者sp_attach_si...

SQL2000数据库备份还原For VB

  • 2011年04月13日 12:32
  • 11KB
  • 下载

sql2000安装程序配置服务器失败

第一种方法 今天安装SQL Server 2000遇到了个很BT的问题,提示出下: 安装程序配置服务器失败。参考服务器错误日志和C:\Windows\sqlstp.log了解更多信息。 以前进...

sql2000服务器组件在此操作系统上不受支持

为了帮朋友解决在WINDOWS XP系统上无法安装SQL server服务器版的问题,只好也装了一套WINDOWS XP系统,参考网上以及其它资料,现已经成功的在WINDOWS XP系统安装了SQL ...

SQL2000服务器超过2GB内存设置

1. 服务器要求安装Windows 2003 enterpris,并且打上SP2补丁。安装SQL2000,并且打上SP4和KB960083补丁。 2. 打开系统中的大内存支持(windows)若要启用...
  • wqsys
  • wqsys
  • 2011年02月16日 10:42
  • 860
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB编写的登录局域网内的sql2000数据库服务器代码
举报原因:
原因补充:

(最多只允许输入30个字)