delphi 資料庫查詢(tadoquery)
在乙個程式中你會多次查詢資料庫的,因此在你寫的查詢方法中定義乙個區域性的adoquery就可以了,它返回乙個資料集_recordset。最簡單的應用如下:
function getdata: _recordset; //獲取一張表中的全部資料(_recordset是一種型別)
varpadoq: tadoquery; //宣告
begin
padoq := tadoquery.create(nil); //建立
padoq.connection := adocon; //意思是adoquery連線資料庫時用adoconnection建立好的連線。
padoq.sql.text := 'select * from tablename';
padoq.open; //執行查詢,如果是增、刪、改則用padoq.execsql
result := padoq.recordset; //函式返回結果
end;
接下來是怎樣用這個返回的結果集。
在用的地方再次宣告乙個adoquery,用於接收這個返回的結果集。(當然也可以直接使用)
varpadoq: tadoquery;
pitem: tlistitem; //乙個listview,用於顯示記錄
begin
padoq := tadoquery.create(nil);
padoq.recordset := getdata; //將結果集賦給padoq
if padoq.recordcount <= 0 then exit; //結果集為空,退出
padoq.first ; //將游標放到結果集的第一條記錄
while not adoquery.eof do //開始迴圈結果集(當該條記錄不是最後一條時)
begin
pitem := lvmain.items.add; //在listview中加一行
pitem.caption := trim(adoquery.fieldbyname('patid').asstring);
pitem.subitems.add(adoquery.fieldbyname('patname').asstring);
padoq.next; //游標移動到記錄的下一條
end;
2.4.4 ado資料庫訪問元件tadoquery
tadoquery元件可以非常
方便靈活地對乙個或多個資料庫表中的記錄進行訪問
。在程式窗體中放置tadoquery元件的過程同tadotable元件。
tadoquery元件主要屬性及方法與tadotable元件相同,其中:
sql屬性指定對資料庫表進行訪問的sql語句,它可以是一條查詢語句也可以是一條修改語句或插入語句等。
在物件瀏覽器上,單擊sql屬性時,會開啟乙個字元編輯器供程式設計者輸入sql語句。在sql屬性中,通過sql語句來指定將要訪問的資料庫表。
Delphi學習筆記四 語句
今天我們來看一下delphi的語句。一 常量宣告語句 和其他語言一樣,常量在宣告時就被賦值,且在程式執行過程中是不可改變的。常量用 表示兩邊的值是相等的。delphi view plain copy const pi 3.14159 answer 342 productname delphi 二 賦...
Delphi 學習筆記 指標篇
取址運算子 var intval integer p integer new p 申請記憶體空間 intval 24 p intval 取變數 intval 的位址賦值給 整形指標,整形指標指向intval的位址 dispose p 釋放記憶體 指標的引用解析操作符 var pint integer...
學習筆記 delphi之TStringGrid
最近加入了乙個專案組,使用的開發工具是delphi6,想想又要開始搞這個工具有點小憂傷,但沒辦法誰讓咱就是個打雜的尼。的需求是顯示乙個類似於word excel的那種 可以合併列等。本來想用dbgrideh去解決,只是試了半天發現不能合併列,我了個去。然後想到了網頁來處理,但是嘗試了一下馬上就放棄,...