vb数据库修改
A. vb怎么修改数据库资料
恩，form3 里的 Call loumou(X_sql) 确实错了。没测试，望能原谅;-)
adodb怎么说呢！！ 它是vb的一个数据对象，而adodc是vb的一个控件。他们俩其实是一样的。只是adodb使用起来比较灵活。adodc使用起来比较方便。各有各的优点。
$在这里表示 字符型 变量 ，它相当于 as string ,另外还有 % 表示 as integer ，& 表示 as long ,等等。。。这些都是常用的。
Public Sub loumou(ByVal sql$)，这是一个自定义过程，用来给你的那些全局变量赋值的。loumou是我的网络名O(∩_∩)O~，你可以换成你的o(╯□╰)o（要记得都换哦，form1,2,3里面有的都换才行）。当然在是不提倡的，最好还是给它起个有意义的名字。 ()里面是参数，ByVal sql$ 相当于 ByVal sql as string,当你需要改变adodc1的recordset时，传一个sql 语句给它就行了。
call 在这里是调用的意思，没有什么特别的用法。它其实可以省略。
Call loumou(X_sql) 可以写成 loumou x_sql
还不明白的再联系。⊙﹏⊙b
===========================================================
研究了半天才发现你 form2 哪里用的是form1的变量，那是旧的数据，当然的不同步了
要改的话，我是这样改的，与你的代码基本一样，你应该看得懂吧。
我只是改了而已，没有测试，因为我没有你的数据库。你试试看吧。
'=================form1的代码这样写========================
Public p_sno$, p_sname$, p_syear$, p_classname$, p_address$, p_postcode$, p_mobile$, p_email$, p_qq$
Dim sno$, pass$
Private Sub Command1_Click()
sno = user.Text
pass = Password.Text
Dim sql As String
sql = "select * from student where sno='" & sno & "' and password='" & pass & "'"
Call loumou(sql)
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "欢迎登陆," & Adodc1.Recordset(1).Value
Form2.Show
Unload Form1
Else
MsgBox "账号或密码错误", , "系统提示"
user.Text = ""
Password.Text = ""
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Call Command1_Click
End Sub
Public Sub loumou(ByVal sql$)
Adodc1.RecordSource = sql
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
p_sno = Adodc1.Recordset(0) & ""
p_sname = Adodc1.Recordset(1) & ""
p_syear = Adodc1.Recordset(2) & ""
p_classname = Adodc1.Recordset(3) & ""
p_address = Adodc1.Recordset(4) & ""
p_postcode = Adodc1.Recordset(5) & ""
p_mobile = Adodc1.Recordset(6) & ""
p_email = Adodc1.Recordset(7) & ""
p_qq = Adodc1.Recordset(8) & ""
End If
End Sub
'=========== form2 的代码不变===========================
'=========== form3 的代码这样写===========================
Private Sub Command1_Click()
Dim X_sql As String
X_sql = "update student set address='" & address & "',postcode='" & postcode & "',mobile='" & mobile & "',email='" & email & "',qq='" & qq & "' where sno='" & Form1.p_sno & "'"
Dim con As New ADODB.Connection
con.ConnectionString = Adodc1.ConnectionString
con.Open
con.Execute X_sql '用adodb 执行 update 语句，因为我也搞不定adodc
con.Close
Set con = Nothing
X_sql = "select * from student where sno='" & Form1.p_sno & "'"
Call form1.loumou(X_sql)
Unload Form1
Unload Form3
Form2.Show
End Sub
B. vb6.0 修改数据库数据
DimconnAsObject
Setconn=CreateObject("adodb.connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"成绩.mdb"
conn.Execute"update[高二学生]set[数学成绩]=90where[姓名]='李明'"
conn.Close
Setconn=Nothing
MsgBox"数据已修改！"
C. 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，这样就可以保证数据的唯一性。
D. VB中怎么对数据库进行添加删除修改的操作
Private Sub Command1_Click()
For i = 0 To 5
Text1(i).Text = ""
Next i
Adodc1.RecordSource = "select * from " & s1 & " order by 编号"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.MoveLast
Text1(0).Text = "G" + Format((Val(Right(Trim(Adodc1.Recordset.Fields("编号")), 4)) + 1), "0000")
Else
Text1(0).Text = "G0001"
End If
End Sub
Private Sub Command2_Click()
If Adodc1.Recordset.EOF = False Then
c = MsgBox("您确认要删除该记录吗？", vbOKCancel, "删除提示信息")
If c = vbOK Then
Adodc1.Recordset.Delete
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
End If
Else
MsgBox "当前数据库中没有可删除的数据记录", vbOKOnly, "提示信息"
End If
End Sub
Private Sub Command3_Click()
If Text1(0).Text = "" Or Text1(1).Text = "" Then
MsgBox "请选择需要改动的记录信息！", vbOKOnly, "错误提示"
Else
c = MsgBox("确定要修改该记录吗？", vbOKCancel, "提示信息")
If c = vbOK Then '如果确认修改的话进行修改操作
If Text1(1).Text = "" Then
MsgBox "姓名不能为空值!", 48, "修改信息提示"
Else
'连接所要修改的数据库
con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
'开始修改数据库
con.Execute ("UPDATE " & s1 & " SET 姓名='" & Text1(1).Text & "',年龄=" & Text1(2).Text & ",学历='" & Text1(3).Text & "',年级=" & Text1(4).Text & ", 入学时间='" & Text1(5).Text & "' where 编号='" & Trim(Text1(0)) & "'")
MsgBox "信息修改成功", 64, "修改信息提示"
con.Close
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
End If
End If
End If
End Sub
Private Sub Command4_Click()
Adodc1.RecordSource = "select * from 人员表 where 编号='" + Text1(0).Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
MsgBox "该信息已存在，信息保存不成功", 64, "保存信息提示"
Else
cc = MsgBox("您确定要保存该信息吗？", 33, "信息保存提示")
If cc = vbOK Then
If Text1(1).Text = "" Or Text1(2).Text = "" Or Text1(3).Text = "" Or Text1(4).Text = "" Or Text1(5).Text = "" Then
MsgBox "请确认，人员的姓名、年龄、学历、年级和入学时间不能为空", 48, "保存信息提示"
Else
con.Open "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
con.Execute ("insert into 人员表 values('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Text1(2).Text & "','" & Text1(3).Text & "','" & Text1(4).Text & "', '" & Text1(5).Text & "')")
MsgBox "信息修改成功", 64, "修改信息提示"
con.Close
Adodc1.RecordSource = "select * from 人员表"
Adodc1.Refresh
End If
Else
End If
End If
Set DataGrid1.DataSource = Adodc1
End Sub
给你段代码参考下，这个就是添加，删除，修改的代码。不过我用的是SQL2000你要吧代码稍微修改一下的，呵呵，祝你成功！
E. VB修改数据库
'不知道dtpicker是不是这个属性，也许是dtpicker.Enabled =False，反正就是判断为灰色时。
If DTP1.Value = Enabled Then
res!来电时版间权 = DTP1.Value
Else
res!来电时间 = -109205
End If
If DTP2.Value = Enabled Then
res!去电时间 = DTP2.Value
Else
res!f去电时间 = -109205
End If
’把代码加在这个地方。
F. VB数据库添加和修改代码
你参考一下，应该对你有用
DimcnAsNewADODB.Connection
Dimrs1AsNewADODB.Recordset,rs2AsNewADODB.Recordset
DimrsAsNewADODB.Recordset
PrivateSubCmdadd_Click(IndexAsInteger)
Text1(0).Enabled=True
Text1(0).SetFocus
Data1.Recordset.AddNew'数据库新增命令
cmdfirst(0).Enabled=False'设定各个控件的可用属性
cmdpre(1).Enabled=False
cmdnext(2).Enabled=False
cmdlast(3).Enabled=False
Cmdadd(0).Enabled=False
cmddelete.Enabled=False
cmdsave(5).Enabled=True
cmdmend(4).Enabled=False
Text1(6).Text=Data
EndSub
PrivateSubcmddelete_Click()
DimiAsInteger
i=MsgBox("真的要删除当前记录吗？",vbYesNo,"警告")'数据库的删除警告和相应命令
Ifi=6Then
Data1.Recordset.Delete
Data1.Refresh
CallForm_Load
EndIf
EndSub
PrivateSubcmdexit_Click(IndexAsInteger)
FormMain.Show
UnloadMe
EndSub
PrivateSubcmdfirst_Click(IndexAsInteger)
IfNotData1.Recordset.BOFThen
Data1.Recordset.MoveFirst'数据库移动到第一条
EndIf
EndSub
PrivateSubcmdlast_Click(IndexAsInteger)
IfNotData1.Recordset.BOFThen
Data1.Recordset.MoveLast'数据库移动到最后一条
EndIf
EndSub
PrivateSubcmdmend_Click(IndexAsInteger)
Text1(0).Enabled=True'设定各控件属性
cmdsave(5).Enabled=True
cmdmend(4).Enabled=False
EndSub
PrivateSubcmdnext_Click(IndexAsInteger)
IfData1.Recordset.RecordCount<>0Then
IfData1.Recordset.EOF=FalseThenData1.Recordset.MoveNext'数据库移动到下一条
IfData1.Recordset.EOF=TrueThen'判断数据库是否为最后一条
Data1.Recordset.MoveLast
MsgBox("已经是最后一条")
EndIf
EndIf
EndSub
PrivateSubcmdpre_Click(IndexAsInteger)
IfData1.Recordset.RecordCount<>0Then
IfData1.Recordset.BOF=FalseThen
Data1.Recordset.MovePrevious'数据库移动到上一条
EndIf
IfData1.Recordset.BOF=TrueThen'判断数据库是否为第一条
Data1.Recordset.MoveFirst
MsgBox("已经是第一条")
EndIf
EndIf
EndSub
PrivateSubcmdsave_Click(IndexAsInteger)
IfText1(0).Text=""OrText1(1).Text=""OrText1(2).Text=""OrText1(3).Text=""OrText1(4).Text=""OrText1(5).Text=""OrText1(6).Text=""Then
MsgBox"请完善数据！",,"提示"'检测文本框中是否为空
ExitSub
EndIf
'Data1.Recordset.MoveLast
Data1.UpdateRecord'保存更新数据库
MsgBox"数据保存成功！",,"提示"
cmdfirst(0).Enabled=True'设定个控件属性
cmdpre(1).Enabled=True
cmdnext(2).Enabled=True
cmdlast(3).Enabled=True
cmddelete.Enabled=True
cmdmend(4).Enabled=True
CallForm_Load
EndSub
PrivateSubComsx_Click()
CallForm_Load'点击刷新，重新加载界面
EndSub
PrivateSubForm_Load()
DimiAsInteger
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="_
&App.Path&"Airplane.mdb;PersistSecurityInfo=False"'打开数据库
rs1.Open"Airplane",cn,adOpenKeyset,adLockOptimistic'打开数据库中的表文件
Ifrs1.BOFThen
MsgBox"已经没有数据"'判断有没有数据
Else
SetMSHFlexGrid1.DataSource=rs1'数据在MSHFlexGrid1控件中显示
MSHFlexGrid1.ColWidth(0)=100
MSHFlexGrid1.ColWidth(6)=2200
Fori=1Tors1.RecordCount
MSHFlexGrid1.RowHeight(i)=1500
Nexti
EndIf
rs1.Close
'SetDataGrid1.DataSource=Adodc1
Cmdadd(0).Enabled=True
cmdsave(5).Enabled=False
Text1(0).Enabled=False
cmdfirst(0).Enabled=True'设定个控件属性
cmdpre(1).Enabled=True
cmdnext(2).Enabled=True
cmdlast(3).Enabled=True
cmddelete.Enabled=True
cmdmend(4).Enabled=True
Data1.Visible=False
cn.Close
EndSub
G. vb数据库中，如何对某一字段内的数据进行修改
使用Data控件
内在的 Data 控件通过使用 Microsoft 的 Jet 数据库引擎来实现数据访问 –与 Microsoft Access 所用的数据库引擎相同。这一技术使用户可以无缝地访问很多标准的数据库格式，而且使用户无需编写任何代码就可以创建数据识别应用程序。这种内在的 Data 控件最适合较小的（桌面）数据库，诸如 Access 和 ISAM 数据库。
可以使用这种内在的 Data 控件创建应用程序，来显示、编辑和更新来自多种已有的数据库的信息。这些数据库包括 Microsoft Access、Btrieve、dBASE、Microsoft FoxPro?⒁约_ Paradox。也可以使用这种控件如同访问真正的数据库一样来访问 Microsoft Excel、Lotus 1-2-3、以及标准的 ASCII 文本文件。此外，Data 控件也可以访问和操作远程的开放式数据库连接 (ODBC) 数据库，诸如 Microsoft SQL Server 以及 Oracle。
注意 Data 控件和 Remote Data 控件两者都包含在 Visual Basic 中，以提供向后兼容。不过，由于 ActiveX 数据对象 (ADO) 的适应性更广，因此建议使用 ADO Data 控件来创建新的数据库应用程序。详细信息请参阅“使用 ADO Data 控件”。
Data 控件、Remote Data 控件、以及 ADO Data 控件在概念上很相似： 三者都是将一个数据源连接到一个数据绑定控件的“数据控件”。三者也都共享相同的外观—一组共四个按扭，使用户可以直接到达记录集的开始、记录集的末尾、以及在记录集中向前或向后翻卷。
使用 Data 控件创建一个简单的数据库应用程序
要使用 Data 控件创建一个简单的数据库应用程序
在窗体上放置一个 Data 控件。Data 控件是一个内在的控件，因而总是可用的。
单击并选定这个 Data 控件，按 F4 键显示“属性”窗口。
在“属性”窗口中，将“连接”属性设置为想要使用的数据库类型。
在“属性”窗口中，将“DatabaseName”属性设置为想要连接的数据库的文件或目录名称。
在“属性”窗口中，将“记录源”属性设置为想要访问的数据库表的名称。
在该窗体上放置一个文本框控件。
单击并选定这个 TextBox 控件，并在其“属性”窗口中将“数据源”属性设置为该 Data 控件。
在这个“属性”窗口中，将“数据字段”属性设置为在该数据库中想要察看或修改的字段的名称。
对其它的每一个想要访问的字段，重复第 6、7、8 步。
按 F5 键运行这个应用程序。
设置 Data 控件与数据相关的属性
下述与数据相关的属性可以在设计时设置。这个列表给出了设置这些属性的一种逻辑顺序：
注意 数据库技术是一门复杂的科学，下面的这些建议并不意味着要当作规则来使用。
RecordsetType — RecordsetType 属性决定记录集是一个表、一个动态集 (dynaset)、还是一个快照。这个选择将影响哪些记录集属性是可用的。例如，快照类型的记录集与 dynaset 记录集相比具有更多的限制。
DefaultType — DefaultType 属性指定所使用的是 JET 工作空间，还是 ODBCDirect 工作空间。
DefaultCursorType — DefaultCursorType 属性决定光标的位置。可以使用 ODBC 驱动程序来决定光标的位置，或者指定服务器或 ODBC 光标。只有当使用 ODBCDirect 工作空间时，DefaultCursorType 属性才是有效的。
Exclusive — 决定该数据是用于单用户环境，还是多用户环境。
Options — 这个属性决定记录集的特征。例如，在一个多用户环境中，可以设置 Options 属性来禁止他人所做的更改。
BOFAction、EOFAction — 这两个属性决定当这个控件位于光标的开始或末尾时的行为。可能的选择包括停留在开始或末尾、移动到第一个或最后一个记录、或者添加一个新的记录（只有在末尾时）。
H. vb修改数据库数据
Set RS = DB.OpenRecordset("select * from stu_cj ")
加where条件
Set RS = DB.OpenRecordset("select * from stu_cj where SID = DBGrid1.Columns(0))
I. vb如何修改数据库内的指定数据
使用Data控件
内在的 Data 控件通过使用 Microsoft 的 Jet 数据库引擎来实现数据访问 –与 Microsoft Access 所用的数回据库引擎相同。这一技术使用户答可以无缝地访问很多标准的数据库格式，而且使用户无需编写任何代码就可以创建数据识别应用程序。这种内在的 Data 控件最适合较小的（桌面）数据库，诸如 Access 和 ISAM 数据库。
可以使用这种内在的 Data 控件创建应用程序，来显示、编辑和更新来自多种已有的数据库的信息。这些数据库包括 Microsoft Access、Btrieve、dBASE、Microsoft FoxPro