在程序的开发过程中，处理分页是大家接触比较频繁的事件，因为现在软件基本上都是与数据库进行挂钓的。但效率又是我们所追求的，如果是像原来那样把所有满足条件的记录全部都选择出来，再去进行分页处理，那么就会多多的浪费掉许多的系统处理时间。为了能够把效率提高，所以现在我们就只选择我们需要的数据，减少数据库的处理时间，以下就是常用SQL分页处理：
1、SQL Server、Access数据库
这都微软的数据库，都是一家人，基本的操作都是差不多，常采用如下分页语句：
PAGESIZE：每页显示的记录数
CURRENTPAGE：当前页号
数据表的名字是：components
索引主键字是：id
以下是引用片段：
select top PAGESIZE * from components where id not in
(select top (PAGESIZE*(CURRENTPAGE-1))
id from components order by id)order by id
如下列：
以下是引用片段：
select top 10 * from components where id not in
(select top 10*10 id&nbs ......
在程序的开发过程中，处理分页是大家接触比较频繁的事件，因为现在软件基本上都是与数据库进行挂钓的。但效率又是我们所追求的，如果是像原来那样把所有满足条件的记录全部都选择出来，再去进行分页处理，那么就会多多的浪费掉许多的系统处理时间。为了能够把效率提高，所以现在我们就只选择我们需要的数据，减少数据库的处理时间，以下就是常用SQL分页处理：
1、SQL Server、Access数据库
这都微软的数据库，都是一家人，基本的操作都是差不多，常采用如下分页语句：
PAGESIZE：每页显示的记录数
CURRENTPAGE：当前页号
数据表的名字是：components
索引主键字是：id
以下是引用片段：
select top PAGESIZE * from components where id not in
(select top (PAGESIZE*(CURRENTPAGE-1))
id from components order by id)order by id
如下列：
以下是引用片段：
select top 10 * from components where id not in
(select top 10*10 id&nbs ......
在程序的开发过程中，处理分页是大家接触比较频繁的事件，因为现在软件基本上都是与数据库进行挂钓的。但效率又是我们所追求的，如果是像原来那样把所有满足条件的记录全部都选择出来，再去进行分页处理，那么就会多多的浪费掉许多的系统处理时间。为了能够把效率提高，所以现在我们就只选择我们需要的数据，减少数据库的处理时间，以下就是常用SQL分页处理：
1、SQL Server、Access数据库
这都微软的数据库，都是一家人，基本的操作都是差不多，常采用如下分页语句：
PAGESIZE：每页显示的记录数
CURRENTPAGE：当前页号
数据表的名字是：components
索引主键字是：id
以下是引用片段：
select top PAGESIZE * from components where id not in
(select top (PAGESIZE*(CURRENTPAGE-1))
id from components order by id)order by id
如下列：
以下是引用片段：
select top 10 * from components where id not in
(select top 10*10 id&nbs ......
如何把Access转成SQL Server的方法介绍
很多朋友想用SQL 2000数据库的编程方法，但是却又苦于自己是学Access的，对SQL只是一点点的了解而已，这里我给大家提供以下参考---将Access转化成SQL 2000的方法和注意事项。首先，我说的是在Access 2000，SQL 2000之间转换，其他的我也还没有尝试过，希望大家多多试验，肯定是有办法的。
转换方法
1、打开“控制面板”下“管理工具”中的“数据库源”。
2、按“添加”添加一个新的数据源，在选择栏里选“Driver do microsoft Access (*.mdb)”，完成后将出现一个框，在“数据库源”里面输入你想写的名称，我取名叫“ABC”，说明不需要填，接着，按下面的选择，寻找你的数据库地址和选中（注意，请先备份自己的Access数据库），然后确定。数据源在这里建好了，剩下转换了。
3、打开SQL2000企业管理器，进入数据库，新建一个空的数据库“ABC”。
4、选择新建立的数据库，按鼠标右键，选择“所有任务”下“导入数据”，按“下一步”继续。
5、在数据库源下拉但中 ......
如何把Access转成SQL Server的方法介绍
很多朋友想用SQL 2000数据库的编程方法，但是却又苦于自己是学Access的，对SQL只是一点点的了解而已，这里我给大家提供以下参考---将Access转化成SQL 2000的方法和注意事项。首先，我说的是在Access 2000，SQL 2000之间转换，其他的我也还没有尝试过，希望大家多多试验，肯定是有办法的。
转换方法
1、打开“控制面板”下“管理工具”中的“数据库源”。
2、按“添加”添加一个新的数据源，在选择栏里选“Driver do microsoft Access (*.mdb)”，完成后将出现一个框，在“数据库源”里面输入你想写的名称，我取名叫“ABC”，说明不需要填，接着，按下面的选择，寻找你的数据库地址和选中（注意，请先备份自己的Access数据库），然后确定。数据源在这里建好了，剩下转换了。
3、打开SQL2000企业管理器，进入数据库，新建一个空的数据库“ABC”。
4、选择新建立的数据库，按鼠标右键，选择“所有任务”下“导入数据”，按“下一步”继续。
5、在数据库源下拉但中 ......
/*
--作用：SQL SERVER操作ACCESS的存储过程
----------------------用法-------------------------------
--创建表tc
exec sp_operate_access 'create table tc(id int)','c:\db1.mdb'
go
--在tc表插入数据
exec sp_operate_access 'insert into tc(id) values(1)','c:\db1.mdb'
go
--删除tc表的数据
exec sp_operate_access 'delete from tc where id=1','c:\db1.mdb'
go
--删除TC表
exec sp_operate_access 'drop table tc','c:\db1.mdb'
go
--删除存储过程
drop proc sp_operate_access
*/
--创建存储过程
create proc sp_operate_access
@cmdsql varchar(8000),
@accessfilename nvarchar(1000)
as
begin
declare @out int,@err int,@obj int,@constr nvarchar(1000),@src nvarchar(255),@desc nvarchar(255)
select @constr='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+@accessfilename
exec @err=sp_oacreate 'adodb.connection',@obj out
if @err=0
&nbs ......
/*
--作用：SQL SERVER操作ACCESS的存储过程
----------------------用法-------------------------------
--创建表tc
exec sp_operate_access 'create table tc(id int)','c:\db1.mdb'
go
--在tc表插入数据
exec sp_operate_access 'insert into tc(id) values(1)','c:\db1.mdb'
go
--删除tc表的数据
exec sp_operate_access 'delete from tc where id=1','c:\db1.mdb'
go
--删除TC表
exec sp_operate_access 'drop table tc','c:\db1.mdb'
go
--删除存储过程
drop proc sp_operate_access
*/
--创建存储过程
create proc sp_operate_access
@cmdsql varchar(8000),
@accessfilename nvarchar(1000)
as
begin
declare @out int,@err int,@obj int,@constr nvarchar(1000),@src nvarchar(255),@desc nvarchar(255)
select @constr='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+@accessfilename
exec @err=sp_oacreate 'adodb.connection',@obj out
if @err=0
&nbs ......
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using Microsoft.Practices.EnterpriseLibrary.Common;
using Microsoft.Practices.EnterpriseLibrary.Data;
using System.Data.Common;
using System.Data.SqlClient;
public partial class _Default : System.Web.UI.Page
{
Database db = DatabaseFactory.CreateDatabase("NorthWind");
// Database db = DatabaseFactory.CreateDatabase();
protected void Page_Load(object sender, EventArgs e)
{
if (!Page.IsPostBack)
{
this.GridView1.DataSource = GetDateSet("select top 10 * from dbo.Products").Tables[0];
this.GridView1.DataBind();
}
}
/// <summary>
/// 执行单条SQL 语句
/// </summary>
/// <param name="sql">sql</param>
/// < ......
列出某一天, 上一星期的数据
SELECT distinct dateandtime
from ctdate_by_query_date
WHERE dateandtime between ((#2006-5-15#+(Weekday(2006-5-15)-7))-6) and (#2006-5-15#-7)+Weekday(2006-5-15)
sql="SELECT distinct dateandtime from ctarticle WHERE dateandtime between ((#"&date&"#+(Weekday("&date&")"&norp&"7))-6) and (#"&date&"#"&norp&"7)+Weekday("&date&")"
13.5 查询一天, 所隶属星期所有天数的数据
SELECT *
from ctdate_by_query_date
WHERE dateandtime between ((#2006-5-15#+Weekday(2006-5-15))-6) and #2006-5-15#+Weekday(2006-5-15)
13.4 查询一个时间段
SELECT *
from ctdate_by_query_date
WHERE dateandtime between #2006-5-1# and #2006-5-30#
13.3.2 列出不同年份的年份, 并且不要相同
select distinct year(dateandtime) from ctarticle
结果如:
Expr1000
2000
2003
2004
2005
2006
13.3.1 列出某一天, 上一年的第一条记录
SELECT top 1 dateandtime from ctarticle where year(dateandtim ......
Private Sub cmdListProperties_Click()
ListControlProps Me
End Sub
Public Sub ListControlProps(ByRef frm As Form)
Dim ctl As Control
Dim prp As Property
On Error GoTo props_err
For Each ctl In frm.Controls
Debug.Print ctl.Properties("Name")
For Each prp In ctl.Properties
Debug.Print vbTab & prp.Name & _
" = " & prp.Value
Next prp
Next ctl
props_exit:
Set ctl = Nothing
Set prp = Nothing
Exit Sub
props_err:
If Err = 2187 Then
Debug.Print vbTab & prp.Name & ......
最新文章 : access