VB编写的登录局域网内的sql2000数据库服务器代码
来源:互联网 发布:c4d下载 mac 编辑:程序博客网 时间:2024/06/05 13:29
'工程引用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编写的登录局域网内的sql2000数据库服务器代码
- vb搜索局域网内所有SQL Server服务器和指定SQL Server服务器上的所有数据库
- VB 连接SQL2000数据库代码
- VB连接SQL2000数据库代码
- 取得局域网内的所有数据库服务器列表
- VB实现局域网内的文件传输
- VB实现局域网内的文件传输
- [VB.NET]局域网内连接sql服务器(msde2000)连接不上的问题,请教!
- oracle服务器本地能够登录但是局域网内其他机器不能访问的解决方法
- 无法访问局域网内IIS服务器的解决办法
- 无法访问局域网内IIS服务器的解决办法
- 局域网内服务器入侵的防范措施
- 同一局域网内的数据库的连接
- 恢复其它sql2000数据库的.bak文件到另一服务器中的数据库后,发现有用户名没有登录名
- 获取局域网内所有的数据库实例
- 公网访问局域网内的数据库
- VB.NET 获取本机在局域网内的IP
- 不安装oracle怎样使用PLSQL连接远程(局域网内)服务器上的数据库
- 天路CRM通用解决方案
- 天路CRM通用解决方案
- C#数字验证
- 完全使用CSS制作下拉菜单
- 数据库中的空值与null的处理!
- VB编写的登录局域网内的sql2000数据库服务器代码
- WEB页面效果常用javascript脚本
- http Chunked
- 你 --- 短诗四句
- C++编程人员容易犯的10个C#错误
- 自己动手制作linux硬盘启动
- 2006-06-12无所事事的一天
- 使用Lua5.1互相调用函数
- 软件测试工程师面试问题