zuoxingyu-CSDN博客

原创项目管理流程

1：首先你要对整个项目的业务了解透彻，你才能够设计出一个优良的架构来，而且可以避免很多后期开发的问题。这方面的资料除了你自己的经验，另外看有没有相关的功能规范，测试规范什么的。熟悉业务是很必要的。 2：在了解业务流程后，写出详细的设计文档，功能文档，出数据库架构文档。到这一步，其实已经把你要做的项目细分了，有多少个功能点，每个功能点用到那几个表，功能点之间是怎么个关系都明确了。 3：建库建表，这里

2009-10-19 19:34:00 651

原创 MYSQL存储过程VB调用方法。

Private Sub Command1_Click() Dim MyComm As New ADODB.Command 定义一个命令对象 Dim Rs_GetList As New ADODB.Recordset 定义一个记录集对象 Dim param As ADODB.Parameter 定义一个参数对象 With MyC

2009-10-19 15:46:00 1770 1

原创从B表中检索数据，和A表匹配。。根据别人的问题写的。带注释

--建表，测试数据declare @tables table (iID int,tablename varchar(30))insert into @tables select 1,A unionselect 2,B unionselect 3,C unionselect 4,D unionselect 5,AB unionselect 6,AC unionselec

2009-10-13 17:50:00 1425

原创普通行列转换(version 2.0)

/*标题：普通行列转换(version 2.0)作者：爱新觉罗.毓华(十八年风雨,守得冰山雪莲花开)时间：2008-03-09地点：广东深圳说明：普通行列转换(version 1.0)仅针对sql server 2000提供静态和动态写法，version 2.0增加sql server 2005的有关写法。问题：假设有张学生成绩表(tb)如下:姓名课程分数张三语文 74张三数学 83张三

2008-11-25 17:33:00 2925 5

原创 Access数据库压缩修复函数备份一举三得

引用Microsoft jet and Replication Object 2.6 LibraryAccess数据库压缩修复函数备份一举三得:代码归vbman2003所有Sub BackupMdb(sFile As String,dFile as string) sFile源文件,dFile目标文件 Dim miJRO As jro.JetEngine Set

2008-11-25 13:11:00 1094

原创十六进制转化为二进制

===========================================================================代码老张所有用途：将十六进制转化为二进制输入：Hex(十六进制数) 输入数据类型：String 输出：HEX_to_BIN(二进制数) 输出数据类型：String 输入的最大数为2147483647个字符Public Function

2008-11-25 09:04:00 2155 3

原创模拟按键WIN+R(开始-运行）

网络代码，版权归原作者所有 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Const VK_R = 83Const VK_LWIN = 91Private Sub C

2008-11-24 22:11:00 3160

原创得到字符串中汉字的个数的函数及其说明

函数如下Private Function HZCount(strHZ As String) As Long Dim b() As Byte b = StrConv(strHZ, vbFromUnicode) HZCount = UBound(b) + 1 - Len(strHZ) End Function StrConv 函数

2008-11-20 08:39:00 2028

转载如何在ADO中用异步的方式打开一个RecordSet

请问如何在ADO中用异步的方式打开一个RecordSet？因为我有一个SQL语句，用 RecordSet.Open "..." 的方式打开，时间会很长，我想让用户在OPEN 的时候能够取消OPEN 操作，该如何做？我用adExecuteAsync参数为什么不行？请专家们多多指教，谢谢！回答: 首先，常量应是adAsyncExecute而不是adExecuteAsy

2008-11-19 13:45:00 1558

原创 VB6.0实现DB5加密

1、新建一个窗体，创建一个文本框和命令按钮，加入下面代码：Option ExplicitPrivate Sub Command1_Click()Dim c1 As New Class1MsgBox c1.DigestStrToHexStr(Text1.Text)End Sub2、添加一个类模块，加入下面代码：Option ExplicitPrivat

2008-11-18 15:08:00 5492 28

原创处理窗体TEXTBOX清空

我们在程序中，经常要对界面上的TEXT进行初始化操作，有方法是列举出所有的text，然后一个个清空，这样操作太麻烦。下面提供一个简单的方法Private Sub Form_Load()Dim Obj As ObjectFor Each Obj In Me If TypeName(Obj) = "TextBox" Then ’ "TextBox" 替换这个名字，可以处

2008-03-17 17:59:00 1262 2

原创查询2个时间间隔内的记录的新写法

在做报表的时候，经常用到2个时间范围，如2006-01-01到2006-01-02，界面选择范围是这样的，但程序里处理的时候，其实时间是从2006-01-01 00：00：00到2006-01-02 23：59：59今天在论坛上发现这样一个写法，觉得挺有道理的select * from tableName where DateDiff(dd, 2006-01-01, 2006-01-

2007-05-08 11:02:00 1318

原创 SQL里的从1累加到100的函数

Alter function GetAdd(@MaxNum int)returns intas begin declare @Sum int declare @i int set @i=0 --赋初值 set @Sum=0 while ( @i begin set @i=@i+1 --计数器累加 set @Sum=@Sum+@

2007-04-26 10:25:00 9187

原创 SQL里实现Split函数

/*---------------------实现split功能的函数--ZZ 2007/04/01--只返回最后的一串*/alter function F_Split( @SourceSql varchar(8000),--字符串 @StrSeprate varchar(10)--分隔符)returns varchar(1000)as begin declare @i int

2007-04-26 10:21:00 1162 1

原创用VB代码在SQL SERVER 中创建数据库,表,列.以及对数据库的操作

前面看了一编用VB代码创建ACCESS数据库的文章,写的很好.根据思路,写下创建SQL 数据库的方法,供大家参考.1:引用ADO2.5lib2:在窗体上添加一个按钮COMMAND13:按钮代码如下:Private Sub Command1_Click()Dim cnn As New ADODB.Connection定义新的连接Dim rs As New ADODB.Recordset定义新的记

2005-04-15 18:10:00 8542 1

左兴宇的专栏