rocedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
begin
with ora do
begin
close;
sql.Clear;
sql.Add('select * from z_jcyy_diagramlocodymaic');
open;
end;
ce.First;
while not eof do
begin
with ora do
begin
append;
//fieldbyname('id').AsString:=ce.fieldbyname('').AsString;
fieldbyname('diagram').AsString:='3';
fieldbyname('dyanmictype').AsInteger:=OI(ce.fieldbyname('IOPUT').AsString);
fieldbyname('locomotive').AsString:=ce.fieldbyname('jc').AsString;
fieldbyname('place').AsString:=ce.fieldbyname('ad').AsString;
fieldbyname('dt').AsDateTime:=strtodatetime(ce.fieldbyname('sj').AsString);
fieldbyname('locotype').AsString:=ce.fieldbyname('cd').AsString;
post;
ce.Next;
end;
end;
end;
高手帮我看看 为什么CE连不上数据库 CE :clientdataset
var
i:integer;
begin
with ora do
begin
close;
sql.Clear;
sql.Add('select * from z_jcyy_diagramlocodymaic');
open;
end;
ce.First;
while not eof do
begin
with ora do
begin
append;
//fieldbyname('id').AsString:=ce.fieldbyname('').AsString;
fieldbyname('diagram').AsString:='3';
fieldbyname('dyanmictype').AsInteger:=OI(ce.fieldbyname('IOPUT').AsString);
fieldbyname('locomotive').AsString:=ce.fieldbyname('jc').AsString;
fieldbyname('place').AsString:=ce.fieldbyname('ad').AsString;
fieldbyname('dt').AsDateTime:=strtodatetime(ce.fieldbyname('sj').AsString);
fieldbyname('locotype').AsString:=ce.fieldbyname('cd').AsString;
post;
ce.Next;
end;
end;
end;
高手帮我看看 为什么CE连不上数据库 CE :clientdataset
解决方案 »
- 求Delphi 5.x 分布式多层应用电子商务篇的配套光盘原码
- 怎么做支持全文检索的电子书?给点思路?
- delphi問題請教
- fastreport如何控制检索参数?
- 怎么样实现在DBgridEH中输入的时候出现下拉菜单??
- 如何实现复杂的距形对象,该对象像WORD处理软件中表格对象一样,具有合并、拆分、删除的功能?
- 忘了调用外部可执行文件的函数了,在线等待。谢谢!
- delphi2007乱码问题
- 怎样把Delphi中出现的英文错误提示,改变成中文提示。
- 编写midas的服务器与客户端程序是否花钱买一个协议,如果买,能有办法不买就能编写吗??
- delphi如何自动关闭异常的对话框
- LoadFromStream时丢失小数!!!在线等!!!急!!!100分送上
用户名口令错误或者没有登录权限
--授权
grant connect to user