欧美自拍小视频_国产片在线免费观看_中文字幕啪啪_成人av高清在线_欧美一区二区视频免费观看_亚洲国产激情

Rss & SiteMap

曙海教育集團論壇 http://www.bjzhda.cn

曙海教育集團論壇
共1 條記錄, 每頁顯示 10 條, 頁簽: [1]
[瀏覽完整版]

標題:幾個delphi書中沒提過的數據庫問題與我的疑惑和心得(一起討論)

1樓
wangxinxin 發表于:2010-12-14 11:16:27

1,ADOConnection和ADOTable在delphi中的使用

ADOConnection和ADOTable在delphi中像許多書中教的那樣設置好連接上數據庫(我用的SQLServer),運行沒有問題。然后我修改,目的是可以修改連接數據庫而不用在delphi中修改ADOConnection的ConnectionString屬性,還不出現連接對話框。

修改步驟:將LoginPrompt設置為false,將ConnectionString屬性清空,添加連接代碼

conStr:='Provider=SQLOLEDB.1;Password=1982072019;User ID=sa;Initial Catalog=StorageManagement;Data Source=10.16.99.175';
  try
    loginForm.tempADOConnection.ConnectionString :=conStr;
    loginForm.tempADOConnection.Connected := true;
  except
    messagedlg('數據庫連接有誤!!請檢查DataConfig.XML',mtConfirmation,[mbOk],0);
    Application.Terminate;
  end;

這樣程序運行起來,連接數據庫是沒有問題的。但出現的問題是在dlephi中ADOTable控件是不能連接表的,因為ConnectionString屬性沒有值。報錯為“無效的授權說明”。如何既能在delphi中使用ADOConnection和ADOTable控件,又可以不出現那個討厭的連接對話框。

2,在delphi中使用sql語句。

因為sql語句中給字符串賦值需要用雙引號,而delphi中用單引號括起字符串,我使用遇到了一些問題。我試驗的結果是delphi中用兩個單引號代替sql語句中的雙引號。不知道對不對?

具體如何使用,我還是不太清楚。

3,在delphi 7.0中使用ADOQuery的返回結果,書中介紹使用Params['xxxx'].AsString;

我使用后報錯,但有一個光盤的程序這樣使用沒有報錯。我使用的是Parameters['xxxx'],也使用不了.AsString

4,原代碼:
====================================================================
if canInsert then
  begin
    with allDataModule.AQ_OtherMaterielOut do
    begin
      Close;
      SQL.Clear;
      SQL.Text:='insert otherMaterielOut(materielID,amount) values (:insertID,:insertAmount,)';
      Parameters[0].Value:=myMateriel;
      Parameters[1].Value:=myAmount; 
      ExecSQL;
    end;
    with allDataModule.AQ_OtherMaterielStock do
    begin
      Close;
      SQL.Clear;
      SQL.Text:='update otherMaterielStock set amount=amount-:updateAmount where materielID=:updateID';
      Parameters[0].Value:=myAmount;
      Parameters[1].Value:=myMateriel;
      ExecSQL;
    end;
    materielOutForm.Close;
  end;

在這段代碼之后
with allDataModule.AQ_OtherMaterielOut do
    begin
      Close;
      SQL.Clear;
      SQL.Text:='update otherMaterielStock set amount=amount-:updateAmount where materielID=:updateID';
      Parameters[0].Value:=myAmount;
      Parameters[1].Value:=myMateriel;
      ExecSQL;
    end;

不能使用allDataModule自動顯示可以使用的控件列表功能,但我強加上后面的代碼仍然可以使用。怎么回事?


共1 條記錄, 每頁顯示 10 條, 頁簽: [1]

Copyright © 2000 - 2009 曙海教育集團
Powered By 曙海教育集團 Version 2.2
Processed in .01563 s, 2 queries.
主站蜘蛛池模板: 九九九免费观看视频 | 国产99在线播放 | 亚洲精品tv久久久久久久久久 | 91 在线观看 | 扒开女人内裤猛进猛出免费视频 | 国内精品久久久久久无码不卡 | 久久色图 | 一区二区三区四区免费视频 | 亚洲国产欧美日韩一区二区三区 | 国产69精品久久久久app下载 | 一级一级毛片看看 | 色综合久久久久久久久五月 | 国产精品午夜无码av天美传媒 | 黑人大长吊大战中国人妻 | 国产成人啪精品视频免费软件 | 丰满人妻熟妇乱又伦精品视 | www国产精品内射老熟女 | 色啪网站 | 久久青青 | 亚色视频在线 | 日本黄色激情片 | 亚洲欧美视频网站 | 性视频播放免费视频 | 99re这里只有精品在线 | 男女特黄一级全版视频 | 北条麻妃在线一区二区 | 日韩中文字幕精品免费一区 | 久久99亚洲精品久久 | 色欲久久久天天天综合网精品 | 国产毛片毛多水多的特级毛片 | av国产精品 | 国内精品伊人久久久久777 | 影音先锋男人资源在线观看 | 娇妻被黑人粗大高潮白浆 | 激情网页 | 日本美女一区二区三区 | 精品熟女碰碰人人a久久 | 亚洲黄色在线观看视频 | 久久精品免费大片国产大片 | 国产高清免费 | 老师脱了内裤让我进去 |