新公司网上核名入口:VB与ACCESS添加数据(有代码)

来源:百度文库 编辑:神马品牌网 时间:2024/03/28 23:33:58
请教各位,向数据库HYDATA里面的ADMIN表添加窗体上文本框里面的内容。这里应该怎么写呢?谢谢了!

Private Sub cmdSave_Click()
'必填项不能为空!!
If User.Text = "" Or Sex.Text = "" Or Station.Text = "" Or Pwd.Text = "" Or RePwd.Text = "" Or Nation.Text = "" Or MoveMobile.Text = "" Or HomePhone.Text = "" Or HomeAddress.Text = "" Then
MsgBox "有必填项目没有填写,请返回重新输入!", vbExclamation + vbOKOnly, "提醒!"
User.SetFocus
'判断密码不能空和两次密码不一致!
ElseIf Pwd.Text <> RePwd.Text Then
MsgBox "两次密码输入不一致,请返回重新输入!", vbExclamation + vbOKOnly, "提醒!"
User.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

usertext=request("usertext")
sextext=request("sextext")
.............
homedresstext=request("homedresstext")
Set my_rs= Server.CreateObject("ADODB.Recordset")
strSql="select * from file(你的表名)"
my_rs.open strsql,conn,1,3
my_rs.addnew()
usertext=my_rs("usertext")
sextext=my_rs("sextext")
............
my_rs.update

dim rs as new recordset
rs.open admin,conn,adopenkey…,
rs.fields("user")=user.text
rs.fields("sex")=sex.text

下面的就自己仿照了,rs记录集打开时后面的本人忘了,不过输入时提示,3,2

Dim comm as new ADODB.command("insert into ADMIN (表中的字段值)values(窗体中对应得字段值)",conn)
comm.execute()