vb连接数据库添加东西(vb链接数据库)

VB 如何往 ACCESS数据库理添加数据

一,准备工作：

vb连接数据库添加东西(vb链接数据库)

vb连接数据库添加东西(vb链接数据库)

vb连接数据库添加东西(vb链接数据库)

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

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

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

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

程序代码如下：

'连接数据库的三步曲：

Adodc1.ConnectionString

="Provider=Microsoft.Jet.OLEDB.4.0;Data

Source="

&App.Path

&"数据库.mdb;Persist

Security

Info=False"

Adodc1.RecordSource

="数据表名"

Adodc1.Refresh

‘添加记录

Adodc1.Recordset.AddNew

'添加新的空纪录

Adodc1.Recordset("姓名").Value

=Text1.Text

Adodc1.Recordset.Update

’更新到数据表

private

sub

form_load()

data1.databasename

=app.path

&"pc.mdb"

data1.recordsource

="select

from

math1"

end

sub

private

sub

command1_click()

'新建一条记录

data1.recordset.addnew

text1.setfocus

end

sub

private

sub

command3_click()

'保存到数据库中

data1.recordset.update

data1.refresh

msgbox

"已保存到数据库",

,"信息"

end

sub

用VB怎样连接数据库中表的字段，使得添加数据时，表里的数据也相应添加？不要使用SQL语言

Dim

cn

As

ADODB.Connection

Dim

rs

As

ADODB.Recordset

Set

cn

=New

ADODB.Connection

Set

rs

=New

ADODB.Recordset

cn.Open

strConn

'strConn是事先定义好的一个数据库连接字符串

rs.Open

"select

from

公司资料",

cn,

adOpenStatic,

adLockPessimistic

'公司资料是表的名称

rs.AddNew

'添加新记录命令.

rs("公司名称")

=Text1.Text

rs("电话")

=Text2.Text

rs("电话1")

=Text3.Text

rs("传真")

=Text4.Text

rs("传真1")

=Text5.Text

rs("地址")

=Text6.Text

rs("版本")

=Text7.Text

rs.Update

'数据库更新

rs.Close

cn.Close

MsgBox

"添加新记录完成!",

vbInformation,

"系统提示"

vb数据库添加数据

在Private Sub Command1_Click() 和 conopn1 两句之间加以下代码

if Text1.Text ="" then

msgbox "请输入名称"

Text1.SetFocus

exit sub

endif

if Text2.Text ="" then

msgbox "请输入材料"

Text2.SetFocus

exit sub

endif

If Not IsNumeric(Text3.Text) Then

msgbox "请输入料厚,必须是数字"

Text3.SetFocus

exit sub

endif

if Combo1.Text ="" then

msgbox "请选择类别"

Combo1.SetFocus

exit sub

endif

if Combo2.Text ="" then

msgbox "请选择目录"

Combo2.SetFocus

exit sub

endif

vb数据库连接与添加字段问题

问题1：将连接字符串中的

"Data

Source=D:fbb.mdb;"

修改为"Data

Source=fbb.mdb;"即可。

就是把路径去掉。

问题2：涉及到字符串连接问题,使用&运算符，并且注意拼接串中要有必要的空格分隔。

dim

aa

as

string

aa

=姓名

delStr

="alter

table

财物记录

add

aa

text(2)"

上面的代码修改为即可：

dim

aa

as

string

aa

="姓名"

delStr

="alter

table

财物记录

add

"&

aa

&"

text(2)"

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

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

问题描述:

Private Sub cmdOk_Click()

If Admin_Name.Text = "" Or Admin_PassWord.Text = "" Or Admin_RegPassWord.Text = "" Then

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

Admin_Name.SetFocus

ElseIf Admin_PassWord.Text <> Admin_RegPassWord.Text Then

MsgBox "两次密码输入不一致，重新输入！", vbExction + 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 & "DataHydata.mdb" & ";Mode=ReadWrite;Persist Security Info=False"

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

'谢谢了

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=.CreateObject("ADODB.Connection")

conn.open "DRIVER=Driver do Microsoft Access (.mdb);DBQ="&.MapPath("datadb1.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=.CreateObject("ADODB.Connection")

conn.open "DRIVER=Driver do Microsoft Access (.mdb);DBQ="&.MapPath("datadb1.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

VB 向数据库添加数据

文本框

绑定？不要这样处理，数据会出错的

Private

Sub

Command2_Click()

/"确认键“

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields("姓名")

=Text1.text

Adodc1.Recordset.Fields("

学号

")

=Text2.text

Adodc1.Recordset.Fields("性别")

=combo1.text

Adodc1.Recordset.Fields("出生年月")

=Text3.text

Adodc1.Recordset.Fields("专业")

=combo2.text

Adodc1.Recordset.Update

End

Sub