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 '釋放