怎么把数据库的值显示在前台呢,需要哪几个步骤呢
ADOConnection,ADOCommand,ADOQuery,DataSource,DBGrid ,Table,BDEPipeline等控件该怎么用呢,谁关联谁,
请高手给写个例子,数据库名,表名,字段随便写,还有怎么能保存连接数据库,而不需要每次运行都要提示输入密码呢
ADOConnection,ADOCommand,ADOQuery,DataSource,DBGrid ,Table,BDEPipeline等控件该怎么用呢,谁关联谁,
请高手给写个例子,数据库名,表名,字段随便写,还有怎么能保存连接数据库,而不需要每次运行都要提示输入密码呢
ADOConnection ——ADOCommand——DataSource——DBGrid
ADOQuery
在Formshow事件中写代码;
dbgrid1.datasource=datasource1;
datasource1.dataset:=query1;
database1.databasename:='test';
database1.AliasName:='test';
database1.loginprompt:=false;
database1.Params.Values['USER NAME']:='test';
database1.params.values['PASSWORD']:='123'; //已经写进程序,这样就可以直接连DB
query1.databasename:='test';
end;
try
if database1.connected=true then
begin
database1.connected:=false;
end;
dm.Database1.connected:=true;
except on e:exception do
begin
showmessage(e.message);
end;
end;
上面倒数第六行去掉dm.
loginPrompt 设置false。
网上好多这个教程的。
楼主慢慢弄。不急。
1:曾经用过,但不是写在DLL中!
比如:
procedure TMainForm.PrintRep(RepFile:String; DataSrcs:array of TDataSource;
SetMaster:Boolean);
//报表文件名,所用的数据源,是否为主从关系。
另可在设定数据源的过程中,取舍字段及控制字段的显示与否。
procedure TRbReportsForm.SetPipelines(SetMaster:Boolean);
var n:integer;
begin
PipelineCnt := Length(FDataSources);
if PipelineCnt=0 then Exit;
FreeAllPipelines;
SetLength(RepPipelines, PipelineCnt);
for n:=0 to PipelineCnt-1 do begin
RepPipelines[n]:=TppBDEPipeline.Create(Self);
RepPipelines[n].AutoCreateFields:=false;
RepPipelines[n].UserName:='数据表' IntToStr(n 1);
RepPipelines[n].Name:='BDEPipeline' IntToStr(n 1);
RepPipelines[n].DataSource:=FDataSources[n];
首先放置一个adoconnection控件adoconnection1;
然后双击该控件,在弹出窗口中选择build..按钮;
在弹出的“数据连接属性”框中的“提供程序”页选择并双击:“microsoft jet 4.0 ole db provider”到连接页;
选择或输入数据库名称,测试一下就ok了;
如果有密码,就在“数据连接属性”对话框选择“所有”页在属性值中输入你的密码。
loginprompt设为false,就不会弹出密码框了。
然后放置一个adoquery1,将connection 设为adoconnection1;
在sql属性上点三个点的小按钮,输入:select * from 表名;
再放一个datasource1:
dataset属性设为adoquery1;
再放一个dbgrid1:
datasource属性设为datasource1;
选择adoquery1,将active设为true;
dbgrid1中有數據了吧...