1.ADO组件数据库的连接
ADConnection1.ConnectionString :='Provider=MSDAORA.1;Password=hundsun;User ID=hs_aas;Data Source=AAS_HYDEVPUB';//设置数据库连接参数 ADOOConnection1.CommandTimeout :=30; ADOConnection1.KeepConnection :=True; ADOConnection1.ConnectOptions := coAsyncConnect; try ADOConnection1.Close; ADOConnection1.Open; except Exit; end;
设置一些连接参数,可以保持连接。
2.Query组件
query组件可以设置连接参数 qry1.Connection := renwu.F