SQLEXEC 不能识别的短语和关键字 - VFP论坛

已结贴√ 问题点数：20 回复次数：4

SQLEXEC 不能识别的短语和关键字

RESTORE FROM D:\水表报修\szb.txt addi
  lcodbcdriver  =ALLTRIM(szb_类型)
  lcodbcserver  =ALLTRIM(szb_服务器)
  lcodbcdatabase=ALLTRIM(szb_数据库)
  lcuid     =ALLTRIM(szb_用户)
  lcpwd     =ALLTRIM(szb_密码)
con1=sqlstringconnect('driver='+lcodbcdriver+';server='+lcodbcserver+';database='+lcodbcdatabase+';uid='+lcuid+';pwd='+lcpwd) &&建立测试连接句柄
if con1>0
  messagebox("连接成功！",0,"数据源")

  SELECT card_1
  *a(8)=ALLTRIM(thisform.Grid2.Value)
  *thisform.text6.Value=thisform.Grid2.Value
  a(8)=ALLTRIM(维修类型)
  SELECT card01
  a(1)=卡号
  a(2)=ALLTRIM(thisform.text1.Value)
  a(3)=ALLTRIM(thisform.text2.Value)
  a(4)=card01.地址
  a(5)=DATETIME()
  a(6)=ALLTRIM(thisform.text4.Value)
  a(7)=card01.管道口径
  a(9)=card01.一级区
  a(10)=card01.二级区
  a(11)=card01.三级区
  a(12)=card01.四级区
  a(13)=card01.五级区
  a(14)=card01.六级区
  a(15)=ALLTRIM(thisform.text5.Value)
  a(16)='受理'
  a(17)=''
  a(18)=''
  a(19)=card01.姓名
  a(20)=card01.业主电话
  a(21)=card01.业主手机
  a(22)=''
  a(23)=''
  a(24)=''
  a(25)=''

     *卡号,保修人,报修人电话,报修地址,报修时间,报修内容,管道口径,报修类型,一级区,二级区,三级区,四级区,五级区,六级区,特殊情况,维修标记,施工队,维修信息,业主,业主电话,业主手机,受理人,派工人,派工时间,派工单单号
  *TEXT TO lcSql TEXTMERGE NOSHOW PRETEXT 4
        * insert into dbo.bx (卡号,保修人,报修人电话,报修地址,报修时间,报修内容,管道口径,报修类型,一级区,二级区,三级区,四级区,五级区,六级区,特殊情况,维修标记,施工队,维修信息,业主,业主电话,业主手机,受理人,派工人,派工时间,派工单单号)
        * values (?a(1),?a(2),?a(3),?a(4),?a(5),?a(6),?a(7),?a(8),?a(9),?a(10),?a(11),?a(12),?a(13),?a(14),?a(15),?a(16),?a(17),?a(18),?a(19),?a(20),?a(21),?a(22),?a(23),?a(24),?a(25))
  *ENDTEXT
  SQLEXEC(con1,"insert into dbo.bx (卡号,保修人,报修人电话,报修地址,报修时间,报修内容,管道口径,报修类型,一级区,二级区,三级区,四级区,五级区,六级区,特殊情况,维修标记,施工队,维修信息,业主,业主电话,业主手机,受理人,派工人,派工时间,派工单单号) values (?a(1),?a(2),?a(3),?a(4),?a(5),?a(6),?a(7),?a(8),?a(9),?a(10),?a(11),?a(12),?a(13),?a(14),?a(15),?a(16),?a(17),?a(18),?a(19),?a(20),?a(21),?a(22),?a(23),?a(24),?a(25))")
保存的时候出现不能识别的短语和关键字，就指向最后的那个SQLEXEC

搜索更多相关主题的帖子: database　关键字　服务器　 server　数据库　

第 2 楼

得分:0

如果改成这样，结果是插入失败了
TEXT TO lcSql TEXTMERGE NOSHOW PRETEXT 4
         insert into dbo.bx (卡号,保修人,报修人电话,报修地址,报修时间,报修内容,管道口径,报修类型,一级区,二级区,三级区,四级区,五级区,六级区,特殊情况,维修标记,施工队,维修信息,业主,业主电话,业主手机,受理人,派工人,派工时间,派工单单号)
         values (?a(1),?a(2),?a(3),?a(4),?a(5),?a(6),?a(7),?a(8),?a(9),?a(10),?a(11),?a(12),?a(13),?a(14),?a(15),?a(16),?a(17),?a(18),?a(19),?a(20),?a(21),?a(22),?a(23),?a(24),?a(25))
  ENDTEXT
  *SQLEXEC(con1,"insert into dbo.bx (卡号,保修人,报修人电话,报修地址,报修时间,报修内容,管道口径,报修类型,一级区,二级区,三级区,四级区,五级区,六级区,特殊情况,维修标记,施工队,维修信息,业主,业主电话,业主手机,受理人,派工人,派工时间,派工单单号)
  *values (?a(1),?a(2),?a(3),?a(4),?a(5),?a(6),?a(7),?a(8),?a(9),?a(10),?a(11),?a(12),?a(13),?a(14),?a(15),?a(16),?a(17),?a(18),?a(19),?a(20),?a(21),?a(22),?a(23),?a(24),?a(25))")

    if sqlexec(con1,lcSql)>0
      messagebox("插入成功",0,"数据源")
    else
     messagebox("插入失败",0,"数据源")
    endif