各位斑竹 大侠,我很辛苦,帮下忙吧,感恩不敬!!!!

lyz

我自己每十天都要同时运行差不多上千个查询语句,可是我对数据库不太熟悉.只能在"ctrl+g"立即窗口中运行,而且这个窗口每次只能放入100多个查询语句,有时我有几千个语句,经常得慢慢分割几十个文件,逐个放进立即窗口.

   放进立即窗口后,我又不太熟悉语句,我写的语句,又要在立即窗口中,不停的按回车键.

   几千个语句,分段放入立即窗口,又要不停的按回车键,太辛苦了,各位朋友,帮下忙吧.

    前段时间,有热心人,指点了一下,可是,我不太熟悉数据库,不明白,能否说明白点,最好能发个样板数据库. 感恩不敬!!!!  感恩不敬!!!!

   我的语句(几千个基本上都是一样的)是:
DoCmd.RunSQL "UPDATE [表1] SET [表1].简日期 = 'AAA' WHERE ((([表1].输入内容) Like '*A*'))"  
DoCmd.RunSQL "UPDATE [表1] SET [表1].简日期 = 'BBB' WHERE ((([表1].输入内容) Like '*B*'))"  
- - - - - - - -

                                   lyz 77552186@163.com
[em26][em26][em26]

yachtz

设计多个查询不就很简单地解决了吗？

Roadbeg

如果很多语句都有相似之处的话,如下操作,相信能减少语句数量:
dim i as long,temp as string
for i=65 to 90      'asc("A")=65     'asc("Z")=90
   temp=chr(i)+chr(i)+chr(i)
   DoCmd.RunSQL "UPDATE [表1] SET [表1].简日期 = '"+temp+"' WHERE ((([表1].输入内容) Like '*"+chr(i)+"*'))"
next i
当然,你需要设置的数据及更新条件可能不是 "AAA","*A*","BBB","*B*"......
但你可以按这个思路去做

过程太大,可以使用一个总过程调用小过程的方式嘛:
如下:
private sub a()
b
c
end sub

private sub b()
docmd ....
...
end sub

private sub c()
...
end sub

李寻欢

既然是过程过大，就肯定要分割，但也只需要按一次按钮，比如你要分成三个过程：
Private Sub Command6_Click()
语句1
。
。
。
call process1
call process2
End Sub

Private Sub process1()
。
。
。
语句m
End Sub

Private Sub process2()
。
。
。
语句n
End Sub

不过我想可能不用上千个更新语句，也许只用一个或多个循环，只需十条八条语句就可以搞定了。

[此贴子已经被作者于2003-2-12 9:12:31编辑过]

Imain

我也遇到过此类问题，不知如何解决？请各位高手赐教

lyz

我又试了一下,解决了我不停的按回车键问题.
  但是,我的代码太大,只能分割几部分,否则会出现"过程太大".能否不用分割,解决"过程太大"???

lyz

基本成功了,真不知如何报答您

李寻欢

在这两句之间吧：
Private Sub Command6_Click()

End Sub

lyz

这位侠客,您好
我已找见“代码生成器”，可是有很多英文,不知从那个英文下,贴进我的代码??
Option Compare Database
Private Sub Command6_Click()

End Sub
Private Sub Command7_Click()
On Error GoTo Err_Command7_Click

    Screen.PreviousControl.SetFocus
    DoCmd.FindNext

Exit_Command7_Click:
    Exit Sub

Err_Command7_Click:
    MsgBox Err.Description
    Resume Exit_Command7_Click
   
End Sub

李寻欢

在窗体上放置一下按钮，当有向导出现时按取消。然后选中该按钮单击右键，出现一个弹出菜单后选"事件生成器"，然后会弹出一个对话框，再选“代码生成器”，然后就把你的代码粘贴进去吧。