VB向数据库添加数据(有代码)

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

Private Sub cmdOk_Click()

If Admin_Name.Text = "" Or Admin_PassWord.Text = "" Or Admin_RegPassWord.Text = "" Then

MsgBox "用户名或密码不能为空，请返回输入！", vbExclamation + vbOKOnly, "提示！"

Admin_Name.SetFocus

ElseIf Admin_PassWord.Text <>Admin_RegPassWord.Text Then

MsgBox "两次密码输入不一致，重新输入！", vbExclamation + vbOKOnly, "提示！"

Admin_PassWord.Text = ""

Admin_RegPassWord.Text = ""

Admin_PassWord.SetFocus

Else

Dim Conn As New ADODB.Connection

Dim StrSql As String

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &App.Path &"\Data\Hydata.mdb" &"Mode=ReadWritePersist Security Info=False"

'向数据库HYDATA里面的ADMIN表添加窗体上文本框里面的内容。这里应该怎么写呢？

'谢谢了

Conn.Close

End If

End Sub

================================

ACCESS名“HyData” 管理员表名：“Admin”里面的表头是：

Admin_ID,Admin_User,Admin_Pwd,Admin_HomeTel,Admin_Mobile

==================================

AddFrom窗体的文本框

Admin_Name,Admin_PassWord,Admin_RegPassword,Admin_HomeTel,Admin_Mobile.

=其中：Admin_PassWord,Admin_RegPassword 这两个判断两次密码是否一至。。

各位帮我看看。

解析:

xm= Request.Form("xm")

xb= Request.Form("xb")

ah= Request.Form("ah")

qqh= Request.Form("qqh")

set conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER=Driver do Microsoft Access (*.mdb)DBQ="&Server.MapPath("data\db1.mdb")

into_db3 = "INSERT INTO 表3 ( xm, xb, ah ,qqh) VALUES('"+xm+"','"+xb+"','"+ah+"','"+qqh+"')"

conn3.Execute(into_db3)

conn3.Close

解释下：

上面的

xm= Request.Form("xm")

xb= Request.Form("xb")

ah= Request.Form("ah")

qqh= Request.Form("qqh") 是从表单中的文本框获取值

set conn=Server.CreateObject("ADODB.Connection")

conn.open "DRIVER=Driver do Microsoft Access (*.mdb)DBQ="&Server.MapPath("data\db1.mdb")

这两句是以字符串方式建立一个数据库连接

db1.mdb就是access数据库名字

data 是站点中用来存放数据库的文件夹，这儿路径一定得对才行．

into_db3 = "INSERT INTO 表3 ( xm, xb, ah ,qqh) VALUES('"+xm+"','"+xb+"','"+ah+"','"+qqh+"')" conn3.Execute(into_db3)这句就是将获得的值插入数据库了，表3是数据库中的一张表，插入时注意对应字段．

conn3.Close

关闭数据库连接， *** 作完成后关闭数据库连接．

当然上面的语句都得在一对定界符<% %>之间．

你自己做时帮相应字段改了就可以了．

还有不懂可以加QQ***********

那要看你用的是什么脚本与数据库了，不过大至都是想同的，这里给出一些比较常用的语法：

1、说明：创建数据库

CREATE

DATABASE

database-name

2、说明：删除数据库

drop

database

dbname

3、说明：备份sql

server

---

创建

备份数据的

device

USE

master

EXEC

sp_addumpdevice

'disk',

'testBack',

'c:\mssql7backup\MyNwind_1.dat'

---

开始

备份

BACKUP

DATABASE

pubs

TO

testBack

4、说明：创建新表

create

table

tabname(col1

type1

[not

null]

[primary

key],col2

type2

[not

null],..)

根据已有的表创建新表：

A：create

table

tab_new

like

tab_old

(使用旧表创建新表)

B：create

table

tab_new

as

select

col1,col2…

from

tab_old

definition

only

5、说明：

删除新表：drop

table

tabname

6、说明：

增加一个列：Alter

table

tabname

add

column

col

type

注：列增加后将不能删除。DB2中列加上后数据类型也不能改变，唯一能改变的是增加varchar类型的长度。

7、说明：

添加主键：Alter

table

tabname

add

primary

key(col)

说明：

删除主键：Alter

table

tabname

drop

primary

key(col)

8、说明：

创建索引：create

[unique]

index

idxname

on

tabname(col….)

删除索引：drop

index

idxname

注：索引是不可更改的，想更改必须删除重新建。

9、说明：

创建视图：create

view

viewname

as

select

statement

删除视图：drop

view

viewname

10、说明：几个简单的基本的sql语句

选择：select

*

from

table1

where

范围

插入：insert

into

table1(field1,field2)

values(value1,value2)

删除：delete

from

table1

where

范围

更新：update

table1

set

field1=value1

where

范围

查找：select

*

from

table1

where

field1

like

’%value1%’

---like的语法很精妙，查资料!

排序：select

*

from

table1

order

by

field1,field2

[desc]

总数：select

count

*

as

totalcount

from

table1

求和：select

sum(field1)

as

sumvalue

from

table1

平均：select

avg(field1)

as

avgvalue

from

table1

最大：select

max(field1)

as

maxvalue

from

table1

最小：select

min(field1)

as

minvalue

from

table1

---