vb插入数据库数据

‘壹’ 怎样用VB对access数据库进行数据添加

两种办法，一种是 用sql，另一种是ADO
1、用SQL添加数据：
insert into 表名（字段1，字段2，字段3）
values（值01，值02，值03）
例如：
docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"
2、用ADO的办法：
ADO比较复杂，给你一个完整的例子吧：

Dim strSqlfitjc As String
strSqlfitjc = "select * from *表"
Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库
RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接
RSfitjc.addnew '添加一个纪录
RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值
.Update ’储存赋值的新纪录
.Close 关闭连接
End With

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

写一个insert语句
dim sSQL as string

sSQL="insert into tablename (field1,field2) value (value1,value2)"

conn.exceute sSQL

‘叁’ 怎样从vb中向数据库里添加数据

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString="" '数据存放路径
conn.Open

Dim sql As String
sql="update 表名 set name='"& Text1.text &"',sex='"& Text2.text &"',phone='"& Text3.text &"'"
rs.open sql,conn,3,3
rs.Close
conn.Close
Text1是姓名文本框，Text2是性别文本框，Text3是电话号码文本框。要注意我写的电话号码是字符型的。希望能帮到你。最好不要插入，更新比较好。

‘肆’ vb怎么连接数据库写入数据

'在使用前需要先安装MySql的驱动，进行正确配置
'注意：必须给出正确的服务器名、数据库名、表名、数据库连接的用户名、密码
Option Explicit
Dim Cnn As ADODB.Connection '定义ADO连接对象
Dim Records As ADODB.Recordset '定义ADO记录集对象
'连接到数据库
Function CnnOpen(ByVal ServerName As String, ByVal DBName As String, ByVal TblName As String, ByVal User As String, ByVal PWD As String) '服务器名或IP、数据库名、登录用户、密码
Dim CnnStr As String '定义连接字符串
Set Cnn = CreateObject("ADODB.Connection") '创建ADO连接对象
Cnn.CommandTimeout = 15 '设置超时时间
CnnStr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & ServerName & ";Database=" & DBName & ";Uid=" & User & ";Pwd=" & PWD & ";Stmt=set names GBK" '
Cnn.ConnectionString = CnnStr
Cnn.Open
End Function
'关闭连接
Function CnnClose()
If Cnn.State = 1 Then
Cnn.Close
End If
End Function
'把Excel写入MySql中的数据库
Function InsertToMySql(ByVal SheetName As String, ByVal TblName As String)
Dim SqlStr As String
Dim i, j As Integer
Dim Columns, Rows As Integer
Columns = VBAProject.func_public.GetTotalColumns(SheetName)
Rows = VBAProject.func_public.GetTotalRows(SheetName)
Set Records = CreateObject("ADODB.recordset")
'取得结果集并插入数据到数据库
Set Records = CreateObject("ADODB.Recordset")
'以下语句提供了插入思路，我只是把单条记录的插入方式改为循环，以把所有的记录添加到表中
'rs.Open "insert into newtable values('" & ActiveSheet.Cells(i, 1).Value & "'," & "'" & ActiveSheet.Cells(i, 2).Value & "')", cnn, 0
For i = 2 To Rows
SqlStr = "INSERT INTO " & TblName & " values('" & Sheets(SheetName).Cells(i, 1).Value & "'" '注意：" values('"，字母“v”之前是有空格的！！！
For j = 2 To Columns
SqlStr = SqlStr & ",'" & Sheets(SheetName).Cells(i, j).Value & "'"
Next
SqlStr = SqlStr & ")"
Set Records = Cnn.Execute(SqlStr) 'rs.Open SqlStr, cnn, 0 不能用这条语句实现！！！
Next
MsgBox "Insert!", vbOKOnly, "Excel To MySql"
End Function
'清除对象
Function ClearObj()
Set Cnn = Nothing
Set Records = Nothing
End Function

‘伍’ VB中向数据库插入一行数据

Dim sql As String
sql = "select * from Teacher"
'这句有问题，肯定是修改第一行数据，应该是
sql = "select * from Teacher Order BY ID Desc"
Set rs = exesql(sql)
’在这里必须添加下面的语句：
rs.AddNew '新增数据
rs.Fields("管理员姓名") = Trim(Text1.Text)
rs.Fields("工号") = Trim(Text2.Text)
rs.Fields("管理员密码") = Trim(Text19.Text)
rs.Fields("性别") = Trim(Text3.Text)
rs.Fields("联系方式") = Trim(Text4.Text)
rs.Fields("家庭住址") = Trim(Text5.Text)
rs.Update
rs.Close

另外，我认为以下语句没有任何意义，不如删除：
rs.Fields("管理员姓名") = ""
rs.Fields("工号") = ""
rs.Fields("管理员密码") = ""
rs.Fields("性别") = ""
rs.Fields("联系方式") = ""
rs.Fields("家庭住址") = ""

‘陆’ VB如何用ADO向ACCESS数据库插入和修改记录

1、Microsoft Access窗口中，选择文件菜单中的打开选项，打开一个已有的数据库。

‘柒’ 如何在VB中实现向ACCESS数据库添加数据

以下代码能使用的前提是库引用、和数据库连接代码正确:
两种办法，一种是 用SQL，另一种是ADO
1、用SQL添加数据：
insert into 表名（字段1，字段2，字段3）
values（值01，值02，值03）
例如：
docmd.runsql"insert into EmpTable(Name,age,Duty,Salary) values('王明',35,'外贸总监',12500)"
2、用ADO的办法：
ADO比较复杂，给你一个完整的例子吧：
Dim strSqlfitjc As String
strSqlfitjc = "select * from *表"
Set RSfitjc = New ADODB.Recordset ‘定义一个ADO连接，连进数据库
RSfitjc.Open strSqlfitjc, cn, adOpenKeyset, adLockOptimistic ’打开连接
RSfitjc.addnew '添加一个纪录
RSfitjc.Fields("配件编号") = “style” ‘给每个字段赋值
.Update ’储存赋值的新纪录
.Close 关闭连接
End With

‘捌’ 急求！！怎样将VB中的数据导入数据库中

先把adodc控件连接到数据库文件里的一个表。
然后代码如下，
adodc1.recordset!字段名1=变量名1
adodc1.recordset!字段名2=变量名2
adodc1.recordset!字段名3=变量名3
adodc1.recordset!字段名4=变量名4
……
……
……
在最后加上一句
adodc1.recordset.update
'更新数据库

‘玖’ vb 中向数据库插入数据

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

也可以用普通文本框设计界面，让用户录入信息；然后用代码实现写入：
1.建立ADODB的连接对象
2.连接数据库
3.打开连接对象
4.通过连接对象执行SQL语句（用Insert写入数据）
5.关闭对象。
希望对你能有所帮助。

‘拾’ 关于VB向数据库中添加数据

Dim
Canshu
as
String
Canshu
=
Label1.Caption
&
":
"
&
Text1.Text
&
"
"
&
Label2.Caption
&
":
"
&
Text2.Text
将Canshu变量赋值给数据表的参数字段，写如数据表其它按操作数据库语言写。