自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(24)
  • 收藏
  • 关注

原创 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 942

原创 獲取表所占容量

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 562

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

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 1771

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

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

2011-02-25 21:16:00 1014

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

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 842

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

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 636

原创 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 702

原创 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 1108

原创 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 813

原创 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 1730 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 1502

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

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

2009-06-13 01:21:00 823

原创 字符转计算式

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 1070 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 5050 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 3527 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 2018

原创 如何取得記錄號

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

2007-08-13 10:15:00 843

原创 遠程備份數據庫

--如果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 995

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

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

2007-04-22 14:14:00 2082

原创 关于“系统错误&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 4562

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

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

2006-12-07 09:54:00 2241

原创 用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 1680

原创 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 4049

原创 安裝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 4289

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除