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

VB向数据库添加数据(有代码),第1张

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

问题描述:

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***********

第一个问题脊陆胡,存储数樱拦据:

使用sqlcommand(如果是sql的):

using

cmd

as

new

sqlcommand()

cmd.connection

=

new

sqlconnection("server=.database=数据库名integrated

security=sspi")

cmd.connection.open()

cmd.commandtext=string.format("insert

into

表名字

values('{0}','{1}'",您的第一个字符串变量,第二悉液个字符串变量【如果是数值类型的,不要在索引前加单引号了】)

cmd.nonexecutequery()

'获取数据

sqldataadapter

adapter

=

new

sqldataadapter(cmd)

cmd.commandtext="select

*

from

表"

datatable

dt

=

new

datatable()

adapter.fill(dt)

datagridview.datasource

=

dt

end

using


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/bake/11976395.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-20
下一篇 2023-05-20

发表评论

登录后才能评论

评论列表(0条)

保存