一个网络数据库的问题(10分)

  • 主题发起人 主题发起人 wood_ke
  • 开始时间 开始时间
W

wood_ke

Unregistered / Unconfirmed
GUEST, unregistred user!
小弟想用delphi做一个界面,用控件idhttp通过cgi/isapi进行交互,isapi再与数据库相连,我想在我的界面上显示该数据库中的一个表的值,我该怎么办??有例子更好!!!或有书介绍!!!!
谢了!!!!!!!!!!!
 
如果知道这个问题的朋友,请qq聊!!
我的QQ:28274903
谢了
 
大概就是这样做法:

发送数据给服务器
Data := TStringList.Create;
try
table1.First;
while not Table1.Eof do
begin
if Table1CompID.IsNull or (Table1CompId.AsInteger = 0) then
begin
Data.Clear;
for I := 0 to Table1.FieldCount - 1 do
Data.Values [Table1.Fields.FieldName] :=
Table1.Fields .AsString;
ClientSocket1.Socket.SendText (Data.Text);
fWaiting := True;
while fWaiting do
Application.ProcessMessages;
end;
Table1.Next;
end;
finally
Data.Free;
ClientSocket1.Active := False;
end;

接收客户端的数据给数据集
Data := TStringList.Create;
try
Data.Text := strCommand;
Table1.Insert;
for I := 0 to Table1.FieldCount - 1 do
Table1.Fields .AsString :=
Data.Values [Table1.Fields.FieldName];
Table1CompID.AsInteger := GetTickCount;
Table1LoggedBy.AsString := Socket.RemoteAddress;
Table1LoggetOn.AsDateTime := Date;
Table1.Post;
strFeedback := Table1CompID.AsString;
Socket.SendText (strFeedback);
finally
Data.Free;
end;

 
后退
顶部