vb保存数据数据库

① vb怎么把数据保存到数据库的代码

最后将你的代码贴出来，一般GRID都是和一些数据组件进行绑定的，如果有绑定的话，直接Update就行了。
如果你的“选择”没有跟组件绑定，可以直接对数据集进行操作。
例:ds
as
Adodb.RecordSet
...........
ds.fields("选择")="A"
'选择哪个值，就要看你用什么控件或者从哪里取值
ds.Update
'提交

② VB保存数据库

先判断数据库里的A和B是否重复
SELECT * FROM s where a=a值 or b=b值
如果Rsa.Requery后，Rsa.RecordCount = 0 即 a值和b值是唯一的
然后你就可以添加了：
INSERT INTO s (a,b,c) VALUES (a值, b值,c值)

③ 如何让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 '释放

④ vb 保存数据到数据库中

看看你的代码。。既然在listbox已经添加，就增加一个数据保存就行了的。

⑤ vb写入数据库

哦简单 你在更新完成的代码后边 加上 insertrow 插入新行(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中输入的数据自动储存在数据库中

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中如何讲数据保存到数据库中

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如何保存数据库

增加一判断，如果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
......