用ADO管理SQL SERVER ！
在软件开发中，常常需要为程序建立Sql Server数据库的运行环境。完成如在SQL Server数据库中建立设备，建立数据库，建立表格，分配权限等功能，如何方便的建立应用程序所需Sql Server环境的数据库环境，而不用启动SQL Enterprise Manager呢？
下面来看：
启动VB6.0，新建一个工程,在菜单-工程-引用里选"Microsoft ActiveX Data Objects 2.0 Library",代码里需要有
dim conn As New ADODB.Connection ‘定义ADO数据库对象
conn.ConnectionString = "driver={SQL Server};" & "server=" & ServerName & ";uid=" & UserName & ";
pwd=" & Password & ";database=" & DatabaseName & "" ’连接数据串
conn.open ‘连接数据库
注：ServerName为服务器名；UserName为用户名；Password为用户口令； DatabaseName要登录的数据库名，可以为空。
核心代码如下：
一、建立数据库
原理：建立数据库先要初始化一个数据库设备，然后在此设备上建立数据库。所有的设备名在系统表"sysdevices"里有记录，所有的数据库名在系统表"sysdatabases"里有记录。在建立之前，最好先查询这两个系统表，看名称是否已经存在。在建立设备之前，还需要的一个物理名和空闲的设备标识号。
初始化设备语法：
DISK INIT NAME="device_name",PHYNAME="physical_name",VDEVNO=device_number,SIZE=numberofblock
说明：这里，NAME是数据库设备名（一个有效的标识符），PHYNAME(数据库设备的物理名)是原始的磁盘分区UNIX或外设（vms）名，或者是操作系统的文件名。VDEVNO时数据库的设备标识号，合法值为1-255，SIZE的单位是2KB的块，例如1MB（1024KB）时SIZE值为512。
建立数据库语法：CREATE DATABASE database_name [ON database_device]
说明：database_name是要建的数据库名，database_device是设备名
要新建立一个数据库，就需要设备名，数据库名，物理名和设备号。具体步骤如下：
我们假设用户要新建立设备dbName，在设备dbName上建立数据库dbName。
1）得到设备名 bName是用户给出的设备名；先查询系统表sysdevices，看用户给出的设备名dbName是否已经存在，如果此设备名存在，就需要更换一个设备名，因为设备名是唯一的。
sql = "select * from sysdevices
where name=" & dbName & ""
Set rs =
相关文档：
sql server日期时间转字符串
日期时间转字符串
Select CONVERT(varchar(100), GETDATE(), 0): 05 16 2006 10:57AM
Select CONVERT(varchar(100), GETDATE(), 1): 05/16/06
Select CONVERT(varchar(100), GETDATE(), 2): 06.05.16
Select CONVERT(varchar(100), GETDATE(), 3): 16/05/06
Select CONVERT(varchar(1 ......
--查询每个人订饭的次数
select username as 姓名, count(*) as 次数 from orderitems group by UserName having count(*)=1
order by 姓名 desc
select distinct username as 未注册姓名 from orderitems
where username not in (select [Name] from Person)
select distinct username as 已注册姓名 fr ......
1.一个月第一天的
Select DATEADD(mm, DATEDIFF(mm,0,getdate()), 0)
2.本周的星期一
Select DATEADD(wk, DATEDIFF(wk,0,getdate()), 0)
3.一年的第一天
Select DATEADD(yy, DATEDIFF(yy,0,getdate()), 0)
4.季度的第一天
Select DATEADD(qq, DATEDIFF(qq,0,getdate()), 0)
5.当天的半夜
Select DATEADD(dd, DAT ......
1.查询出当前数据库的所有主键信息。
SELECT A.parent_obj AS TABLEID,
UPPER(E.NAME) AS TABLENAME,
UPPER(A.NAME) AS INDEXNAME,
UPPER(D.NAME) AS COLNAME,
......
六个防止SQL注入式攻击的建议
http://blog.csdn.net/jefflam/archive/2009/06/01/4233359.aspx
SQL注入攻击的危害性很大。在讲解其防止办法之前，数据库管理员有必要先了解一下其攻击的原理。这有利于管理员采取有针对性的防治措施。
一、 SQL注入攻击的简单示例。
statement := "SELECT * from Users WHERE Va ......
