我是Delphi的菜鸟,想问一个问题:
如果我不想在一个窗体上放ADO控件,而是想在一个单独的Unit单元中手动创建一个ADO控件,比如TADOConnection,改怎么做?其它单元怎么用它?
有例子请发到:[email protected]
谢谢!一定给分!
如果我不想在一个窗体上放ADO控件,而是想在一个单独的Unit单元中手动创建一个ADO控件,比如TADOConnection,改怎么做?其它单元怎么用它?
有例子请发到:[email protected]
谢谢!一定给分!
解决方案 »
- 关于文本POS查询有问
- 哪位同仁能给我一份RasComp32组件的源代码,非常的感谢,送50分。
- 缓冲区的创建
- 嵌入式窗体如何使用vcl skin啊? 我的窗体是嵌入在主窗体的一个panel上面
- 如何实现即时更新ListView显示内容!
- 求企业生产单位成本的计算方法!
- Error-Accss violation at address 400058FB什么时候会发生?
- 如这样一个查询,怎样在程序中得出所选的一个字段的表名
- 请问ModeMaker6 for delphi 7如何用?
- 在Delphi不能用SQL语句插入变量值吗?
- 请问:我在窗体的onshow事件中调用了buildtree自定义过程,产生treeview各个结点,错误在哪里??
- 请考有关IE扩展的问题
connectstringA ='Provider=MSDataShape.1;Persist Security Info=True;Data Source=';
connectstringB =';;Data Provider=Microsoft.Jet.OLEDB.4.0';procedure DropPrimaryTable(DBFileName: string);
var //删除数据库中原有的表
TN: string;
A: TADOConnection;
T: TADOQuery;
i,j: integer;
smTables: TStringList;
smName: string;
begin
A:=TADOConnection.create(Application);
smTables:=TstringList.Create;
try
A.connectionstring:=connectstringA + DBFileName + connectstringB;
A.LoginPrompt:=False;
A.GetTableNames(smTables,false);
t:=TADOQuery.Create(application);
try
t.Connection:=A;
for i:=smTables.Count - 1 downto 0 do
begin
smName:=smTables.Strings[i];
if copy(smName,length(smName) - 3,4) <> 'back' then
with t do
begin
Close; //删除表
SQL.Text:='drop table '+smName;
ExecSQL;
end;
end;
finally
T.Free;
end;
finally
A.Free;
FreeAndNil(smTables);
end;
end;我的程序中中的一段,看不懂问我
adoco:Tadoconnection;
begin
adoco:=Tadoconnection.Create(nil);
。。然后设置adoco的连接字符串等参数。
end;
我照你的写法做了,可是编译时报错:没有定义Application变量。怎么回事呀?
谢谢!