我需要打开一个表(不匹配);创建一个新字段(ID);使用现有字段创建一个新的唯一字符串(赫兹);然后,最后,将这个新字符串插回到表格的新字段中。我被卡住了,因为我是新人。任何微调前锋将不胜感激。 Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field
Dim Hertz As String
Dim rst As
我知道这很愚蠢,但我无法弄清楚这一点。下面的当前代码将满足条件的记录集插入到TxtBox1中,然后通过在表中重新写入满足TxtBox2条件的新记录集来擦除数据。 我需要的是将TxtBox1中的记录集会议条件插入到表中,然后在循环时将记录集的下一个迭代添加到表中。 (不超过写入/删除第一返回记录集) Dim db As Database
Dim rst As DAO.Recordset
Dim
我试图修复一些小工具,它似乎在空闲时间后失去与数据库的连接。我已经将超时设置为0,但这似乎不起作用。 而不是简单地崩溃并显示一些错误消息我想尝试重新建立连接并执行查询,直到成功(我意识到这可能是一个不好的资源使用),但即使这样,我就是这样试图在这里完成。或者,如果可能的话,显示一个消息框,指出连接已经丢失,然后一旦连接建立就关闭连接。 任何建议将不胜感激。 Public connMain As A
我想通过数据库查询循环并将电子邮件发送到我从查询中获得的电子邮件地址。 这是我的一段代码。 do until rs.EOF
Set myMail = CreateObject("CDO.Message")
myMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendu
我一直致力于在MS Excel中创建动态报表。我正在研究传统的VB6应用程序,并且遇到了一些我希望你们可以帮我解决的问题。我在下面做的是将数据抓取到我的记录集g_RS3中 - 通常这有3到20个项目,我使用g_RS3在我的Excel中输入值(标题和每个标题下的2列值)电子表格。我试图对它进行编辑,但我一直在努力。这是我的代码.... Do While Not g_RS3.EOF
With
我有Excel VBA代码在访问数据库上运行选择查询并返回记录集。连接工作正常。当我获得记录集时,我可以很好地访问每行中的每个字段。以下是我目前正在使用: Sub accessSelect(sql)
Set rs = New ADODB.Recordset
Call accessConnection
With rs
.Open sql, conn
End With
Do W