delphi創建access資料庫

A. 高分求教 delphi ，我我用access建立一個資料庫，用ADOQuery1連接，裡面有兩個DBLookupComboBox1控制項

放兩個AdoQuery，命名為：Qry_DiQu和Qry_RanLiao，
放兩個DataSource命名為: Ds_DiQu和Ds_RanLiao，其DataSet設置為Qry_DiQu和Qry_RanLiao。

然後，設置comBox1指向地區：
qry_DiQu.sql.text:='select * from DiQu';
qry_DiQu.open; //這就能顯示的列表了

設置combox2指向燃料：
qry_RanLiao.sql.text:='select * from RanLiao where RanLiao.DiQu=:diQuID '; //注意這個參數:DiQuID，要在qry_DiQu里有同名欄位，指地區的ID
qry_RanLiao.DataSource:=ds_DiQu; //從這里取參數
qry_RanLiao.open; //讀取燃料了

------------------------我建議你用devExpress的Cx組件，cxImageCombobox--------------
with qry_DiQu do while not eof do with TCxImageComboboxItem(cbx_DiQu.properties.items.add) do begin
value:=fieldValues['地區編號'];
description:=fieldValues['地區名稱'];
NEXT; //嚇一跳記錄
end;
//雙擊cbx_DiQy後，會自動生成一個事件：cbx_diQu.properties.onChange，寫代碼：
with qry_RanLiao do begin
close;
sql.text:='select * from ranLiao where 地區號='+quotedStr(cbx_DiQu.editValue); --地區編號，取燃料
open;
--畫界面
cbx_ranliao.properties.items.clear;
while not eof do with TCxImageComboboxItem(cbx_ranliao.properties.items.add) do begin
value:=fieldValues['燃料ID'];
description:=fieldValues['燃料名稱'];
next;
end;
end;

寫的很倉促，大體是這個意思，有點小錯誤的話你自己理順理順把。

B. delphi怎樣使用多線程寫入ACCESS資料庫

你用兩個ADO連接組件,一個連接SQL,一個連接ACCESS;然後用兩個ADOdataset組件,一個與SQLADO連接組件連接,另外一個與ACCESS的鏈接組件連接,各自打開要讀寫的表,然後用一個FOR循環,讀寫,這和從界面上錄入數據然後保存,沒有什麼兩樣.

C. delphi怎麼創建帶密碼的ACCESS資料庫

Source:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ku.mdb';User Id=xxx;PassWord = 123456 CreateDB:=CreateOleObject('ADOX.Catalog');

若是不行，看看下面：
加了密碼的Access資料庫連接字元串如何設置？
2007年03月30日 星期五 13:49
Access資料庫在一些小的系統程序中經常用到，為了給資料庫中的信息增加一些安全性，最簡單的方法就是給Access文件加上密碼（當然也可以將資料庫中的數據進行加密後在存放到文件里來保護數據，只不過這種方法需要在程序中考慮加密和解密的問題），那針對有密碼的文件通過資料庫連接字元串來進行連接訪問呢？下面是我在網路上找到的一些解決方案。收集起來以備後用。
access資料庫加密分3種
以下以access xp為例
1、工具 -> 安全-> 加密/解密資料庫，打開時無需任何更改
2、工具 -> 安全-> 設置資料庫密碼，打開密碼為 1 打開時需要使用
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.mdb;User ID=admin;Password=;Jet OLEDB:Database Password=1"

也可以用
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.mdb;User ID='admin';Password=;Jet OLEDB:Database Password='1'"

3、工具 -> 安全-> 用戶組與許可權 .... ，用戶名為 admin 密碼為 rr 用戶組文件為 c:\system.mdw，打開時需要使用
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.mdb;User ID=admin;Password=rr;Jet OLEDB:Database Password=1;Jet OLEDB:System database=c:\system.mdw"

也可以用
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\1.mdb;User ID='admin';Password='rr';Jet OLEDB:Database Password='1';Jet OLEDB:System database=c:\system.mdw"

如果在區域網上共享訪問資料庫，只要將絕對路徑更改為 "\\計算機名\共享目錄名\文件名.MDB" 即可，比如
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\access911\floder1\1.mdb;User ID='admin';Password='rr';Jet OLEDB:Database Password='1';Jet OLEDB:System database=\\access911\floder1\system.mdw"

