vb修改数据库数据,vb中sql修改数据库记录
VB怎么样修改数据库中记录的值
楼上的道友的方法中：
sSQL="update
table
set
field=20"
要改为：
sSQL="update
table
set
field1=20，...，field2=20
where
id=3"
但是如果你的数据库中没有记录3就会出错。
还有一种方法,用recordset来处理：
dim
cn
as
new
adodb.connection
dim
rs
as
new
adodb.recordset
rs.open
"select
*
from
数据库
where
id=3",adOpenDynamic,
adLockOptimistic,
-1
if
not
rs.eof
then
rs("你要修改的字段1")="具体值1"
...
rs("你要修改的字段n")="具体值n"
rs.update
end
if
rs.close
我在设计时一般都是这样，虽然麻烦些但基本不会出错，还有就是你在设计数据库时最好要加上一个ID，这样就可以保证数据的唯一性。
在vb连接了数据库之后，如何修改库中表的某一内容？求代码
一、连接数据库之后，还要打开需要进行修改的数据表。建立相应的SQL语句
strSql="select
*
from
table
"(也可加上条件判断where语句)
rs.Open
strSql,con,adOpenDynamic,adLockOptimistic
rs.Fields("这里写上你要修改的字段名称")＝修改后的信息
………………类推
rs.Update
二、可直接使用Update
SQL语句进行修改
strSql="Update
table(表名）
set
要修改的字段名称1=修改后的信息1,要修改的字段名称2=修改后的信息2,……等等"
con.Execute
即可，试试吧。
VB怎么修改数据库数据
首先实例化
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
要更新的字段
sql = "update 表名 set [ID]='" txtID.Text "',...."
更新数据库
cnn.Execute sql
rst.UpdateBatch
以上回答你满意么？
VB如何用ADO向ACCESS数据库插入和修改记录?
1、Microsoft Access窗口中，选择文件菜单中的打开选项，打开一个已有的数据库。
2、数据库中有两张表格，如下图所示。
3、数据库中，表格学生信息是课程成绩的子表。
4、如果直接在子表中插入记录，会提示不能添加或修改。
5、其实，只需在主表中，插入相关的主键和记录。
6、接着，就可以在子表中插入相关记录了。
7、如果要在子表中插入字段，只需选择单击以添加选项。
8、新增字段后，输入字段名即可。
用vb修改access数据库中的数据
先说点儿别的：
建议不要使用隐式类型转换。
写明确
rs!score
=
Val(Text1.Text)
另外，Do
Loop
用的有点多余。
直接
rs.Move
List1.ListIndex
1
就可以了。
参考：
即使真的要遍历，在已知循环次数的情况下应优先使用
For
循环。
可以直接显式的Update单个数据：
rs.Update
score
val(Text1.Text)
如果使用了事务处理，在Update后应使用
CommitTrans
方法。
在程序结尾处，应执行
rs.Close
方法。
如何在VB6.0数据库中修改某项数据
ADO+DataGrid1例子先点击DataGrid1要修改的数据项,调用DataGrid1_click事件，把点击该项数据在Textbox中显示出来（运行状态下）DataGrild_click()Text2
=
Adodc1.Recordset(7)
Text3
=
Adodc1.Recordset(9)
Text4
=
Adodc1.Recordset(10)
Text5
=
Adodc1.Recordset(3)然后在Textbox中修改数据后，点击"保存"按扭
执行保存command_save
click()Adodc1.Recordset(11)
=
DTPicker1.Value
Adodc1.Recordset(1)
=
Text1.Text
Adodc1.Recordset(6)
=
DTPicker2.Value
Adodc1.Recordset(7)
=
Text2.Text
Adodc1.Recordset(8)
=
Text_taobiao.Text
Adodc1.Recordset(9)
=
Text3.Text
Adodc1.Recordset.UpdateBatch
adAffectAllChapters添加new_click()Adodc1.Recordset.AddNew
Adodc1.Recordset(0)
=
Combo1.Text
Adodc1.Recordset(1)
=
Text_name.Text
Adodc1.Recordset(2)
=
Combo__kh_name.Text
Adodc1.Recordset(3)
=
Combo_xd.Text
Adodc1.Recordset(4)
=
Combo_tel.TextAdodc1.Recordset.UpdateBatch