我在adoquery中的sql屬性中加上select * from baseDB where No=:No
現在的問題是.本來應該有數據的,卻沒有顯示數據.
如果是把adoquery中的sql屬性中加上select * from baseDB (去掉參數)的話,就有數據顯示.好奇怪.不知道大俠那裡岀錯了呢?
我又試著把數據庫從access改為sqlserver就沒有問題.一切都正常.好奇怪
代碼如下procedure TFrm_Sys.ComboBox1Change(Sender: TObject);
var str_server:string ;
begin
try
begin
str_server:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
ADOQuery1.Parameters.ParamByName('No').Value:= str_server;
ADOQuery1.Open;
FtpServerEdit.Text:= ADOQuery1.FieldByName('FtpServer').AsString ;
UserIDEdit.Text:= ADOQuery1.FieldByName('UserID').AsString;
PasswordEdit.Text:= ADOQuery1.FieldByName('Password').AsString;
CurrentDirEdit.Text:=ADOQuery1.FieldByName('CurrentDir').AsString;
FileNameEdit.Text:= ADOQuery1.FieldByName('FileName').AsString;
LocalEdit.Text:= ADOQuery1.FieldByName('Local').AsString;
end ;
finally
ADOQuery1.Close;
begin
end;
end;end;
現在的問題是.本來應該有數據的,卻沒有顯示數據.
如果是把adoquery中的sql屬性中加上select * from baseDB (去掉參數)的話,就有數據顯示.好奇怪.不知道大俠那裡岀錯了呢?
我又試著把數據庫從access改為sqlserver就沒有問題.一切都正常.好奇怪
代碼如下procedure TFrm_Sys.ComboBox1Change(Sender: TObject);
var str_server:string ;
begin
try
begin
str_server:=ComboBox1.Items.Strings[ComboBox1.ItemIndex];
ADOQuery1.Parameters.ParamByName('No').Value:= str_server;
ADOQuery1.Open;
FtpServerEdit.Text:= ADOQuery1.FieldByName('FtpServer').AsString ;
UserIDEdit.Text:= ADOQuery1.FieldByName('UserID').AsString;
PasswordEdit.Text:= ADOQuery1.FieldByName('Password').AsString;
CurrentDirEdit.Text:=ADOQuery1.FieldByName('CurrentDir').AsString;
FileNameEdit.Text:= ADOQuery1.FieldByName('FileName').AsString;
LocalEdit.Text:= ADOQuery1.FieldByName('Local').AsString;
end ;
finally
ADOQuery1.Close;
begin
end;
end;end;
解决方案 »
- beforepost locate出错
- ActiveX接收不到参数,不知是何原因
- showmodal窗体的关闭、切换的实现?
- 在线等待,好简单的问题,来抢分啊,extended类型如何转化为integer?
- 关于Listview简单的问题
- 在delphi里如何播放.amr的音频格式的文件? 急!
- := Trim(CurrEdit.Text) ;Trim函数有什么用
- 当有很多子窗体时,编译的EXE非常大,一般在作一个大的项目时是怎么处理的,请各位大侠指点。
- delphi疯了,还是偶疯了,这问题没有再简单的了,可为什么就通不过,1+1为什么就不等于2,起了怪了,有没有天理了?//牛虻
- 如何编写WindowsNT服务程序?
- 为什么在(delphi6+win2000)下不死,而在(delphi6+winxp)或(delphi7+win2000)下会假死(要3,5分钟退出)
- 表中数据插入问题(非字符类型的插入)
參數No在delphi中是ftFixedChar類型.我也試過把ftFixedChar類型改為其他類型如ftString
也不成功,結果還是沒有數據.把數據庫從access改為sqlserver就沒有問題.有正確的數據顯示.謝謝
不是漢字問題.我用了unicode編碼to Tensionli()
在程式裡面寫add的sql語句一樣的問題.to ghchen()
應該不是參數的問題.
改成
str_server :=ComboBox1.Text
如果你想在打开后出现异常才关闭请如下写
try
...
open;
...
except
close
end;
而不是你所写的用finally
因为它是不管出不出错总是会执行
这对资源释放用得多.对于其它写法按前面几位的建议可相应改一下.