vb.net禁用连接 禁用vba

VB.NET里如何关闭ADODC控件连接

使用ADO控件可以方便的在VB6中访问ODBC数据库，但是通过直接放置ADODS控件来获得ADO的数据连接比较麻烦，我们可以在VB工程中创建一个公共数据模块，将ADO控件的初始化、建立连接、关闭连接等操作都写到函数中，这样就可以在工程的其他模块中共享调用这个ADO连接。

一次完整的ADO调用操作分为如下几个步骤：

打开ADO到数据库的连接，初始化ADO RECORDSET集。

通过写入SQL语句执行查询并返回查询结果RECORDSET集；或者可以通过写入SQL语句执行相应数据库操作。

释放RECORDSET集，关闭数据库连接。

需要注意的是，每个动态创建的ADO同时只能被一个过程调用，如果需要进行多表并行操作，可能需要在公共数据模块中建立多个动态ADO。

下面是相关的代码：

'-----------------------------------------------------------------

'如下代码保存在名为my.bas的工程模块中

Public CONN As Adodb.Connection '定义ADO CONNECTION对象

Public RS As Adodb.Recordset '定义ADO RECORDSET对象

'****************************

'打开数据库连接

'****************************

Function ConnOpen()

Dim ASTR As String

Set CONN = New Adodb.Connection

ASTR = GetDatabasePath 'MDB文件数据库路径

CONN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" ASTR ";Persist Security Info=False"

'本例的ODBC连接为JET4.0的直接到MDB文件的连接，如果使用ODBC数据源可以使用如下CONNECTION串：

'Provider=MSDASQL.1;Password="";Persist Security Info=True;Data Source=数据源名称;Initial Catalog=数据表库名称

相关问答

Q1: 求大神！！vb.net打开Excel字符串连接出错,无效操作,连接被关闭...急！！！

额，，，

那还是不要用这种方式打开EXCEL比较好。

建议还是用EXCEL对象的好。

Q2: vb 启用和禁用本地连接代码...

这个简单啦看代码吧不会加Q问 VB启用/禁用本地连接

2009年01月19日 作者：SdBot.ck

'其实没什么说的vb.net禁用连接，无非就是先找到“网络连接”这个虚拟文件夹vb.net禁用连接，然后找到要控制的本地连接对应的'folderitem，然后枚举verb，找到需要的verb后，调用verb的DoIt方法，在winxp sp2 ，vb6 sp6下测试通过，代码如下：

Option Explicit

'首先引用Microsoft Shell Controls And Automation

Private Function ExcNetLinkMenu(ByVal AdapterName As String, ByVal MenuName As String) As Boolean

On Error Resume Next

Dim mShell As New Shell32.Shell

Dim NetConnection As Shell32.Folder

Dim FolderItem As Shell32.FolderItem

Dim NetConnectionItem As ShellFolderItem

Dim verb As Shell32.FolderItemVerb

Set NetConnection = mShell.NameSpace(49) '这个49是找出来的，有vb.net禁用连接了它就可以避免遍历控制面板

If ObjPtr(NetConnection) = 0 Then

ExcNetLinkMenu = False

GoTo exitfunction

End If

Dim flag As Boolean

flag = False

For Each FolderItem In NetConnection.Items

If FolderItem.Name = AdapterName Then

Set NetConnectionItem = FolderItem

flag = True

Exit For

End If

Next

If flag = False Then

ExcNetLinkMenu = False

GoTo exitfunction

End If

For Each verb In NetConnectionItem.Verbs

If verb.Name = MenuName Then

flag = True

verb.DoIt

ExcNetLinkMenu = True

GoTo exitfunction

End If

Next

If flag = False Then

ExcNetLinkMenu = False

GoTo exitfunction

End If

exitfunction:

Set mShell = Nothing

Set NetConnection = Nothing

Set FolderItem = Nothing

Set NetConnectionItem = Nothing

Set verb = Nothing

End Function

Private Sub Command1_Click()

Dim flag As Boolean

'把 本地连接 2 换成vb.net禁用连接你要控制的本地连接的名字

flag = ExcNetLinkMenu("本地连接 2", "停用(B)") '这个在2000下对应的是禁用,具体是什么，点右键,自己看吧

End Sub

Private Sub Command2_Click()

'把 本地连接 2 换成vb.net禁用连接你要控制的本地连接的名字

Dim flag As Boolean

flag = ExcNetLinkMenu("本地连接 2", "启用(A)")

End Sub

关于vb.net禁用连接和禁用vba的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。