日期:2014-05-19  浏览次数:20666 次

ACCESS中SQL语句问题
strsql   =   "select   *   from   Msysobjects   where   name= 'cs_temp ' "
                        If   runsql(strsql)   =   True   Then
                            If   rct.EOF   Then       '这里是这样判断数据库中是否有这个表吗??如果不是该怎么样判断这个表的存在~~~~
                                    strsql   =   "select   a.cname,a.cbir,a.cwork,a.cdan,b.cdtime,b.cctel,b.cliwu   into   cs_temp   c   from   cs_info   a   right   join   cs_ding   b   on   b.ctel=a.ctel   where   a.cname= ' "   &   Trim(Text1.Text)   &   " '   and   b.cdtime= ' "   &   DTPicker1.Value   &   " ' "       这句话为什么运行保存   那里错了~   语法有问题????
                                    runsql   (strsql)
                                   
                            Else
                                    strsql   =   "drop   table   cs_temp "
                                    runsql   (strsql)
                                    MsgBox   2
                                    strsql   =   "select   a.cname,a.cbir,a.cwork,a.cdan,b.cdtime,b.cctel,b.cliwu   into   cs_temp   c   from   cs_info   a   right   join   cs_ding   b   on   b.ctel=a.ctel   where   a.cname= ' "   &   Trim(Text1.Text)   &   " '   and   b.cdtime= ' "   &   DTPicker1.Value   &   " ' "
                                    runsql   (strsql)
                                    MsgBox   3
                                    strsql   =   "delete   cs_info   from   cs_temp   a   where   a.cname=cs_info.cname   "
                                    If   runsql(strsql)   =   True   Then
                                          MsgBox   a