- 博客(30)
- 收藏
- 关注
RSS订阅原创 C#导出Excel
<br />using Excel = Microsoft.Office.Interop.Excel;<br /> SqlCommand cmd = new SqlCommand();<br /> cmd.Connection = MyConn;<br /> //con.Open();<br /> cmd.CommandText = "zhongbiao";<br /> cmd.CommandType = Command
2010-11-24 11:42:00
477
原创 checkedListBox1应用
using System;using System.Collections.Generic;using System.ComponentModel;using System.Data;using System.Drawing;using System.Text;using System.Windows.Forms;using System.Data.OleDb;using PMSystem.
2008-03-17 10:41:00
1843
原创 名称相同字段相加
Create Table TEST(bas_idInt, bas_aaVarchar(10), bas_bb Varchar(10))Insert TEST Select 1, gh, abcdUnion All Select 2, gh, efghGoCreate Function Getbas_bb(@
2007-07-27 15:56:00
1234
原创 存储过程参数表
p.Append cm.CreateParameter("参数名称",类型,方向,大小) 参许参数值的类型的意义如下：名称值 整数值 功能 adDBTimeStamp 135 日期时间数据类型 adDecimal 14 十进制整数值 adDouble 5 双精度小数值 adError 10 系统错误信息AdGUID 72 全域性唯一识别字(Globally unique identifie
2007-07-27 15:54:00
730
原创 动态转列
create table ta(编号 varchar(10),店名 varchar(10))insert into ta values(P001,3f17)insert into ta values(P002,4421)insert into ta values(P003,3A07)create table tb(编号 varchar(10),数量 int)insert
2007-07-27 15:53:00
869
原创 多表相连(inner)
现成格式范例：虽然我说得已经比较明白了，但为照顾初学者，我还是以本会员注册系统为例，提供一些现成的语法格式范例，大家只要修改其中的数据表名称和字段名称即可。连接两个数据表的用法：FROM Member INNER JOIN MemberSort ON Member.MemberSort=MemberSort.MemberSort语法格式可以概括为：FROM 表1 INNER JOIN 表2
2007-07-12 11:17:00
811
原创 在原记录添加一条新记录
insert aselect pono=po004,podate,field1,field2..... from a where pono=po002
2007-07-12 11:13:00
1089
原创 取各部门第三高工资
declare @t table(部门 char(10),姓名 char(20),工资 int)insert @t select aa,dddd,800union all select aa,aaaa,1000union all select aa,bbbb,900union all select bb,cccc,2000union all select bb,
2007-07-12 11:11:00
731
原创 触发器应用
触发器是数据库应用中的重用工具，它的应用很广泛。这几天写一个化学数据统计方面的软件，需要根据采样，自动计算方差，在这里，我使用了触发器。 下面我摘录了SQL Server官方教程中的一段关于触发器的文字，确实有用的一点文字描述。 可以定义一个无论何时用INSERT语句向表中插入数据时都会执行的触发器。 当触发INSERT触发器时，新的数据行就会被插入到触发器表和inserted
2007-07-12 11:10:00
510
原创 获取数据库中用户表
获取数据库中用户表select id,name from sysobjects where xtype=u获取某个表中的字段名和类型select A.name,B.name as Type from syscolumns A join systypes B on A.xtype=B.xusertype where id = object_id(表名)
2007-07-12 11:07:00
570
原创 Ajax应用简单示例
/* Create a new XMLHttpRequest object to talk to the Web server */var xmlHttp = false;/*@cc_on @*//*@if (@_jscript_version >= 5)try { xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");} catch (e) {
2007-07-12 11:04:00
548
原创 选中text字段
Option ExplicitPrivate Const EM_SETSEL = &HB1Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As
2006-05-25 17:54:00
627
转载 asp调用存储过程
ASP与存储过程(Stored Procedures)的文章不少，但是我怀疑作者们是否真正实践过。我在初学时查阅过大量相关资料，发现其中提供的很多方法实际操作起来并不是那么回事。对于简单的应用，这些资料也许是有帮助的，但仅限于此，因为它们根本就是千篇一律，互相抄袭，稍微复杂点的应用，就全都语焉不详了。 现在，我基本上通过调用存储过程访问SQL Server，以下的文字虽不敢保证绝对正确，但都
2006-05-19 13:44:00
705
原创 vb制作dll供asp调用
启动vb6.0，新建-->Active dll工程。单击"工程"-->引用,选择"microsoft active server pages object library" 和"microsoft activeX data objects 2.1 library"两项。将类模块的名称改为dcss.将工程的名称改为test.保存工程文件test.vbp和类文件dcss.
2006-05-15 17:47:00
1004
原创 下拉列表索引
Option ExplicitPrivate Declare Function SendMessage& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)Private Const CB_SHOWDROPDOWN = &H
2006-04-25 09:17:00
1425
原创 用PING示例
模块代码:Public MyIP As StringPrivate Const IP_SUCCESS As Long = 0Private Const IP_STATUS_BASE As Long = 11000Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)Private Const IP_DEST_NET_UNREACHABLE A
2006-04-25 09:14:00
702
原创 取得右边文件名
With CommonDialog1 .ShowOpen If .FileName Text1.Text = Right(.FileName, InStrRev(.FileName, "/")end ifEnd With
2006-04-22 11:50:00
544
原创 检测window版本
Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As LongPrivate Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion
2006-04-18 17:52:00
696
原创 vb实现透明窗体
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA"
2006-04-18 17:48:00
1115
原创 调用水晶报表
推荐vb6中如何调用水晶报表9做的报表引用ado及crystal report9 activex designer design time library(internal) 使用控件 crystal report viewer contral priver sub form_load() dim strsql as string Dim i As Integer dim capp As New
2006-04-18 11:20:00
838
原创 实现超级连接
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory
2006-04-18 11:18:00
601
原创 在数据库中添加图片
添加两个按钮,一个image控件注意:Access中的photo字段类型为OLE对象.SqlServer中的photo字段类型为Image** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本‘2.5版本以下不支持Stream对象Dim iConcstr As StringDim iConc As ADODB.Connection
2006-04-18 11:16:00
3099
原创 随机产生不同的数
Dim bStop As Boolean Dim n(1 To 370), i, j, q Private Sub Command1_Click() Command1.Visible = False Randomize Timer While j q = Int(Rnd(1) * 369 + 1) Label1.Capt
2006-04-14 15:09:00
716
原创 MD5算法
什么是MD5？ 不可逆加密算法，只能暴力破解！md5的全称是message-digest algorithm 5（信息-摘要算法），在90年代初由mit laboratory for computer science和rsa data security inc的ronald l. rivest开发出来，经md2、md3和md4发展而来。它的作用是让大容量信息在用数字签名软件签署私人密匙前被
2006-04-14 15:06:00
889
原创 将数值转换为中文大写
Private Sub Command1_Click()Label1.Caption = rmb(Val(Text1.Text))End SubPrivate Function rmb(s As Currency) As StringDim s2, s1, dx, x, c1, c2 As StringDim l As Integers1 = LTrim(Str(Abs(s)))l = Len
2006-04-13 17:38:00
743
原创 vb怎样访问网络服务器的access数据库
=============================自定义常量========================================Private Const RESOURCETYPE_DISK = &H1Private Const RESOURCE_GLOBALNET As Long = &H2Private Const RESOURCEDISPLAYTYPE_SHARE
2004-12-30 09:18:00
4108
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人