<?xml version="1.0" encoding="utf-8" ?><rss version="2.0"><channel><title><![CDATA[左兴宇的专栏]]></title><description><![CDATA[校企一卡通专业开发设计]]></description><link>https://blog.youkuaiyun.com/zuoxingyu</link><language>zh-cn</language><generator>https://blog.youkuaiyun.com/</generator><copyright><![CDATA[Copyright &copy; zuoxingyu]]></copyright><item><title><![CDATA[项目管理流程]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/4699873</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/4699873</guid><author>zuoxingyu</author><pubDate>Mon, 19 Oct 2009 19:34:00 +0800</pubDate><description><![CDATA[1：首先你要对整个项目的业务了解透彻，你才能够设计出一个优良的架构来，而且可以避免很多后期开发的问题。这方面的资料除了你自己的经验，另外看有没有相关的功能规范，测试规范什么的。熟悉业务是很必要的。 2：在了解业务流程后，写出详细的设计文档，功能文档，出数据库架构文档。到这一步，其实已经把你要做的项目细分了，有多少个功能点，每个功能点用到那几个表，功能点之间是怎么个关系都明确了。 3：建库建表，这里]]></description><category></category></item><item><title><![CDATA[MYSQL存储过程VB调用方法。]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/4698804</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/4698804</guid><author>zuoxingyu</author><pubDate>Mon, 19 Oct 2009 15:46:00 +0800</pubDate><description><![CDATA[Private Sub Command1_Click()        Dim MyComm As New ADODB.Command      定义一个命令对象    Dim Rs_GetList As New ADODB.Recordset 定义一个记录集对象    Dim param As ADODB.Parameter         定义一个参数对象        With MyC]]></description><category></category></item><item><title><![CDATA[从B表中检索数据，和A表匹配。。根据别人的问题写的。带注释]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/4664973</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/4664973</guid><author>zuoxingyu</author><pubDate>Tue, 13 Oct 2009 17:50:00 +0800</pubDate><description><![CDATA[--建表，测试数据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]]></description><category></category></item><item><title><![CDATA[普通行列转换(version 2.0)]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/3371359</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/3371359</guid><author>zuoxingyu</author><pubDate>Tue, 25 Nov 2008 17:33:00 +0800</pubDate><description><![CDATA[/*标题：普通行列转换(version 2.0)作者：爱新觉罗.毓华(十八年风雨,守得冰山雪莲花开)时间：2008-03-09地点：广东深圳说明：普通行列转换(version 1.0)仅针对sql server 2000提供静态和动态写法，version 2.0增加sql server 2005的有关写法。问题：假设有张学生成绩表(tb)如下:姓名 课程 分数张三 语文 74张三 数学 83张三 ]]></description><category></category></item><item><title><![CDATA[Access数据库压缩修复函数备份一举三得]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/3368866</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/3368866</guid><author>zuoxingyu</author><pubDate>Tue, 25 Nov 2008 13:11:00 +0800</pubDate><description><![CDATA[引用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]]></description><category></category></item><item><title><![CDATA[十六进制转化为二进制]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/3367636</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/3367636</guid><author>zuoxingyu</author><pubDate>Tue, 25 Nov 2008 09:04:00 +0800</pubDate><description><![CDATA[===========================================================================代码老张所有 用途：将十六进制转化为二进制 输入：Hex(十六进制数) 输入数据类型：String 输出：HEX_to_BIN(二进制数) 输出数据类型：String 输入的最大数为2147483647个字符Public Function]]></description><category></category></item><item><title><![CDATA[模拟按键WIN+R(开始-运行）]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/3364701</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/3364701</guid><author>zuoxingyu</author><pubDate>Mon, 24 Nov 2008 22:11:00 +0800</pubDate><description><![CDATA[网络代码，版权归原作者所有  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]]></description><category></category></item><item><title><![CDATA[得到字符串中汉字的个数的函数及其说明]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/3338339</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/3338339</guid><author>zuoxingyu</author><pubDate>Thu, 20 Nov 2008 08:39:00 +0800</pubDate><description><![CDATA[函数如下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   函数          ]]></description><category></category></item><item><title><![CDATA[如何在ADO中用异步的方式打开一个RecordSet]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/3334348</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/3334348</guid><author>zuoxingyu</author><pubDate>Wed, 19 Nov 2008 13:45:00 +0800</pubDate><description><![CDATA[请问如何在ADO中用异步的方式打开一个RecordSet？ 因为我有一个SQL语句，用     RecordSet.Open "..." 的方式打开，时间会很长，我想让用户在OPEN 的时候能够取消OPEN 操作，该如何做？我用adExecuteAsync参数为什么不行？请专家们多多指教，谢谢！  回答:     首先，常量应是adAsyncExecute而不是adExecuteAsy]]></description><category></category></item><item><title><![CDATA[VB6.0实现DB5加密]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/3326275</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/3326275</guid><author>zuoxingyu</author><pubDate>Tue, 18 Nov 2008 15:08:00 +0800</pubDate><description><![CDATA[1、新建一个窗体，创建一个文本框和命令按钮，加入下面代码：Option ExplicitPrivate Sub Command1_Click()Dim c1 As New Class1MsgBox c1.DigestStrToHexStr(Text1.Text)End Sub2、添加一个类模块，加入下面代码：Option ExplicitPrivat]]></description><category></category></item><item><title><![CDATA[处理窗体TEXTBOX清空]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/2192527</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/2192527</guid><author>zuoxingyu</author><pubDate>Mon, 17 Mar 2008 17:59:00 +0800</pubDate><description><![CDATA[我们在程序中， 经常要对界面上的TEXT进行初始化操作，有方法是列举出所有的text，然后一个个清空，这样操作太麻烦。下面提供一个简单的方法Private Sub Form_Load()Dim Obj As ObjectFor Each Obj In Me    If TypeName(Obj) = "TextBox" Then           ’ "TextBox" 替换这个名字，可以处]]></description><category></category></item><item><title><![CDATA[查询2个时间间隔内的记录的新写法]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/1600229</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/1600229</guid><author>zuoxingyu</author><pubDate>Tue, 08 May 2007 11:02:00 +0800</pubDate><description><![CDATA[在做报表的时候，经常用到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-]]></description><category></category></item><item><title><![CDATA[SQL里的从1累加到100的函数]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/1585418</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/1585418</guid><author>zuoxingyu</author><pubDate>Thu, 26 Apr 2007 10:25:00 +0800</pubDate><description><![CDATA[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+@]]></description><category></category></item><item><title><![CDATA[SQL里实现Split函数]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/1585404</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/1585404</guid><author>zuoxingyu</author><pubDate>Thu, 26 Apr 2007 10:21:00 +0800</pubDate><description><![CDATA[/*---------------------实现split功能 的函数--ZZ 2007/04/01--只返回最后的一串*/alter function F_Split( @SourceSql varchar(8000),--字符串 @StrSeprate varchar(10)--分隔符)returns  varchar(1000)as begin    declare @i int   ]]></description><category></category></item><item><title><![CDATA[用VB代码在SQL SERVER 中创建数据库,表,列.以及对数据库的操作]]></title><link>https://blog.youkuaiyun.com/zuoxingyu/article/details/349243</link><guid>https://blog.youkuaiyun.com/zuoxingyu/article/details/349243</guid><author>zuoxingyu</author><pubDate>Fri, 15 Apr 2005 18:10:00 +0800</pubDate><description><![CDATA[前面看了一编用VB代码创建ACCESS数据库的文章,写的很好.根据思路,写下创建SQL 数据库的方法,供大家参考.1:引用ADO2.5lib2:在窗体上添加一个按钮COMMAND13:按钮代码如下:Private Sub Command1_Click()Dim cnn As New ADODB.Connection定义新的连接Dim rs As New ADODB.Recordset定义新的记]]></description><category></category></item></channel></rss>