DengXingJie-CSDN博客

原创 vb6调用带日期参数的存储过程

create table tmp( fCode Varchar(10), fDate smalldatetime)insert into tmpselect 'A1','2011-08-10' union allselect 'A2','2011-08-11' u

2011-08-11 22:08:41 1048

原创獲取表所占容量

CREATE PROCEDURE get_tableinfo AS if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tablespaceinfo]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)create table tablespaceinfo

2011-03-13 12:32:00 611

原创求指定日期范围内有几个星期几

if exists(select * from dbo.sysobjects where id=object_id(N'[dbo].[FUN_GetWeekDays]') and xtype in (N'FN',N'IF',N'TF')) drop function [dbo].[FUN_GetWeekDays]go/**********************************

2011-02-25 22:51:00 1895

原创根据进舍位或四舍五入来求值

/**********************************************************************************Program ID: FUN_GetValueByRoundModePurpose : 根据进舍位或四舍五入来求值Author : JesseDate : 2011.02.14************

2011-02-25 21:16:00 1098

原创一天内时钟分钟重复的时刻

declare @TimeResult Table (sTime char(8)) declare @nSecond int, @h int, @m int, @s int, @n intselect @nSecond=0, @h=0, @m=0, @s=0, @n=0while @n<23 begin

2011-02-25 20:56:00 899

原创函數：求數據表所占容量

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FUN_TABLES_SPACEINFO]') and xtype in (N'FN', N'IF', N'TF'))drop function [dbo].[FUN_TABLES_SPACEINFO]GOSET QUOTED_IDENTIFIER O

2010-04-09 11:21:00 666

原创 SQL2000調用JMail接收郵件

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SP_RECEIVE_MAIL]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[SP_RECEIVE_MAIL]GOSET QUOTED_IDENTIFIER ON

2010-03-09 19:21:00 754

原创 SQL2000調用JMail發送郵件

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[SP_SEND_MAIL]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)drop procedure [dbo].[SP_SEND_MAIL]GOSET QUOTED_IDENTIFIER ONGOSE

2010-03-09 19:13:00 1159

原创 SQL:為字符串外的臨時表插入數據

CREATE TABLE #pe21 ( [pe2101] [char] (7) COLLATE Chinese_Taiwan_Stroke_CI_AS NULL , [pe2102] [DATETIME] NULL , ) ON [PRIMARY] DECLARE @tmpSQL VARCHAR(1000) SET @tmpSQL='INSERT INTO #pe21

2010-01-23 11:29:00 844

原创 BOM查詢(通過物料找最成品)

2009-09-26 11:39:31 方法1. 遞歸法 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FUN_RECURRENT_CHILDREN_PARENT]') and xtype in (N'FN', N'IF', N'TF'))drop function [dbo].[FUN

2009-09-26 11:38:00 1847 1

原创 BOM查詢(通過成品或半成品找最底層的物料)

2009-09-26 11:31:13法1：遞歸法 if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[FUN_RECURRENT_PARENT_CHILDREN]') and xtype in (N'FN', N'IF', N'TF'))drop function [dbo].[FUN_RECU

2009-09-26 11:27:00 1622

转载在 XP/2K 任务管理器的进程列表中隐藏当前进程

Option Explicit-----------------------------------------------------模块名称：modHideProcess.bas模块功能：在 XP/2K 任务管理器的进程列表中隐藏当前进程使用方法：直接调用 HideCurrentProcess()模块作者：Smartsoft-----

2009-06-13 01:21:00 884

原创字符转计算式

2009-06-13 01:16:57Option Explicit↓方法一Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Unknownn1 As Long, ByVal Unknownn2 As Long, ByVal fCheckOnly As

2009-06-13 01:14:00 1141 3

原创 VB.NET中，用变量名来替换控件名

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextControl(2) End Sub Private Sub TextControl(ByVa

2009-05-24 16:13:00 5245 3

原创在水晶报表中使用带参数的命令数据源

在VB2005中添加一Crystal Report取名为CommandSQL.rpt，用SQL命令做为其数据源，命令如下：select pa_no,dp_no,wa_no,pa_id from iepa00h where pa_no={?pano}其中?pano为一字符类型的参数，注意 where pa_no={?pano}不能写成 where pa_no={?pano}，否则

2009-05-11 18:52:00 3673 1

原创用VB6取得文本文件的编码格式

Option Explicit Public Function getTxtFileEncodeFormat(strTxtFile As String) Dim freeFileNumber As Integer freeFileNumber = FreeFile Dim a(1) As Byte Open strTx

2008-12-02 22:19:00 2307

原创如何取得記錄號

'自己的問題：把DataSet中一表綁定給DataGridView后如何得知當前DataGridView行在DataSet表中所對應的記錄號？在一般性況下DataGridView行號就是記錄號，但由于有排序的問題所以並不一定相等，請各大大幫忙！ '自己解決： Dim sTable As DataTable = DataGridView1.DataSource index =

2007-08-13 10:15:00 877

原创遠程備份數據庫

--如果SQL Server是遠程機，要把數據備份到本機中，則//xz代表的是本機--1.映射exec master..xp_cmdshell 'net use z: //192.168.2.68/c$ "159357" /user:192.168.2.68/administrator'/*--說明:z:是映射網路路徑對應本機的盤符,與下面的備份對應//xz/c$是要映射的網路路徑xz

2007-06-29 17:55:00 1031

原创关于“explorer.exe已经产生错误，将被Windows关闭。您将需要重新启动程序”的解决方法

解决方法：删除系统目录下的WC98PP.DLL文件即可。比如2000系统：C:/Winnt/WC98PP.DLL

2007-04-22 14:14:00 2315

原创关于“系统错误&H80004015(-2147467243).此类别是作为跟调用程序不同的安全ID运行的”的解决办法

Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Winlogon/Notify] [HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Winlogon/Notify/

2007-04-22 14:03:00 4830

原创 System進程狂佔CPU的問題及解決方法

這幾天公司的多台電腦出現System進程狂佔CPU的情況，有些新裝的系統也會出現這種情況，在網上找了大量的資料，但說法卻不一，有些說是某些驅動沒裝好，但一想也不會那麼巧，這麼多電腦的驅動都沒裝好最後用ProcessExplorerNt10.2及IceSword1.18找到了在C：/winnt/system32下面有一個vcmon.exe文件在作怪，此文件有系統與隱藏的屬性，並在控制

2006-12-07 09:54:00 2314

原创用OPENDATASOURCE打開有密碼的ACCESS文件

SELECT * FROM OpenDataSource( Microsoft.Jet.OLEDB.4.0, Data Source="c:/Finance/account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0)...xactions 以上是在SQL的聯機幫助文件中找到的關於打開Excel文件的方法，將其改成

2006-09-28 15:33:00 1745

原创 VB工程簡體轉繁體

frmMain.frmVERSION 5.00Begin VB.Form frmMain BorderStyle = 1 '單線固定 Caption = "VB工程簡轉繁" ClientHeight = 4935 ClientLeft = 45 ClientTop = 330 Cli

2006-03-15 11:50:00 4196

原创安裝VB時,出現MSADDNDR.DLL無法注冊問題的解決方法

步驟：1.進入“運行”，輸入“Regedt32”(注意：不是Regedit32)，進入登錄編輯器2.找到HKEY_CLASSES_ROOT/TypeLib/{000204EF-0000-0000-C000-000000000046}/6.0/9/win32項3.在工具條中先擇“安全性(S)/使用權限(P)...”4.給Administrator加上全部權限，並勾選“允許來自父項的可繼承權限可以傳播

2005-12-12 18:02:00 4434