数据库应用程序在设计时连接并显示记录,但在运行时不连接

时间:2013-10-05 10:35:36

标签: delphi pascal freepascal lazarus

我为我的wince app工作后台办公软件..我正在为拉撒路工作。

我在datamodule中放了一个连接和事务以及sqlquery和datasource。然后我在主窗体中放入一个dbgrid并设置datasource。当我输入查询组件的组件和SQL查询的参数时,它不会显示错误。

当我设置为查询的活动时,它已连接到服务器,我可以在设计时看到dbgrid中的记录。

但是,当我运行应用程序然后它正在等待然后等待然后显示消息,它找不到服务器,它不能连接我的ms sql server。

dblib dll存在于syswow64文件夹中,并且与我的应用程序存在于同一文件夹中。那有什么问题?

onclick代码如下所示,这只是一个简单的过程。查询与设计时的查询相同...但这个不连接...

  if Dm.QMst.Active then Dm.QMst.Close; 
  Dm.QMst.SQL.Clear;
  Dm.QMst.SQL.Add('  select ');
  Dm.QMst.SQL.Add('   st.sto_kod, st.sto_isim,st.sto_birim1_ad,  ');
  Dm.QMst.SQL.Add('   st.sto_toptan_vergi,st.sto_perakende_vergi,');
  Dm.QMst.SQL.Add('   st.sto_max_stok,st.sto_min_stok, ');
  Dm.QMst.SQL.Add('   sba.bar_kodu,   ');
  Dm.QMst.SQL.Add('   stf.sfiyat_fiyati  ');
  Dm.QMst.SQL.Add('  from MikroDB_V14_DEKOR2011.dbo.STOKLAR st ');
  Dm.QMst.SQL.Add('  left JOIN MikroDB_V14_DEKOR2011.dbo.BARKOD_TANIMLARI sba on sba.bar_stokkodu=st.sto_kod ');
  Dm.QMst.SQL.Add('  left JOIN MikroDB_V14_DEKOR2011.dbo.STOK_SATIS_FIYAT_LISTELERI stf on stf.sfiyat_stokkod=st.sto_kod  ');
  Dm.QMst.SQL.Add('  where LEFT(st.sto_kod,1)=''5'' --and stf.sfiyat_listesirano=1 ');
  Dm.QMst.Open;  

0 个答案:

没有答案