今天看到一个挺有意思的程序，可以当成学生们的作业，呵呵。代码不是我写的是叫datou985的XD写的，没怎么仔细看。一个m*n 矩阵，从四个角的任一个点开始，不论顺时针还是逆时针，按螺旋方式把所有点走一遍。每个点只能走一次。Private Const MAXROW = 5Private Const MAXCOL = 6Private Sub Command1_Click

 Private Sub Command2_Click() Dim objWord As Object Const CLASSOBJECT = "Word.Application" On Error GoTo objError Set objWord = CreateObject(C

改EXE图标的代码，有用时研究一下，哈哈。Option ExplicitPrivate Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Lo

（1）启动API浏览器，通过该浏览器复制“SetWindowPos”函数的声明语句。（2）启动Visual Basic，新建一个标准EXE工程。（3）使用“工程”|“添加模块”菜单项，添加一个新的模块文件。（4）打开模块的代码窗口，将“SetWindowPos”函数的声明语句粘贴进去。（5）打开Form1窗体的代码窗口，编写如下程序。Private Sub Form_Loa

今天看到一个兄弟留得求救帖子，便写了个小程序回复，觉得挺有意思的，所以跟大家一起分享了。问题：输入数据: A组:2,8,9 B组:4,7,9,10 C组:8,11,12 条件: 1,一组只能选一个号 2,选出的号不能相同 3,A组 <B组 <C组 想要列出所有结果: 2,4,8 2,4,11 2,4,12 2,7,8 2,7,

下面的程序连接Access数据库文件db1.mdb，该文件被存放在C盘下。Private Sub Command1_Click() Dim cn As ADODB.Connection Set cn = New ADODB.Connectioncn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= c:/

   调用 MS SQL Enterprist Manager 功能,显示 Table 属性页------------------------------------------Function SQLNSExecute(ByVal strSQLSvr As String, ByVal strSQLUid As String, ByVal strSQLPwd As Stri

下面的代码使用了SQL Server提供的SQLNS 对象库，进行数据库的备份与恢复。界面设计很简单，在窗体上绘制4个文本框，并用默认名称Text1、Text2……即可。代码中的gsDB为用户数据库的名称。  Private Sub sDoDB(sType As String, sServerName As String, sDB As St

 下面是用VB编写的向数据库添加记录的程序。使用了两种方法。方法一、使用Recordset对象的AddNew方法。Private Sub Command1_Click() Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim sql As String Se

 今天看到一个帖子很好，将其部分代码复制到这里，以备日后编写网络传输软件时使用。Option Explicit名称: Base64编码/解码模块Name: Base64 Encode & Decode Module作者: KiteGirl [中国]programmer: KiteGirl [China]

今天有个优快云网友问到一个问题，觉得可能很多用VB+Access编程者都会遇到这类问题，下面列出问题和解决方法。网友问：在我的数据库中,有shoes,cache,还有20086in 20087in 20088out这样的数据表 我想请问一下要怎样才能删除带有2开头的表呢？ 最好能用sql的语句 不然能够得到表的名字然后再删也可以 答：因为Access将用户表的信息存放在了