vb怎么使用vb向数据库写数据

Private Sub Command1_Click()

Dim ADOrs As New Recordset     '声明一个记录集对象

Dim ADOrs1 As New Recordset     '声明一个记录集对象

Dim strSQL As String

Dim user As String

ADOrsActiveConnection = ADOcn    '与ADOcn连接对象关联

ADOrs1ActiveConnection = ADOcn    '与ADOcn连接对象关联

 If Text1Text = "" Then

      MsgBox "未输入姓名信息，请重新输入！", vbCritical + vbOKOnly

     Text1SetFocus     '定位光标

     Exit Sub

 End If

If Text2Text = "" Then

     MsgBox "未输入身份z号码，请重新输入！", vbCritical + vbOKOnly

     Text2SetFocus     '定位光标

     Exit Sub

End If

'首先查询表中是否存在关键字相同的记录

strSQL = "select  from Persons"

strSQL = strSQL & " Where 身份z号='" + Text2Text + "'"

ADOrsOpen strSQL

'如果关键字重复,则退出

If Not ADOrsEOF Then

     MsgBox "该个人信息记录已经存在,不能继续增加", vbCritical + vbOKOnly

     Exit Sub

End If

ADOrs1Open "select  from Persons", , , adLockOptimistic

ADOrs1AddNew

ADOrs1("姓名") = Text1Text

ADOrs1("身份z号") = Text2Text

ADOrs1("工号") = Text3Text

ADOrs1("所属公司") = Text4Text

ADOrs1("部门") = Text5Text

ADOrs1("联系电话") = Text6Text

ADOrs1("联系地址") = Text7Text

ADOrs1Update

user = Text1Text

Text1Text = ""   '初始化文本框控件

Text2Text = ""

Text3Text = ""

Text4Text = ""

Text5Text = ""

Text6Text = ""

Text7Text = ""

Text1SetFocus    '定位光标

MDIForm1StatusBar1Panels(1)Text = "成功添加个人信息:" & user

MsgBox "已成功添加新记录", vbQuestion + vbOKOnly

ADOrsClose      '关闭记录集

ADOrs1Close      '关闭记录集

Set ADOrs = Nothing

Set ADOrs1 = Nothing

End Sub

1创建数据库

选择菜单"外接程序"->"可视化数据管理器"->打开"visData"->文件->"新建"->Microsoft access->选择数据库版本(version 70 mdb)->输入数据库名->点保存按钮->

2创建表

右键点击数据库窗口中的properties->新建表->输入表名并逐一添加字段的名称、类型、大小、缺省值等信息->生成表

public cnn as adodbconnection

public rs as abodbrecordset

dim count as integer

count = 0

set cnn = new adodbconncetion

set rs = new adodbrecordset

cnnopen"连接数据库语句"

rsopen"select from 表 where 性别 = '" & 男 &"' and 适合部门='" & 销售部门 & "'" ,cnn

do while rseof =false

count=count+1

rsmovenext

loop

rsclose

两种办法，一种是 用SQL，另一种是ADO

1、用SQL添加数据：

insert into 表名（字段1，字段2，字段3）

values（值01，值02，值03）

例如：

docmdrunsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"

2、用ADO的办法：

ADO比较复杂，给你一个完整的例子吧：

Dim strSqlfitjc As String

strSqlfitjc = "select from 表"

Set RSfitjc = New ADODBRecordset ‘定义一个ADO连接，连进数据库

RSfitjcOpen strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接

RSfitjcaddnew '添加一个纪录

RSfitjcFields("配件编号") = “style” ‘给每个字段赋值

Update ’储存赋值的新纪录

Close 关闭连接

End With

以上就是关于vb怎么使用vb向数据库写数据全部的内容，包括:vb怎么使用vb向数据库写数据、如何用VB创建mdb数据库、如何用vb *** 作数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！