clientdataset 建表 再线等

Question

怎么建？？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  myDataSet:TClientDataSet;
begin
  myDataSet := TClientDataSet.Create(application);
  myDataSet.FieldDefs.Add('name',ftstring,10);
  myDataSet.FieldDefs.add('age',ftinteger);
  myDataSet.CreateDataSet;  myDataSet.Active;
  myDataSet.AppendRecord(['bb張三',10]);
  myDataSet.AppendRecord(['bb張三',1]);
  myDataSet.AppendRecord(['aa李四',40]);
  myDataSet.AppendRecord(['aa李四',100]);  myDataSet.SaveToFile( ExtractFilePath(Application.ExeName) + 'ClientDataSet.xml', dfXML ); //XML形式
end;

Answer 2

我用上面 cronuz(cronus) 老兄的方法创建了表，可是添加记录的时候出现list index out ofbounds(1)
请问时那里出错了

Answer 3

hehe, Sorry!
上面的「myDataSet.Active;」応写成：
myDataSet.Active := true;  (or myDataSet.Open;)不過不会出「list index out ofbounds(1)」错呀。NI自己改哪了嗎？

Answer 4

clientdataset1.commandtext:='create table.......';
clientdataset1.open;
主义你的那个服务器端的tdatasetprovider的option里面要设置allowcommandtext啊,这样客户端才可以象服务器端发送sql语句!!

Answer 5

myDataSet1 := TClientDataSet.Create(application);
  myDataSet1.FieldDefs.Add('b',ftstring,10);
  myDataSet1.FieldDefs.add('cc',ftinteger,10);
  myDataSet1.Createdataset;  myDataSet1.Active:=true;
  myDataSet1.AppendRecord(['b',10]);
  myDataSet1.AppendRecord(['cc',10]);
  myDataSet1.AppendRecord(['dd',10]);
  myDataSet1.AppendRecord(['ee',10]); myDataSet1.SaveToFile( ExtractFilePath(Application.ExeName) + 'ClientDataSet.xml', dfXML ); //XML形式,这一句有什么作用啊
我添加记录的语句
mydataset1.Append;
mydataset1.FieldByName('b').AsString:=edit1.Text;
mydataset1.FieldByName('cc').AsString:=edit2.Text;
现在提示invalid  field  size
还请 cronuz(cronus) 帮忙

Answer 6

mydataset1.Append;
mydataset1.FieldByName('b').AsString := edit1.Text;
mydataset1.FieldByName('cc').AsInteger := StrToInt(edit2.Text);
mydataset1.Post;説明：字段「cc」定義的是「ftinteger」数字型、因此要注意変換。
　　　「SaveToFile」是文件以XML形式保存。

Answer 7

现在提示invalid  field  size  如何写
还请 cronuz(cronus) 帮忙

Answer 8

myDataSet1.FieldDefs.add('cc',ftinteger,10);
要改成↓
myDataSet1.FieldDefs.add('cc',ftinteger);説明：数字型是不能定義長度的。我上面就没写長度呀(~_~)