vb插入数据库
❶ VB如何用ADO向ACCESS数据库插入和修改记录
1、Microsoft Access窗口中，选择文件菜单中的打开选项，打开一个已有的数据库。
❷ VB 向数据库添加数据
第一个问题，存储数据：
使用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
❸ 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 中向数据库插入数据
可以用ADO空间+文本框捆绑数据设计
也可以用普通文本框设计界面，让用户录入信息；然后用代码实现写入：
1.建立ADODB的连接对象
2.连接数据库
3.打开连接对象
4.通过连接对象执行SQL语句（用Insert写入数据）
5.关闭对象。
希望对你能有所帮助。
❺ 急求！！怎样将VB中的数据导入数据库中
先把adodc控件连接到数据库文件里的一个表。
然后代码如下，
adodc1.recordset!字段名1=变量名1
adodc1.recordset!字段名2=变量名2
adodc1.recordset!字段名3=变量名3
adodc1.recordset!字段名4=变量名4
……
……
……
在最后加上一句
adodc1.recordset.update
'更新数据库
❻ 如何在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添加数据到数据库中
在VB中,您可以任意添加主键.只要您在VB中的主键不重复就行了.
而当您的数据更新到数据库后,数据库对主键的操作是由SQL或ACCESS自己分配的.与VB中您添加的主键无关.
当您的数据更新到数据库后,数据库会自动更改为SQL或ACCESS自动适应的主键.
*******************
一般情况下.我们自己定义的主键是用值-1,-2,-3,-4.....来定义的.
❽ 用VB做怎么将Excel数据导入SQL数据库中
用VB做，将Excel数据导入SQL数据库中：
法一:可以试着用VB书写一段调用SQL Server数据库DTS的代码,然后就可以像直接使用DTS进行数据导入一样就行Excel与SQL Server数据之间的迁移了。
方法二:可以用VB来 作EXCEL,然后一条数据一条数据的 入到数据库中,这种方法不 使用,因为VB 作EXCEL是非常慢的,如果数据量太大,很有可能会造成宕机。
❾ 怎样从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如何添加数据库文件，本人菜鸟，最好能详细的说一说！
如果是sql，那就简单了，连接好了用sql语句就可以，具体可以到网上查查，有很多
excel做数据库，就需要用openrowset了
举个简单例子
select * from OPENROWSET('Microsoft.JET.OLEDB.4.0','Excel 4.0;Database=f:\ckqb2.XLS',ckqb2$)
结果是将f盘下ckqb2的excel文件中名为ckqb2的sheet的内容