发几条常用的维护用sql语句

监守自盗

812Sql总帐清除期初语句
UPDATE GL_accass
SET mb = 0, md = 0, mc = 0 ,mb_f=0,md_f=0,mc_f=0,me_f=0,cendd_c='ƽ',cbegind_c='ƽ'
WHERE (ccode LIKE '102%')

delete from gl_accvouch
WHERE (ccode LIKE '102%')

UPDATE GL_accsum
SET mb = 0, md = 0, mc = 0, mb_f = 0, md_f = 0, mc_f = 0, me_f = 0, cendd_c = 'ƽ',
      cbegind_c = 'ƽ'
WHERE (ccode LIKE '102%')

Accsum空值语句
SELECT * into gl_accsum1
FROM GL_accsum where not isnull(iperiod);


更新存货明细帐负数问题的SQL语句
UPDATE IA_Subsidiary
SET iAInQuantity = ABS(iAInQuantity)
WHERE cvoutype = 30
UPDATE IA_Subsidiary
SET iInCost = ABS(iInCost)
WHERE cvoutype = 30

解决Sql总帐与明细帐不平的语句
update gl_accass set me=mb where md=0 and mc=0

解决应收明细帐翻倍的语句
Option Compare Database
Option Explicit

Sub main()
    Dim Db As Database
    Dim Rec As Recordset
    Dim Sql As String
    Dim str As Long
    Dim str1 As String
    Set Db = OpenDatabase("c:\ufsoft80\zt400\2000\ufdata.mdb")
    Set Rec = Db.OpenRecordset("select * from ap_detail order by ibvid,cVouchType")
    While Not Rec.EOF
          str = Rec("iBVid")
          str1 = Rec("cVouchType")
          Rec.MoveNext
          If Not Rec.EOF Then
             If Rec("iBVid") = str And Rec("cVouchType") = str1 Then
                Rec.Delete
                Rec.MoveNext
             End If
          End If
    Wend
    MsgBox "OK!"
End Sub


连接mdf文件
sp_detach_db 'ufdata_436_2000'

sp_attach_db @dbname='ufdata_436_2000','f:\数据\珠海光盘\2T003\2000\UFDATA.MDF','f:\数据\珠海光盘\2T003\2000\UFDATA.lDF'

应收付翻倍语句
update gl_accvouch set coutno_id=null where doutbilldate <#2000-1-1# and coutno_id like 'A*'

lg0219

沙发沙发沙发

393573376

很好
感谢楼主分享

uf0316

看不太懂,,请问是不是要懂数据库就一定要学英语呀,

???

潮涨潮落

一点也看不懂@_@

fengfeiwanghui

似懂非懂，不知这个重不重要

@Romantic@

收下了，感谢

dyliht

是不错啊
谢谢楼主提供

hongling1122

不错的语句，值得学习……

lg0219

人为刀俎，我为鱼肉，奈何？？？黄毛。

petercsl

这个适合u8和用友通不呢？

yc198526

谢了,先留下在说,

penghuanqi

谢了，先收下，哪天开始学SQL时肯定能用上

bxj702

很好很强大，我就用821，正需要呢
呵呵，估计现在用821的没几个了

谢谢楼主分享

wanyaxiong

812Sql总帐清除期初语句
UPDATE GL_accass
SET mb = 0, md = 0, mc = 0 ,mb_f=0,md_f=0,mc_f=0,me_f=0,cendd_c='&#445;',cbegind_c='&#445;'
WHERE (ccode LIKE '102%')

delete from gl_accvouch
WHERE (ccode LIKE '102%')

UPDATE GL_accsum
SET mb = 0, md = 0, mc = 0, mb_f = 0, md_f = 0, mc_f = 0, me_f = 0, cendd_c = '&#445;',
      cbegind_c = '&#445;'
WHERE (ccode LIKE '102%')

楼主为什么我按着这个步骤执行，最后在删除账套号时SQL还是不能删除呢