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

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

问题描述:

Private Sub cmdOk_Click()

If Admin_NameText = "" Or Admin_PassWordText = "" Or Admin_RegPassWordText = "" Then

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

Admin_NameSetFocus

ElseIf Admin_PassWordText <> Admin_RegPassWordText Then

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

Admin_PassWordText = ""

Admin_RegPassWordText = ""

Admin_PassWordSetFocus

Else

Dim Conn As New ADODBConnection

Dim StrSql As String

ConnOpen "Provider=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\Data\Hydatamdb" & ";Mode=ReadWrite;Persist Security Info=False"

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

'谢谢了

ConnClose

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= RequestForm("xm")

xb= RequestForm("xb")

ah= RequestForm("ah")

qqh= RequestForm("qqh")

set conn=ServerCreateObject("ADODBConnection")

connopen "DRIVER=Driver do Microsoft Access (mdb);DBQ="&ServerMapPath("data\db1mdb")

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

conn3Execute(into_db3)

conn3Close

解释下：

上面的

xm= RequestForm("xm")

xb= RequestForm("xb")

ah= RequestForm("ah")

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

set conn=ServerCreateObject("ADODBConnection")

connopen "DRIVER=Driver do Microsoft Access (mdb);DBQ="&ServerMapPath("data\db1mdb")

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

db1mdb就是access数据库名字

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

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

conn3Close

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

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

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

还有不懂可以加QQ

可以用ADO空间+文本框捆绑数据设计

也可以用普通文本框设计界面，让用户录入信息；然后用代码实现写入：

1建立ADODB的连接对象

2连接数据库

3打开连接对象

4通过连接对象执行SQL语句（用Insert写入数据）

5关闭对象。

希望对你能有所帮助。

你用的是VB几啊版本落后不能检测ACCESS,

另外你用的ACCESS版本比2003高级的话,VB6好象也不能检测到

既然这样,你就不用DATA/ADODC控件,直接编程把数据库连起来,跳开控件这一部分

字符串中，加单引号

zj = "Insert Into 主表(用户名称,用户密码) Values('" & TextuserText & "','" & Textpassword1Text & "')"

一,准备工作：

1，建立新工程，保存到文件夹。

2，把ACCESS数据库文件复制到上述文件夹。

3，在窗体上，添加一个ADODC控件和一个按钮。

4，在按钮的单击事件里编写程序。

程序代码如下：

'连接数据库的三步曲：

Adodc1ConnectionString

=

"Provider=MicrosoftJetOLEDB40;Data

Source="

&

AppPath

&

"\数据库mdb;Persist

Security

Info=False"

Adodc1RecordSource

=

"数据表名"

Adodc1Refresh

‘添加记录

Adodc1RecordsetAddNew

'添加新的空纪录

Adodc1Recordset("姓名")Value

=

Text1Text

Adodc1RecordsetUpdate

’更新到数据表

以上就是关于VB向数据库添加数据(有代码)全部的内容，包括:VB向数据库添加数据(有代码)、vb 中向数据库插入数据、在VB中添加不了数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！