vb更新数据库
更新数据库的SQL语句通过Update。
语法：
UPDATE 表名称 SET 列名称 = 新值 WHERE 列名称 = 某值
示例：
'更新Person表的地址（address）和城市名称（city），条件是LastName等于Wilson
UPDATEPersonSETAddress='Zhongshan23',City='Nanjing'
WHERELastName='Wilson'
2. 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
3. 在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
4. vb怎么更新数据库中一条数据
添加： ’下面这句连接数据库指定表的所有字段 Adodc1.RecordSource = "select * from 库存表" ’下面这句添加记录 Adodc1.Recordset.AddNew 下面4句就是通过4个TEXTBOX控件输入字段的数据，如果是数字类型可以加VAL Adodc1.Recordset.Fields