vb修改数据库数据（vb如何获取数据库的数据，并修改）

本文目录

• vb如何获取数据库的数据，并修改
• vb如何修改数据库内的指定数据
• 如何在VB6.0数据库中修改某项数据
• vb怎么修改数据库资料
• VB怎么修改数据库数据
• vb.net如何实现修改数据库中的数据
• VB怎么样修改数据库中记录的值
• VB怎么修改数据库指定单元格里的数据
• 在vb连接了数据库之后，如何修改库中表的某一内容求代码
• 用vb修改access数据库中的数据

vb如何获取数据库的数据，并修改

VB可通过结构化查询语言(SQL)访问数据库。 下面帮你写一个简单的过程,将学号以参数传给该过程: Private Sub editmark(num as Integer) ’声明一个记录集 Dim rs As New ADODB.Recordset ’定义一个SQL查询串 SQLStr = "select * from student where id=" & num ’执行查询 rs.Open SQLStr, Conn, 3, 2 If Not rs.EOF Then rs("mark")=rs("mark")-10 end if ’更新数据库 rs.update End Sub -------------------------------------------------------------- 补充: 1、对于Conn提问者肯定明白，因为提问者已经说明连接部分可以忽略； 2、对于rs("mark")=rs("mark")-10 是可行的，因为通过过程参数的传递记录已经定位在某条记录上，还考虑什么转移； 3、我们回答提问者的问题应尽量简单可行，说明问题即可，无需长篇大论让提问者一头雾水，长篇大论就是“敬业”吗？ -------------------------------------------------------------- 最后补充： 没有关系，我们是在讨论问题嘛！ 其实,对于“vb操作数据库”我相信不是我们在这里举一个简单的例子能说透的。我只是想通过这个简单的例子（越简单越易让提问者搞懂），告诉提问者用SQL可以访问并操作数据库，至于具体许多细节需要提问者熟悉一下SQL和VB提供的ADO，我想这也是提问者的真实意图。 另外，关于rs("mark")=rs("mark")-10在这个例子中肯定是可行的,因为学生的id肯定是唯一的（应该是数据表student的主键）,不会有重复的id。

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 — 这两个属性决定当这个控件位于光标的开始或末尾时的行为。可能的选择包括停留在开始或末尾、移动到第一个或最后一个记录、或者添加一个新的记录（只有在末尾时）。 参考资料：MSDN

如何在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_saveclick()Adodc1.Recordset(11)=DTPicker1.ValueAdodc1.Recordset(1)=Text1.TextAdodc1.Recordset(6)=DTPicker2.ValueAdodc1.Recordset(7)=Text2.TextAdodc1.Recordset(8)=Text_taobiao.TextAdodc1.Recordset(9)=Text3.TextAdodc1.Recordset.UpdateBatchadAffectAllChapters添加new_click()Adodc1.Recordset.AddNewAdodc1.Recordset(0)=Combo1.TextAdodc1.Recordset(1)=Text_name.TextAdodc1.Recordset(2)=Combo__kh_name.TextAdodc1.Recordset(3)=Combo_xd.TextAdodc1.Recordset(4)=Combo_tel.TextAdodc1.Recordset.UpdateBatch

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 IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call Command1_ClickEnd SubPublic 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 IfEnd 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.ShowEnd Sub

VB怎么修改数据库数据

首先实例化Set cnn = New ADODB.ConnectionSet rst = New ADODB.Recordset要更新的字段sql = "update 表名 set =’" & txtID.Text & "’,...."更新数据库cnn.Execute sqlrst.UpdateBatch以上回答你满意么？

vb.net如何实现修改数据库中的数据

点击修改按钮以后，相对的数据显示到 信息显示 窗口的相对TextBox  的代码如下：

信息显示.TextBox1.Text = DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString’中文姓名为例，其他的跟这个一样。信息显示.ShowDialog()

完成修改的SQL代码如下：

UPDATE 表名 SET Name_CN=’新值’, Name_EN=’新值’ WHERE 列名=条件

VB怎么样修改数据库中记录的值

楼上的道友的方法中：sSQL="updatetablesetfield=20"要改为：sSQL="updatetablesetfield1=20，...，field2=20whereid=3"但是如果你的数据库中没有记录3就会出错。还有一种方法,用recordset来处理：dimcnasnewadodb.connectiondimrsasnewadodb.recordsetrs.open"select*from数据库whereid=3",adOpenDynamic,adLockOptimistic,-1ifnotrs.eofthenrs("你要修改的字段1")="具体值1"...rs("你要修改的字段n")="具体值n"rs.updateendifrs.close我在设计时一般都是这样，虽然麻烦些但基本不会出错，还有就是你在设计数据库时最好要加上一个ID，这样就可以保证数据的唯一性。

VB怎么修改数据库指定单元格里的数据

给你一个例子Dim Conn As New ADODB.ConnectionDim Rs As New ADODB.RecordsetRs.Open "SELECT * FROM 报警记录 where " & Te.Tag & "=’" & Text1.Text & "’", ConnIf Rs.RecordCount = 0 ThenMsgBox vbCrLf & "“" & Rs.Fields(0) & "”查找失败！", vbInformation, " 提 示"Rs.CloseRs.Open "select * from 报警记录", Conn, adOpenStatic, adLockOptimisticEnd IfSet DataGrid1.DataSource = RsFor Each Col In DataGrid1.Columns ’修改列表If Col.DataField = "序号" Or Col.DataField = "备注" Then Col.Visible = False ’隐藏不想显示的字段Next ColDataGrid1.Columns(11).Caption = "电压"‘替换显示将数据库里的字段if Rs.Fields(4)="10" then msgbox "数值过低！"’第5（从0开始）个单元格数值For I = 0 To 14DataGrid1.Columns(I).Caption = Space(((DataGrid1.Columns(I).Width - Len(DataGrid1.Columns(I).Caption) * 150) \ 2) \ 150) & DataGrid1.Columns(I).Caption ’标题居中DataGrid1.Columns(I).Alignment = dbgCenterNext

在vb连接了数据库之后，如何修改库中表的某一内容求代码

一、连接数据库之后，还要打开需要进行修改的数据表。建立相应的SQL语句strSql="select*fromtable"(也可加上条件判断where语句)rs.OpenstrSql,con,adOpenDynamic,adLockOptimisticrs.Fields("这里写上你要修改的字段名称")＝修改后的信息………………类推rs.Update二、可直接使用UpdateSQL语句进行修改strSql="Updatetable(表名）set要修改的字段名称1=修改后的信息1,要修改的字段名称2=修改后的信息2,……等等"con.Execute即可，试试吧。

用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 方法。