vs怎么向数据库里添加一条新记录？

<%

dim db '声明变量

set db=server.createobject("adodb.connection") '建立数据连接对象

db.open "Provider=Microsoft.Jet.OLEDB.4.0Data Source="&server.mapPath("userinfo.mdb") '以db数据连接对象 打开同目录userinfo.mdb数据库

dim username,password,qq,Email,sql,rs '声明变量，注意变量名不能包含特殊符号，就是E-mail是不行的

username=request.form("username") '变量赋值为表单请求的值

password=request.form("password") '变量赋值为表单请求的值

qq=request.form("qq") '变量赋值为表单请求的值

Email=request.form("E-mail") '变量赋值为表单请求的值

sql="insert into userinfo (username,[password],qq,[E-mail]) values ('"&username&"','"&password&"','"&qq&"','"&Email&"')"

db.execute(sql) '直接执行sql语句

response.write "添加记录成功"

db.close '关闭数据库连接

set db=nothing '释放对象 节约内存

%>

引用命名空间

using

system.data.sqlclient

剩下就和如何把大象放冰箱一样，

打开冰箱（打开数据库）只不过编程的逻辑性更强，多了一步，冰箱在哪并且考虑要把大象放在这个冰箱的哪格中（也就是数据库服务器在哪，使用哪个数据库）

那么开始找数据库

创建一个连接对象

sqlconnection

con

=

new

sqlconnection(“server=数据库服务器ip套接字--也就是ip:端口database=使用数据库名字uid=登录数据库用户名pwd=登录密码”)

//这一步就是找到冰箱了（找到数据库在哪了）

打开冰箱（打开连接）

con.open()

然后 *** 作， *** 作的过程是比较复杂的，我就不举例了（把大象放冰箱里面）

//关闭连接（关闭冰箱门）

con.close()

这个明显是WinForm的吧。

1、新建数据库

USE [master]

GO

/****** Object: Database [数据库名]Script Date: 09/12/2014 16:56:48 ******/

CREATE DATABASE [数据库名] ON PRIMARY

( NAME = N'数据库名', FILENAME = N'D:\Program Files\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\数据库名.mdf' , SIZE = 80896KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB )

LOG ON

( NAME = N'数据库名_log', FILENAME = N'D:\Program Files\Microsoft SQL Server\MSSQL10_50.MSSQLSERVER\MSSQL\DATA\数据库名_log.LDF' , SIZE = 22144KB , MAXSIZE = UNLIMITED, FILEGROWTH = 10%)

GO

2、建立数据表

USE[数据库名]

GO

CREATE TABLE [个人信息] (

[ID] [int] IDENTITY (1, 1) NOT NULL,

[姓名] [nvarchar] (50) NOT NULL DEFAULT (''),

[性别] [nvarchar] (1) NOT NULL DEFAULT (''),

[年龄] [int] NOT NULL DEFAULT (0),

[籍贯] [nvarchar] (50) NOT NULL DEFAULT (''),

[所在地] [nvarchar] (4000) NOT NULL DEFAULT (''))

/****其它字段自行添加****/

ALTER TABLE [AccessList] WITH NOCHECK ADD CONSTRAINT [PK_个人信息] PRIMARY KEY NONCLUSTERED ( [ID] )

3、点击button后，确认添加个人信息时：

INSERT [个人信息] ([姓名],[性别],[年龄],[籍贯]) VALUES ( '"+ txtXM.Text.Trim()+"','"+cbxXB.Text.Trim()+"',"+ txtNL.Text.Trim()+",'"+txtJG.Text.Trim()+"')

SQL语句，尽量使用参数，避免SQL注入。

---