vb修改数据库
Ⅰ 如何在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
Ⅱ 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中用DAO方法创建、打开、修改数据库
引用DAO类型库
1、从“工程”菜单中选择“引用”菜单项；
2、在可引用列表框中选择“Microsoft DAO 3.51 Object Library”项。
3、最后“确定”即可
设置DAO数据类型变量
DAO数据类型变量共分成两种：
1、Database变量
对应于Access数据库，通常在模块中被定义为Public全程变量：
Public AccessDBF As Database
'定义数据库对象实例AccessDBF
2、RecordSet变量
对应于Access数据库中的一个表，可定义为全程变量或局部变量，亦可作歼锋为函数参数进行传递：
Dim thePrintTable As RecordSet
'定义一个表对象实例thePrintTable
打开DAO数据类型
1、打开Access的方法
通常可设置一个专门的Public函数用来打开一个Access数据库，并且该函数在启动窗体的Private Sub Form_load ( )过程中被调用，函数定义格式如下：
Public Sub OpenDatabase ( )
Dim sConeect As String
SConnect = ";PWD = 8830428; UID = admin "
'设置打开时的用户名、口令等参数
Set AccessDBF = Nothing
'确认关闭对象实例
Set AccessDBF = WorksPaces (0 ).OpenDatabase (App.Path&&"/ToXls.MDB",False,sConnect)
'打开当前路径的ToXls.MDB数据库
End Sub
2、打开RecordSet的方法
RecordSet遵循即用即开的原则，所以它通常在函数中打开
Set thePrintTable = AcessDBF.OpenRecordSet ( "Table_1",dbOpenSnapshot )
相关的数据操作
数据实际需要对Access表中的记录、字段、数据项进行操作。下列双早判重循环把数据氏睁晌输出到Excel对应的单元格中：
For j = 0 To 2
For I = 0 To 3
ThePrintTable.MoveNext
Excel.Sheet.Range ( Trim ( chr ( 71+j*10+I ) )+"G").Value = thePrintTable.Fields (0)
Next I
Next j
关闭数据库
1、关闭Database
它通常在整个应用程序的最后进行操作，即通常出现在Private Sub Form_unload (Cannel As Interger )过程中。命令格式实例如下：
AccessDBF.Close
2、关闭RecordSet
它遵循用完即关的原则，所以通常出现在函数中。当完成了相关的数据操作后就关闭它，下次再用时再打开即可：
thePrintTable.Close
Ⅳ VB怎么修改数据库指定单元格里的数据
给你一个例子
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Rs.Open "SELECT * FROM 报警记录 where " & Te.Tag & "='" & Text1.Text & "'", Conn
If Rs.RecordCount = 0 Then
MsgBox vbCrLf & "“" & Rs.Fields(0) & "”查找失败！", vbInformation, " 提 示"
Rs.Close
Rs.Open "select * from 报警记录", Conn, adOpenStatic, adLockOptimistic
End If
Set DataGrid1.DataSource = Rs
For Each Col In DataGrid1.Columns '修改列表
If Col.DataField = "序号" Or Col.DataField = "备注" Then Col.Visible = False '隐藏不想显示的字段
Next Col
DataGrid1.Columns(11).Caption = "电压"‘替换显示将数据库里的字段
if Rs.Fields(4)="10" then msgbox "数值过低！"'第5（从0开始）个单元格数值
For I = 0 To 14
DataGrid1.Columns(I).Caption = Space(((DataGrid1.Columns(I).Width - Len(DataGrid1.Columns(I).Caption) * 150) \ 2) \ 150) & DataGrid1.Columns(I).Caption '标题居中
DataGrid1.Columns(I).Alignment = dbgCenter
Next
Ⅵ 如何用vb.net查询、添加、删除、修改数据库(需要很详细的代码)
sQueryString是SQL（增删查改）语句
public
Boolean
ExecSQL(string
sQueryString)
{
SqlConnection
con
=
new
SqlConnection(ConfigurationManager.AppSettings["conStr"]);
con.Open();
SqlCommand
dbCommand
=
new
SqlCommand(sQueryString,
con);
try
{
dbCommand.ExecuteNonQuery();
con.Close();
}
catch
{
con.Close();
return
false;
}
return
true;
}
}
建立一个类，明自己取，然后调用就是了
例如：
类
BC=NEW
类（）；
STRING
ist="INSERT
INTO
XX(1,2,3)VALUES(A,B,C)";
BC.ExecSQL（ist）;
就可以了