我在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;
解决方案 »
- 代码中的事件指的是什么?
- combobox的问题!combobox能不能有想.caption和.value这个样属性?谢谢
- 刚在网上下一套源码,2002年开发的, 可能是用D5写的吧,现在我用D7不能编译
- 那里有李维的书下载
- DELPHI 函数变量无法传递
- excel問題
- 请问form上控件的焦点转移事件是什么,如何获取?
- 如何实现类似netstat命令中查看当前连接情况的功能?
- 求摄像头监控系统和网上直播系统源码
- 如何安装控件,请指教
- 为什么在(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
因为它是不管出不出错总是会执行
这对资源释放用得多.对于其它写法按前面几位的建议可相应改一下.