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. 如何直接在sql server中添加一条数据

添加数据需要知道往哪张表添加，以及自己要添加的内容，然后可用insert语句执行。

1、以sqlserver2008r2为例，登录SQL Server Management Studio到指定的数据库。

2、登录后点击逗新建查询地。

3、比如要往test表中插入数据，可先用如下语句查看一下表结构及表内数据：

select * from test

4、根据自己的实际情况添加输入，比如要添加一条逗16,du小小动地的数据。

insert into test (id,name) values (16,'du小小动')；

执行成功后会有提示：

5、此时数据库中数据如下，说明添加成功。

2. sql如何加载数据库

SQL Server Management Studio中的对象资源管理器管理连接到Microsoft SQL Server数据库引擎实例，然后展开该实例。

右键单击数据库，指向“任务”，然后单击“附加”。

“附加数据库”对话框中指定要附加的数据库，单击“添加”，然后在“定位数据库文件”对话框中，选择数据库所在的磁盘驱动器，并展开目录树，以查找并选择数据库的。mdf文件，例如：

C:\ Program Files文件\微软SQL Server \ MSSQL.1 \ MSSQL \ DATA \ AdventureWorks_Data.mdf

重要： BR />

尽量选择附加的数据库将生成错误。

要指定一个不同的名称额外的数据库，附加数据库“对话框中输入一个名称”其他“一栏。

或其他项目的“所有者”列中，选择更改数据库所有者。

额外的数据库，请单击“OK”。

3. 添加时怎样实现多条数据添加进数据库

还是要看你的需求实现，这里只在最终数据库执行说明下：

1.如果数据可以直接从数据库提取，建议使用insert into 。..select。

2.如果语句是无关的，可以直接拼接一并提交数据库执行，要注意语句分割符，例如

SQL SERVER 是；，oracle是/

insert into table1 values (。)

insert into table1 values (。)

insert into table1 values (。)

4. 如何将数据库文件附加到SQL Server上

将数据库文件附加到SQL Server上的方法如下：百

1、把需要附加的数据库文件拷贝到自己想存储的目录下，然后单击“数据库”，附加

2、点击添加，选择路径，单击确定，即可完成附加。

3、在数据库界面就可以看到被附加的数据库了

4、分离数据库就是将某个数据库（如student_Mis）从SQL Server数据库列表中删除，使其不再被SQL Server管理和使用，但该数据库的文件度（.MDF）和对应的日志文件（.LDF）完好无损。分离成功后，我们就可以把该数据库文件（.MDF）和对应的日志文件（.LDF）拷贝到其它磁盘中作为备份保存。

5、（以Transino_ZHBB为例子）

6、打开属性窗口，在回属性窗口中选择选项，然后找到状态，把限制访问改成“SIGN_USER”

7、单机确定之后，显示如下窗口

8、单击Transino_ZHBB，选择任务下的子菜单分离

9、如果消息栏为空，则选择“就答绪”，否则“未就绪”，同时选择删除连接，更新统计信息

5. sql语句的插入和添加

学生表就暂定为复student表，学院表为college表

select s.stuid,s.stuno,s.stuname,c.collegename from student s join college c where s.collegeid=c.collegeid

这条语句制查百出来的数据就是只有度stuid,studno ,stuname ,collegename这四项，你在代码里面执行知绑定的语句时将上面那句放进去就行，道希望能帮到你。

---