Vb
qq37724861
这个作者很懒,什么都没留下…
展开
-
VB之TabStrip控件使用举例
先创建若干个TabStrip的选项然后创建一个Frame控件数组,个数与TabStrip选项卡个数相等注意设置Frame控件数组的索引值(index属性)从1开始(默认为从0开始),以便和TabStrip选项的索引值对应然后编写以下代码:Private Sub Form_Load() For i = 1 To TabStrip1.Tabs.Count Frame1(i).Wid原创 2016-06-16 15:38:38 · 9758 阅读 · 0 评论 -
VB 创建MDB,然后将一个MDB中的表复制到新建的MDB
'======================================================================= '创建MDB文件,需要先执行【工程 】- 【引用 】 Microsoft ADO Ext. 2.8 for DDL and...... Dim cata As New ADOX.Catalog cata.Create ("Provide原创 2016-06-16 15:51:25 · 1471 阅读 · 0 评论 -
ADO连接各种数据库
Connection对象代表打开的、与数据源的连接。一般使用 Connection 对象的集合、方法、和属性执行下列操作: 1、在打开连接前使用 ConnectionString、ConnectionTimeout 和 Mode 属性对连接进行配置。2、使用 DefaultDatabase 属性设置连接的默认数据库。3、使用 Provider 属性指定 OLE DB 提供者。4、使用 Open 方原创 2016-06-16 15:51:16 · 1140 阅读 · 0 评论 -
VB-检测指定的进程是否存在
'检测指定的进程是否存在On Error Resume NextDim s As String, mFind As BooleanDim objWMIService, colProcessList, objProcesss = "cmd.exe"Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\原创 2016-06-16 15:51:01 · 2363 阅读 · 0 评论 -
VB操作FireBird
[vb] Private Sub Command1_Click() connStr = "DRIVER=Firebird/interBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=C:\Documents and Settings\Administrator\桌面\Demo.ydb;" Set objcon = New ADODB.Co原创 2016-06-16 15:50:55 · 855 阅读 · 0 评论 -
【VB】解决Drive控件选择光驱时错误问题
Private Sub Drive1_Change()On Error Resume NextDir1.Path = Drive1.DriveIf Left(Dir1.Path, 1) MsgBox "驱动器 " & UCase(Left(Drive1.Drive, 1)) & " 不可访问", vbInformation, "提示"Drive1.Drive = Dir1.PathEnd IfEn原创 2016-06-16 15:42:09 · 551 阅读 · 0 评论 -
VB6自带Package & Deployment 生成桌面快捷方式
修改Setup1程序,该程序位于:C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Setup1目录下 在安装完成时,利用代码在桌面创建一个快捷方式即可--------------------------------------------------------------- VB展开与打包向原创 2016-06-16 15:39:39 · 1847 阅读 · 0 评论 -
Adodc控件的MoveComplete 事件在win7SP1中报错的问题
Adodc控件的MoveComplete 事件在win7SP1中报错:引发原因:(摘自Microsoft)因为有些 ADO 接口更改与新实例标识符 (IIDs) 相关联的 Windows 7 SP1 中,将出现此问题。较旧的 IID 接口被分配以下后缀: _Deprecated例如,接口 _Connection 已更新,如下所示: 在 Windows 7 和更早版本的 Windows 中,_Con原创 2016-06-16 15:39:23 · 484 阅读 · 0 评论 -
VB判断指定的Excel文件是否打开
程序要求:判断一个Excel文件是否打开。实现方法:窗体布局如下:代码如下:'先引用 Microsoft Excel 11.0 Object Library(Excel2003) 后再声明:Dim xlApp As New Excel.ApplicationDim xlBook As New Excel.WorkbookDim xlSheet As New Excel.WorksheetPriva原创 2016-06-16 15:39:15 · 9733 阅读 · 0 评论 -
VB打开带工作组权限的Access
如果你打开一个数据库使用了Jet安全保护,你需要使用以下方式: Dim MyConn As New ADODB.Connection MyConn.Provider = "Microsoft.Jet.OLEDB.3.51 " MyConn.Properties( "Data Source ") = "C:\...\JetSecurity.MDB " MyConn.Properties( "Jet原创 2016-06-16 15:51:32 · 514 阅读 · 0 评论