Sub New(ByVal Str As String)
Nv = New NameValueCollection
Dim a As String() = Str.Split(";")
For i As Integer = 0 To a.Length - 1 Step 2
Dim t As Integer = i
Nv(a(t)) = a(t + 1)
Next
End Sub
''''因为要添加到combobox,这里重载了一下tostring以显示文本
Overrides Function tostring() As String
Return Nv("ServerName")
End Function
End Class
调用代码
Sub GetSqlServers() Me.Cursor = Cursors.WaitCursor上一页 [1] [2] [3] [4] [5] [6] 下一页[Access]sql随机抽取记录 [Access]ASP&SQL让select查询结果随机排序的实现方法[系统软件]SQL语句性能优化--LECCO SQL Expert [C语言系列]SQL Server到DB2连接服务器的实现[C语言系列]SQL Server到SYBASE连接服务器的实现 [C语言系列]SQL Server到SQLBASE连接服务器的实现[C语言系列]SQL Server连接VFP数据库的实现 [C语言系列]ASP+SQL Server之图象数据处理[C语言系列]SQL Server连接ACCESS数据库的实现 [C语言系列]DBA的最佳选择—图形界面还是T-SQL命令?
Sub GetSqlServers()
Me.Cursor = Cursors.WaitCursor
上一页 [1] [2] [3] [4] [5] [6] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18