vb中数据保存到数据库中
㈠ 如何将vb中输入的数据自动储存在数据库中
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
cn.Execute "insert into admin (zhanghao,mima) values ('" & Text1.Text & "','" & Text2.Text & "')"
cn.Close
MsgBox "保存完毕！"
End Sub
注意要在工程中引用ADO。
㈡ 在VB中怎么把文字保存到数据库中
你首先要建一个数据库,确定需要的字段,用
Access数据库
就可以了,不过你要记事本很多的文字,如少于50个,可以用普通的文本字段,要超过50个,就要用备注字段.
在vb里用adodc控件连接数据库进行操作,
㈢ vb怎么把数据保存到数据库的代码
最后将你的代码贴出来，一般GRID都是和一些数据组件进行绑定的，如果有绑定的话，直接Update就行了。
如果你的“选择”没有跟组件绑定，可以直接对数据集进行操作。
例:ds
as
Adodb.RecordSet
...........
ds.fields("选择")="A"
'选择哪个值，就要看你用什么控件或者从哪里取值
ds.Update
'提交
㈣ VB中如何讲数据保存到数据库中
Private Sub command1_click()
conn.Execute "insert into 表1 (字段2) values ('" & Text2.Text & "')"
conn.Execute "insert into 表1 (字段1) values ('" & Text1.Text & "')"
End Sub
㈤ VB中将查询记录自动保存到数据库中
假设是本地数据库，简单的方法是采用Data控件：
Data1.DatabaseName = "数据库文件标识符" '连接数据库文件，带磁盘路径
Data1.RecordSource = "数据表名"'连接数据表
Data1.Refresh'刷新记录集
Data1.Recordset.AddNew '在记录集末尾添加一条空记录
Data1.Recordset.Fields("字段名1") = XXX1'将字段值添加（替换）到空记录
Data1.Recordset.Fields("字段名1") = XXX2'将字段值添加（替换）到空记录
Data1.Recordset.Update '必要的更新操作
其中：XXX1和XXX2可以是与相关字段的数据类型一致的任意表达式．
㈥ 在VB中添加数据，怎么样保存到数据库中
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
cn.Execute "insert into admin (zhanghao,mima) values ('" & Text1.Text & "','" & Text2.Text & "')"
cn.Close
MsgBox "保存完毕！"
End Sub
注意要在工程中引用ADO
㈦ vb 保存数据到数据库中
看看你的代码。。既然在listbox已经添加，就增加一个数据保存就行了的。
㈧ VB中怎样保存数据（保存在VB数据库里）
方法一：在数据库中建一个表，把当前最后的输入值保存在该表里，，每次执行程序都从数据库里读取，
方法二：在程序中建一个文本文件或xml文件，每次都写入文件中，下次从文件中读取
方法三：把输入值存入注册表的某个位置，下次从注册表里读取！
㈨ VB如何保存数据库
增加一判断，如果bb段有相同数据，你就读取aa段的数据并保存在一变量XXX中，在insert时同时写入XXX到aa段。
代码：
dim xxx$
rs.movefirst
do until rs.eof
if rs.fields("bb")=text1 then xxx=rs.fields("aa"):exit do
loop
if xxx="" then
sql1 = "insert into xxx(bb)values ('" & Text1.Text & "')"
else
sql1= "insert into xxx(aa,bb)values ('" & xxx & "'" ,"'" & Text1.Text & "')"
endif
......
㈩ 如何让vb将数据保存在数据库中
在VB菜单：工程->引用 里面找 Microsoft ActiveX Data Object 2.8 Library,并勾选上
Dim cn As New ADODB.Connection'声明一个连接对象
Dim rst As New ADODB.Recordset'声明一个记录集对象
Dim SqlStr As String'声明一个字符串变量
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
'上面是连接到数据库
SqlStr = "Select * From 用户表"
rst.CursorLocation = adUseClient'设置游标位置
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
rst.Fields("用户名称").Value = Text1.Text'修改记录集中第一条记录"用户名称"字段的数值
rst.Fields("用户口令").Value = Text2.Text'修改记录集中第一条记录"用户口令"字段的数值
rst.UpdateBatch '提交，就是写到硬盘的数据库文件
rst.Close '关闭记录集
Set rst = Nothing '释放
cn.Close '关闭连接
Set cn = Nothing '释放