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