北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |
Private Sub Command2_Click() Dim strSql As String strSql = "update DS_POINT SET 管点编号 =left([管点编号],2)&0320&right([管点编号],len([管点编号])-2)" DoCmd.RunSQL strSql '运行第1个更新语句 strSql = "update DS_LINE SET 起点点号 =left([起点点号],2)&0320&right([起点点号],len([起点点号])-2))" DoCmd.RunSQL strSql '运行第2个更新语句 strSql = "update DS_LINE SET 终点点号 =left([终点点号],2)&0320&right([终点点号],len([终点点号])-2))" DoCmd.RunSQL strSql '运行第3个更新语句 strSql = "update DX_POINT SET 管点编号 =left([管点编号],2)&0320&right([管点编号],len([管点编号])-2)" DoCmd.RunSQL strSql strSql = "update DX_LINE SET 起点点号 =left([起点点号],2)&0320&right([起点点号],len([起点点号])-2))" DoCmd.RunSQL strSql strSql = "update DX_LINE SET 终点点号 =left([终点点号],2)&0320&right([终点点号],len([终点点号])-2))" DoCmd.RunSQL strSql strSql = "update DT_POINT SET 管点编号 =left([管点编号],2)&0320&right([管点编号],len([管点编号])-2)" DoCmd.RunSQL strSql strSql = "update DT_LINE SET 起点点号 =left([起点点号],2)&0320&right([起点点号],len([起点点号])-2))" DoCmd.RunSQL strSql strSql = "update DT_LINE SET 终点点号 =left([终点点号],2)&0320&right([终点点号],len([终点点号])-2))" DoCmd.RunSQL strSql ...... End Sub *********************************************************** 问题1： 我的数据库有甚多类似DS_POINT DS_LINE DX_POINT DX_LINE DT_POINT DT_LINE .....这样的表，如果每个表名都列出来的话会浪费很多时间，而且还不确定表名（但后缀都是一样的*_POINT;*_LINE),能不能用命令直接搜索数据库内的表名，然后顺序循环执行sql命令？ 问题2：每执行一个命令都会提示一个对话框让修改，我想请教一下能不能不让显示对话框，而是直接执行sql，也就是让程序默认点确定？ 谢谢，谢谢，谢谢！重要的事情要说3次...
