📄 12036.html
字号:
<html>
<head>
<title>Re: Answer for "大量更新资料库之方法"</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: Answer for "大量更新资料库之方法"</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by Spencer Yang on April 15, 1999 at 17:07:57:<p>
In Reply to: <a href="12014.html">大量更新资料库之方法</a> posted by chiou on April 15, 1999 at 09:11:54:<p>
' 说明:<br>' 由于相当部分 vb user 直觉认为 data object 及 adodc object<br>' 可以处理新增、修改、删除...功能, 也可做到下列 "动作查询"<br>' . 产生资料表查询<br>' . 更新查询<br>' . 新增查询<br>' . 删除查询<br>' 实际上，data object 及 adodc object是无此项功能, 因为 data object<br>' 及 adodc object 是逐笔记录处理功能。<p>' 兹列举四种 vb 执行 动作查询方式<br>' 环境: access<br>' 表单: tbl1, tbl2(二者只有一栏 fld1)<br>' 查询: qry1<p>' method 1:<br>' execute SQL statement by using then Excute methd on a<br>' DAO Database object in code.<br>' Resource: Microsoft Press <<Microsoft Jet Database Engine Programmer's Guide>><br>' Second Edition pp. 72-73<br>Private Sub Command1_Click()<br> Dim dbs As Database<br> Dim strSQL As String<br> Dim strDBPath As String<br> <br> strDBPath = "D:\MYDATA\ActionQueryTest.mdb"<br> strSQL = "INSERT INTO tbl1 ( fld1 ) SELECT tbl2.fld1 FROM tbl2"<br> <br> <br> Set dbs = OpenDatabase(strDBPath)<br> dbs.Execute strSQL<br>End Sub<p>' method 2:<br>' Anyother way to execute an SQL statement is to create a permanent<br>' DAO QueryDef object theat contains the SQL statement, and then use<br>' the Execute method to run the QueryDef object in code.<br>'<br>' if strSQL = "INSERT INTO tbl1 ( fld1 ) SELECT tbl2.fld1 FROM tbl2"<br>' have save as "qry1"<br>'<br>' Resource: Microsoft Press <<Microsoft Jet Database Engine Programmer's Guide>><br>' Second Edition pp. 72-73<p>Private Sub Command2_Click()<br> Dim dbs As Database<br> Dim qdf As QueryDef<br> Dim strSQL As String<br> Dim strDBPath As String<br> <br> strDBPath = "D:\MYDATA\ActionQueryTest.mdb"<br> <br> Set dbs = OpenDatabase(strDBPath)<br> Set qdf = dbs.QueryDefs("qry1")<br> qdf.Execute<br>End Sub<p>' method 3:<br>' use ADODB Connection object<br>' 来源: 王国荣编着 <<Visual Basic 6.0 资料库程式设计>> pp.294-295<p>Private Sub Command3_Click()<br> Dim conn As New ADODB.Connection<br> Dim rst As New ADODB.Recordset<br> Dim strConn As String<br> Dim strSQL As String<br> <br> strConn = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=D:\MYDATA\ActionQueryTest.mdb"<br> strSQL = "INSERT INTO tbl1 ( fld1 ) SELECT tbl2.fld1 FROM tbl2"<br> <br> ' 接上水源<br> conn.Open strConn<br> <br> ' 执行 SQL<br> conn.Execute strSQL<br> <br> ' 截断水源<br> conn.Close<br>End Sub<p>' Method 4:<br>' use ADODB Command object<br>' 来源: 王国荣编着 <<Visual Basic 6.0 资料库程式设计>> pp.294-295<p>Private Sub Command4_Click()<br> Dim conn As New ADODB.Connection<br> Dim cmd As New ADODB.Command<br> Dim rst As New ADODB.Recordset<br> Dim strConn As String<br> Dim strSQL As String<br> <br> strConn = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=D:\MYDATA\ActionQueryTest.mdb"<br> strSQL = "INSERT INTO tbl1 ( fld1 ) SELECT tbl2.fld1 FROM tbl2"<br> <br> ' 接上水源<br> conn.Open strConn<br> <br> ' 执行 SQL<br> Set cmd.ActiveConnection = conn<br> cmd.CommandText = strSQL<br> cmd.Execute<br> <br> ' 截断水源<br> conn.Close<br>End Sub<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12036-->
</ul><!--end: 12036-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -