小弟在做一个第二课堂，要用到数据库，最近新看了matlab与数据库编程的书，写了点程序。之前运行没有问题，不知是不是动了哪里，突然不能添加和修改记录了！很是着急，已经琢磨两天了未果……不知各位大侠可否帮帮小弟啊……代码如下，程序和数据库文件在附件中。

clear all

SearchNum='900001';

timeout=logintimeout(10);

connFinal=database('Cases2','','');

setdbprefs('NullNumberRead','0');

setdbprefs('NullNumberWrite','0');

setdbprefs('NullStringRead','0');

setdbprefs('NullStringWrite','0');

CF=exec(connFinal,['select Number,CaseNumL,CaseFJ,CaseHM,CaseTip,CaseDegreeL from NewCase2 where CaseNumL=',SearchNum,'']);

CF=fetch(CF);

CF.Data

if CF.Data{1}=='No data'

C='No1'

else

if CF.Data{1}~=0

CF.Data{2}

CF.Data{3}

CF.Data{4}

CF.Data{5}

colnam={'Number'};

newdata={0};

%        update(connFinal,'NewCase2',colnam,newdata,['where CaseNumL=',SearchNum,'']);

TempNum=num2str(CF.Data{1});

CF=exec(connFinal,['select Number from NewCase2 where Number>',TempNum,'']);

CF=fetch(CF);

numrows=rows(CF);

for j=1:numrows

colnam={'Number'};

newdata={CF.Data{j}-1};

%                 update(connFinal,'NewCase2',colnam,newdata,['where Number=',CF.Data{j},'']);

end

close(CF);

close(connFinal);

break

else

C='No2'

end

end

带注释的地方是运行不了的……:'( :'( :'(

2009-10-6 19:31 上传

点击文件名下载附件

9.36 KB, 下载次数: 3651

代码+数据库