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
......