直接在連接字串裡面定義 MODE 屬性達到獨占/公享等目的也是可以的，比如：
JetOLEDB:GlobalPartialBulkOps=2;JetOLEDB:RegistryPath=;JetOLEDB:DatabaseLockingMode=1;JetOLEDB:DatabasePassword=;DataSource=D:\db.mdb;Password=;JetOLEDB:EngineType=5;JetOLEDB:GlobalBulkTransactions=1;Provider=Microsoft.Jet.OLEDB.4.0;JetOLEDB:Systemdatabase=;JetOLEDB:SFP=False;ExtendedProperties=;Mode=ShareDenyNone;JetOLEDB:NewDatabasePassword=;JetOLEDB:CreateSystemDatabase=False;JetOLEDB:Don'tCopyLocaleonCompact=False;JetOLEDB:CompactWithoutReplicaRepair=False;UserID=Admin;JetOLEDB:EncryptDatabase=False

注意：Access 2007 在數據格式上有了很大變化，因此數據提供者已經不是 jet db 4.0 了，Microsoft.ACE.OLEDB.12.0 才是 *.accdb 的數據提供者。
Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Documents and Settings\chenge\My Documents\資料庫1.accdb;Mode=Share Deny Read|Share Deny Write;Extended Properties="";Jet OLEDB:System database=C:\Documents and Settings\chenge\Application Data\Microsoft\Access\System.mdw;Jet OLEDB:Registry Path=Software\Microsoft\Office\12.0\Access\Access Connectivity Engine;Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;Jet OLEDB:Support Complex Data=True

D. 怎麼在delphi中用程序創建一個acess資料庫文件，並創建一個表（

var
MyAccess: TAccessApplication;//要加入access
FileName: WideString;
//************************
var ADOConnection:TADOConnection; //這個語句一定要加入adoconnection控制項 ,或者要加入uses adodb;
ADOQuery:TADOQuery;
temppath:string;//存放臨時目錄
tb:boolean;//檢查文件是否存在
begin
try
//首先判斷是否有這個資料庫
tb:= fileexists(edit1.Text );
if tb then
exit; //如果資料庫存在就退出
MyAccess := TAccessApplication.Create(Self);
// myaccess.CloseCurrentDatabase ;//close database engin
FileName := edit1.Text ; //如果路徑不存在,程序不會自動創建
MyAccess.NewCurrentDatabase(FileName);
myaccess.CloseCurrentDatabase;
MyAccess.Disconnect;
MyAccess.Free;

//以上建庫完畢 ,下面開始創建表和欄位
ADOConnection:=TADOConnection.Create(self);
ADOConnection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+edit1.Text +';'+'Persist Security Info=False';
ADOConnection.LoginPrompt:=false;
ADOQuery:=TADOQuery.Create(self);
ADOQuery.Connection:=ADOConnection;
ADOQuery.SQL.Text:='Create Table Tab1 ( ID1 counter , Name1 integer, Age1 integer,Date1 string,c_date date)';
try
ADOConnection.Open;
ADOQuery.ExecSQL;
//*****************
adoconnection.Close ;
adoquery.Close ;
adoconnection.Free ;
adoquery.Free ;
//myaccess.Destroy ;
except
showmessage('建表失敗!');
exit;
end;

// myaccess.CloseCurrentDatabase;
// MyAccess.Disconnect;
// MyAccess.Free;
except
raise ewin32error.Create('資料庫創建錯誤....');
myaccess.Free;
exit;
end;

自己看一下吧

E. Delphi程序中怎樣創建一個Access資料庫

如果是創建一個
access
資料庫，最簡單的辦法是先用
access
軟體建立一個空的
access
資料庫文件(*.mdb)，然後再程序中復制到指定文件夾中。
也可以嘗試使用
Ole
建立，以下是示例代碼：
1234567procere TForm1.Button1Click(Sender: TObject);var CreateAccess:OleVariant;begin CreateAccess:=CreateOleObject('ADOX.Catalog'); CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb');end;
注意：建立資料庫，與建立資料庫中的表，不是同一種操作。