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.0;Data Source=" & App.Path & "\Data\Hydata.mdb" & ";Mode=ReadWrite;Persist 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***********