vb資料庫更新
㈠ vb update更新資料庫，更新很多欄位如何編寫啊
可以用ADO方法
rsCnn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & ";mode=Read|write"
rsTmp.Open "Select * From 時刻段電量 ", rsCnn, adOpenDynamic, adLockBatchOptimistic
With rsTmp
!峰數據 = rsTmp1.Fields(strName(k) & "峰").Value
!平數據 = rsTmp1.Fields(strName(k) & "平").Value
!谷數據 = rsTmp1.Fields(strName(k) & "谷").Value
!總數據 = !峰數據 + !平數據 + !谷數據
.UpdateBatch
End With
Set rsTmp = Nothing
㈡ vb.net中向資料庫寫入數據後如何更新（急，在線等）
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim shkcode1 As String
Dim shimei1 As String
Dim inymd1 As String
Dim sqlstr As String
' Dim dr As DataRow
shkcode1 = DataGridView1.Rows(4).Cells(0).Value
shimei1 = DataGridView1.Rows(4).Cells(1).Value
inymd1 = DataGridView1.Rows(4).Cells(2).Value
sqlstr = " insert into EA_M1施設職員(shkcode,shimei,inymd) values ('" & shkcode1 & "','" & shimei1 & "','" & inymd1 & "')"
Dim connection As New OracleConnection("連接字元串")
Dim cmd As New OracleCommand(sqlstr, connection)
Try
connection.Open()
Dim rows As Integer = cmd.ExecuteNonQuery()
if rows > 0 then
'說明執行成功了.可以做之後的操作
end if
Catch E As System.Data.OracleClient.OracleException
connection.Close()
Throw New Exception(E.Message)
End Try
end sub
ps:建議去學學ADO.Net 不難的.
㈢ vb中怎樣更新access資料庫中一列數據
用一個DO WHILE 循環,如果打開資料庫的數據集為rs,主要語句如下:
數據查詢語句:sql="select c,d from b where d=123"
rs.open sql,conn,1,3
do while not rs.eof
rs("c")=你設定的值
rs.movenext
loop
rs.update
rs.close
㈣ VB更新資料庫
修改的話搜索到後在輸入一句這個就行了
dodc1.Recordset.Fields("LandNo") = "1-2-5-19" '這里可以是變數
如果是添加的話
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("LandNo") = "1-2-5-19"
連接資料庫 和搜索語句就不用寫了吧
㈤ VB 更新資料庫的SQL語句
更新資料庫的SQL語句通過Update。
語法：
UPDATE 表名稱 SET 列名稱 = 新值 WHERE 列名稱 = 某值
示例：
'更新Person表的地址（address）和城市名稱（city），條件是LastName等於Wilson
UPDATEPersonSETAddress='Zhongshan23',City='Nanjing'
WHERELastName='Wilson'
㈥ VB資料庫更新問題
Update格式是不是錯了?
格式:
UPDATE 表名稱 SET 列名稱 = 新值 WHERE 列名稱 = 某值
其中：列名稱 = 新值，不可以這樣使用吧?
T_EmployInfo.FirmCode=T_Firm.FirmCode from T_Firm
提示錯誤是什麼呢？
如果新值來自於另一個表，那麼，應該把數據適配器的查詢結果填充到數據記錄集對象，從而獲得該表的記錄集，用記錄值來實現！
㈦ vb 更新資料庫語句
strsql = "update 余額 from 加油卡 set 余額=余額+" & a & " where 卡號 like '%" & Trim(DataCombo1.Text) & "%'"
前提保證余額和a都是數字型的
㈧ 在VB中如何實現按鈕與資料庫相連接`以及資料庫的自動更新
ADO控制項與資料庫連接代碼如下
Dim
conn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
Private
Sub
Command1_Click()
'插入數據：
If
rs.State
<>
adStateClosed
Then
'檢查記錄集狀態
rs.Close
End
If
rs.Open
"insert
into
T_user(name,age)
values('"
&
txtname.Text
&
"',"
&
txtage
&
")",
conn,
adOpenDynamic,
adLockBatchOptimistic
If
rs.State
<>
adStateClosed
Then
rs.Close
End
If
'更新DataGrid1數據
rs.Open
"select
*
from
T_user",
conn,
adOpenDynamic,
adLockBatchOptimistic
Set
DataGrid1.DataSource
=
rs
End
Sub
Private
Sub
Form_Load()
conn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents
and
Settings\hb\桌面\db1.mdb;Persist
Security
Info=False"
conn.CursorLocation
=
adUseClient
'游標放在客戶端
rs.CursorLocation
=
adUseClient
rs.Open
"select
*
from
T_user",
conn,
adOpenDynamic,
adLockBatchOptimistic
Set
DataGrid1.DataSource
=
rs
End
Sub
Private
Sub
Form_Unload(Cancel
As
Integer)
rs.Close
'釋放
conn.Close
Set
rs
=
Nothing
Set
conn
=
Nothing
End
Sub
㈨ 關於VB資料庫數據實時更新的問題
修改datagrid時,通常加一行代碼更新文本框.還有一種方式用綁定,挺麻煩的,出錯也不好查,不建議使用
㈩ vb怎麼更新資料庫中一條數據
添加： 』下面這句連接資料庫指定表的所有欄位 Adodc1.RecordSource = "select * from 庫存表" 』下面這句添加記錄 Adodc1.Recordset.AddNew 下面4句就是通過4個TEXTBOX控制項輸入欄位的數據，如果是數字類型可以加VAL Adodc1.Recordset.Fields