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、vb6中可以使用以下方式输入数据：

a)使用inputbox()函数输入数据；

b)使用Textbox控件（文本框）输入数据；

c)使用文件输入数据；

d)使用数据库输入数据等。

2、详解inputbox()函数输入数据，示例如下：

InputBox 函数：在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的 String。

语法：

InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

示例：

Dim Message, Title, Default, MyValue

Message = "Enter a value between 1 and 3" ' 设置提示信息。

Title = "InputBox Demo" ' 设置标题。

Default = "1" ' 设置缺省值。

' 显示信息、标题及缺省值。

MyValue = InputBox(Message, Title, Default)

' 使用帮助文件及上下文。“帮助”按钮便会自动出现。

MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' 在 100, 100 的位置显示对话框。

MyValue = InputBox(Message, Title, Default, 100, 100)

4、其它输入方法可以网上查找或看MSDN。

Public cn As ADODB.Connection

Public rs As ADODB.Recordset

Public cc As String

Sub aa()

Set cn = New ADODB.Connection

Set rs = New ADODB.Recordset

cc = "Provider=SQLOLEDB.1Integrated Security=SSPIPersist Security Info=FalseInitial Catalog=library"‘这里要改成连接的数据库。

cn.Open cc

End Sub

以上是模块代码。

Private Sub Command1_Click()

If Text1.Text = "" Then

MsgBox "请输入商品ID！"

Text1.SetFocus

Exit Sub

End If

If Text2.Text = "" Then

MsgBox "请输入商品名称！"

Text2.SetFocus

Exit Sub

End If

If Text3.Text = "" Then

MsgBox "请输入商品价格！"

Text3.SetFocus

Exit Sub

End If

sql = "select * from goods where goodid='" &Text1.Text &"'"

Set rs = New ADODB.Recordset

rs.Open sql, cn, 1, 3

If rs.EOF Then

rs.AddNew

rs.Fields(0) = Text1.Text

rs.Fields(1) = Text2.Text

rs.Fields(2) = Text3.Text

rs.Update

MsgBox "商品信息添加成功！"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

Else

MsgBox "此ID已存在，请输入新ID！"

Text1.Text = ""

Text1.SetFocus

End If

rs.Close

Set rs = Nothing

End Sub

Private Sub Form_Load()

Call aa

End Sub

以上是窗体代码。

你好好看一下，这是一个正确的源代码。

---