2008年03月_小鸿叔

11月 10月 07月 06月 05月 04月 03月 02月 01月

原创 ACCESS数据库在线更新代码(ASP版)

代码有点多，下载：http://download.csdn.net/source/337848另外程序还有点Bug，还没来得及改，如果谁完善一下，别忘了发给我一份（jyh_jack@163.com）by 鞠勇鸿conn.asp 内容：dim connset conn=server.createobject("adodb.connection")connString="Driver=

2008-03-31 16:05:00 2326

原创 VB数据访问通用模块(Access & SQL SERVER)

工程－引用 Microsoft ActiveX Data Objects 2.8 LibraryDataModule 模块Function GetAccessConn(ByVal FilePath As String) As ADODB.Connection Access DB Connection Dim conn As New ADODB.Connection conn.

2008-03-31 15:26:00 2868

原创 JS 替换文本域内的回车

html> head> title>无标题文档title> script type="text/javascript">function aa(){ s=form1.t1.value; s=s.replace(//n|/r/g,"");// 加上g是全局替换，不加只替换第一个是回车、是换行符 form1.t1.value=s;}script>head> body> fo

2008-03-28 09:17:00 1996 2

原创 VB 压缩Access数据库

工程-引入 Microsoft Jet and Replication Objects Library Private Sub Command1_Click()Dim FIXDB As New JRO.JetEngineFIXDB.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:aa.mdb", _"Provid

2008-03-24 16:29:00 1121

原创 [Excel] 根据A列，自动生成B列值

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 1 ThenSelect Case Target.Value Case 1: Sheet1.Cells(Target.Row, 2) = "中国" Case 2: Sheet1.Cells(Target.Row, 2

2008-03-24 14:50:00 3415

原创 HTML拖放表格

style>*{font-size:12px}.dragTable{font-size:12px;margin-bottom: 5px;}td{vertical-align:top;}.dragTR{cursor:move;color:#7787cc;background-color:#e5eef9;height:20px;padding-left:5px;font-weight:bol

2008-03-24 14:25:00 627

原创 ACCESS 创建、修改表的SQL语法（DML语法）

CREATE [TEMPORARY] TABLE table (field1 type [(size)] [NOT NULL] [WITH COMPRESSION | WITH COMP] [index1] [, field2 type [(size)] [NOT NULL] [index2] [, ...]] [, CONSTRAINT multifieldindex [, ...]])AL

2008-03-21 15:06:00 1374

原创 VB Picture1保存图片（&绘图）

Private Sub Command1_Click()Picture1.AutoRedraw = TruePicture1.Circle (100, 100), 100SavePicture Picture1.Image, "c: est.bmp"End Sub

2008-03-17 14:45:00 4749

原创 rs.Open 参数说明 [ADO帮助]

recordset.Open Source, ActiveConnection, CursorType, LockType, Options参数Source 可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。ActiveConnection 可选。变体型，计算有效 Connection 对象变量名；或字符串，包

2008-03-17 14:31:00 3204

原创 VB 删除文件

Private Sub Command1_Click()Kill "c:a.ini" End Sub

2008-03-13 10:19:00 1393

原创 ACCESS的数据类型英文表式（create table时可用到）

ACCESS所有类型为： Big Integer、Binary、Boolean、Byte、Char、Currency、Date/Time、Decimal、Double、Float、GUID、Integer、Long、Long Binary (OLE Object)、Memo、Numeric、Single、Text、Time、TimeStamp 以及 VarBinary。常用的几种：Date/T

2008-03-13 09:36:00 8034 2

原创 VB ADO连接DataGrid

工程－引用 Microsoft ActiveX Data Object2.8Dim cn As New ADODB.ConnectionDim rs As New ADODB.RecordsetPrivate Sub Form_Load()cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:aa.mdb"rs.CursorLocat

2008-03-12 09:46:00 1470

原创 JavaScript 倒记时刷新网页

html xmlns="http://www.w3.org/1999/xhtml">head>meta http-equiv="Content-Type" content="text/html; charset=gb2312" />title>60刷新本页title>script type="text/javascript">var t;t=60;function shua(){ t=t

2008-03-11 16:30:00 787

VBExplorer（VB反编译工具，详看软件介绍）

VBExplorer 前身为VBEditor，本程序是一个反编译VB程序的应用程序，具有以下特性： 1、目前已可以解析VB自身所有控件的属性，并进行编辑(包括字体的修改，背景颜色的修改，图片的保存和替换等)和导出(包括工程文件和图片文件); 2、可以对P-Code编译的程序进行代码解析，此功能正在不断完善； 3、搜索函数使用的Unicode字符串，并进行编辑。

2008-04-30