With ADOQuery2 do
begin
Close;
SQL.Clear;
Str := 'Select cCusCode,cCusName,ccCCode,CCusHand'+
' From Customer where (cCusCode like ''%'+Edit2.Text
+'%'' or cCusName Like ''%'+Edit2.Text+'%'') and '+
'CCCCode in ('+Str_SSS+') ORDER BY cCCCode,cCusCode';
SQL.Text := Str;
Open;
end;
在本地机可以正常使用,但在局域网内的其它机子上使用此查询时会出现在同样的查询有时能查到有时候查询不到数据。
是不是网络问题,有没有什么解决方法?
begin
Close;
SQL.Clear;
Str := 'Select cCusCode,cCusName,ccCCode,CCusHand'+
' From Customer where (cCusCode like ''%'+Edit2.Text
+'%'' or cCusName Like ''%'+Edit2.Text+'%'') and '+
'CCCCode in ('+Str_SSS+') ORDER BY cCCCode,cCusCode';
SQL.Text := Str;
Open;
end;
在本地机可以正常使用,但在局域网内的其它机子上使用此查询时会出现在同样的查询有时能查到有时候查询不到数据。
是不是网络问题,有没有什么解决方法?
解决方案 »
- 如何判断当前系统的鼠标设置是正常还是左手习惯?(左右键与正常相反)
- 请教个定时器问题,系统需要每隔大约3秒钟做一件事情,每隔大约10分钟做另外一件事情,每隔1小时左右做第三件事情
- 如何用编程动态建立ODBC数据源
- 我已经死去三天了。问题没思路中。。。。
- 如果TClientSocket没有连接到Tserversocket就继续连接,但过一段时间就会出错,怎么回事?
- 紧急求救!!!如何实现txt文件—>access的转换?
- 打开另一个窗体有几种方法?
- 很有挑战性的问题,高手请进!!!
- 紧急求助:delphi 6 安装不上。都装了8遍了,最先解决者200分送上
- delphi高手帮忙啦!我用一个dpr文件(工程文件)写的窗口要如何显示在另外一个Form的panel中呢?
- 又来请教了。关于DLL调用。
- OnClose的时候释放内存
begin
Close;
SQL.Clear;
Str := 'Select cCusCode,cCusName,ccCCode,CCusHand'+
' From Customer where (cCusCode like ''%'+Edit2.Text
+'%'' or cCusName Like ''%'+Edit2.Text+'%'') and '+
'CCCCode in ('+Str_SSS+') ORDER BY cCCCode,cCusCode';
SQL.Text := Str;
Open;
i := 0;
FormMain_a.ListView1.Items.Clear;
While NOT EOF DO
begin
FormMain_A.ListView1.Items.Add;
Str1 := Fieldbyname('cCCCode').AsString;
formMain_A.ListView1.Items.Item[i].Caption := Fieldbyname('cCusCode').AsString;
FormMain_A.ListView1.Items.Item[i].SubItems.Insert(0,Fieldbyname('cCusName').AsString);
I := I + 1;
Next;
end;
end;整个程序就这些。