浏览模式: 普通 | 列表

【数据库】.Net中常用的SQL方法总结

[ 2008-12-26 10:31:00 | 作者: 亿旭 ]
ASCII(str)
返回字符串str的最左面字符的ASCII代码值。如果str是空字符串,返回0。如果str是NULL,返回NULL。

ORD(str)
如果字符串str最左面字符是一个多字节字符,通过以格式((first byte ASCII code)*256+(second byte ASCII code))[*256+third byte ASCII code...]返回字符的ASCII代码值来返回多字节字符代码。如果最左面的字符不是一个多字节字符。返回与ASCII()函数返回的相同值。

CONV(N,from_base,to_base)
在不同的数字基之间变换数字。返回数字N的字符串数字,从from_base基变换为to_base基,如果任何参数是NULL,返回NULL。参数N解释为一个整数,但是可以指定为一个整数或一个字符串。最小基是2且最大的基是36。如果to...

阅读全文...

【ASP知识】连接Excel并读取的方法

[ 2008-12-25 10:31:00 | 作者: 亿旭 ]
连接Excel并读取的代码如下:
<%
Dim Conn,Driver,DBPath,Rs
'' 建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};DBQ=" & Server.MapPath("book.xls")
''调用Open 方法打开数据库
Conn.Open Driver
''DSN连接方式
''Conn.Open "Dsn=book"
''注意 表名一定要以下边这种格试 "[表名$]" 书写
Sql="Select * From [Sheet1$]"
Set Rs=Conn.Execute(Sql)
IF Rs.Eof And Rs.Bof Then
...

阅读全文...
把下面的代码存为***.vbs即可使用
 strComputer = “.”
 Set objWMIService = GetObject(”winmgmts:\\” & strComputer & “\root\cimv2″)

 Set colServiceList = objWMIService.ExecQuery _
 (”Select * from Win32_Service where Name = ‘TermService’”)

 For Each objService in colServiceList
 If objService.State = “Running” Then
 objService.StopService()
 Wscript.Sleep 5000
...

阅读全文...
一、声明变量
Dim a as integer '声明a为整型变量
Dim a '声明a为变体变量
Dim a as string '声明a为字符串变量
Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量

声明变量可以是:Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(当前不支持)、Date、String(只限变长字符串)、String * length(定长字符串)、Object、Variant、用户定义类型或对象类型。

二、声明常数
ConstConst My = 456 '常数的默认状态是 Private。
Public Const MyString = "HELP" ' 声明 Public 常数。
...

阅读全文...

精品文章推荐 【VB知识】亿旭常用语句总结

[ 2008-12-22 10:31:00 | 作者: 亿旭 ]
================1、常用类=================
强制声明变量:Option Explicit

时间延迟: doevents

换行符:chr(10)+chr(13) , vbCrlf

'获得当前程序路径:app.path ,CurDir

操作Excel文件,不显示提示Application.DisplayAlerts = False

复制文件:
FileCopy Text1, App.Path & "\转换结果\" & Combo1.Text & "\" & strfile
If Dir("C:\Folder",vbDirectory)="" Then Msgbox "目录不存在"

更新工作表:
lable.Reflesh
lable.Parent.Reflesh
Application.DoEvents
...

阅读全文...
@echo off
cls
title 本程序密码是:eexu.net日期:%date% &color 1f
:mima
cls
set mima=
set /p mima=请输入密码:
if '%mima%'=='eexu.net' goto huanying
goto exit
:start
set biaoto=
:biaoti
cls
set /p biaoti=请输入标题:
echo 您输入的标题是:%biaoti%
echo.
set xuanze=
echo 您是否想保存Y/N
echo y 保存文件到当前文件夹
echo n 退出本程序
set /p xuanze=请选择:
if '%xuanze%'=='y' goto yes
if '%xuanze%'=='n' goto no
:yes
echo 标题=%biaoti%>%biaoti%.txt
...

阅读全文...
1.通过Button1_Click事件将TextBox1.Text写入注册表 P目录下的OP文件夹中的Sname字段中

SaveSetting("P", "Op", "sname", Trim(TextBox1.Text))

2.读出以上写入注册表的信息

TextBox2.Text = LTrim(RTrim (UCase (GetSetting("P", "Op", "sname"))))

3.VB 中的 Right(P_at, 1) = "\" 语句,在P_OPat未知是否赋值的情况下,VB 2005 中可写为:

Dim P_O = Len(P_at)

TextBox1.Text = Mid(P_at, P_O, 1)

4. VB2005中 TextBox7_KeyPress 项,写法及定义

Dim KeyAscii As Integer
...

阅读全文...
2009年了,2G的内存才100多块啊,因为内存大了更,WinXP的最低配置要求是:128M,所有XP有些默认设置非常保守,我们可修改一下,提升一下性能,方法如下:

每一步:
在注册表找到以下内容:

HKEK_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SessionManager\Memory Management

中的:禁用内存页面调度: DisablePagingExecutive 值改为“1”

提升系统缓存: LargeSystemCache 值改为“1”

第二步:
为了保证大内存的合理使用,我们有必要在Windows XP中打开“注册表编辑器”,依次展开键[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services ...

阅读全文...
一、变色剪切
xlSheet.Select
Range(Text11 & i).Select
 With Selection.Interior
 .ColorIndex = 3
 .Pattern = xlSolid
 End With
 If i > Text12 Then
 Rows(i & ":" & i).Select
 Selection.Cut
 Rows(Text12 & ":" & Text12).Select
 Selection.Insert Shift:=xlDown
 End If

二、全部替换
 Columns("A:A").Select
 Selection.Replace
...

阅读全文...
'***********************************************************
'* 功能说明:获得随机的一串字符串
'* 参数说明:strLen 字符串长度
'* 返回说明:String 字符串
'***********************************************************
 Public Function GetRndString(Optional ByVal strLen As Integer = 8) As String
 Dim strReturn As String, strContent As String, intRandNum As Integer
 strContent = "abcdefghijklmn
...

阅读全文...