procedure formcreate() var {ADOConnection1.provider=sqloledb.1; ADOConnection1.password=sa; ..... } 是这样么?
function InitDBConnect :String; var Buff: array[0..255] of char; WinDir: String; FIni: TIniFile; begin GetWindowsDirectory(Buff, SizeOf(Buff)); WinDir := Buff; if FileExists(WinDir + '\PSMSys.ini') then begin FIni := TIniFile.Create(WinDir + '\PSMSys.ini'); try Result := FIni.ReadString('SQL Server', 'ConnectString',''); finally FIni.Free; end; end else raise ENotFindConfig.Create('找不到系统配置文件PSMSys.ini'); if Length(Result)= 0 then ENotFindConfig.Create('系统配置文件PSMSys.ini被破坏'); end;
比如:这是用ACCESS数据库的: 手工取得: ADOCOnnection1.Connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Documents and Settings\wucf.COM\My Documents\db1.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Database Password="";.......' 看见了Data Source设置了吗?你可以在程序中写成: Data Source=后面的串改成你要动态产生的路径就OK了。
用SQL Server: 1、点击ConnectionString属性,激活Form1.ADOConnection1.ConnectionString字符串编辑对话框,单击Build按钮。 2、提供者选择:Microsoft OLE DB Provider for SQL Server,单击下一步。 3、在1中选择服务器名称,在2中填写登录信息(一般选择"使用指定的用户名称和密码",用户名称:sa,密码为空),在3中选择数据库。 一般来说,就是上面几个步骤!
qxj(borland中国) 您答非所问亚! 我不要如何读ini,我要连数据库!
你把你的用户名和密码可以放在INI中 在ADOQUERY中写呀 with adoquery1 do begin close; sql.clear; sql.add('select *from table'); try open; except showmessage('error'); end;end;
这样就写死啦!!不行!
我手上唯一的那本书讲的全是bde!
急呀!!求救!
var
{ADOConnection1.provider=sqloledb.1;
ADOConnection1.password=sa;
.....
}
是这样么?
var
Buff: array[0..255] of char;
WinDir: String;
FIni: TIniFile;
begin
GetWindowsDirectory(Buff, SizeOf(Buff));
WinDir := Buff; if FileExists(WinDir + '\PSMSys.ini') then
begin
FIni := TIniFile.Create(WinDir + '\PSMSys.ini');
try
Result := FIni.ReadString('SQL Server', 'ConnectString','');
finally
FIni.Free;
end;
end
else
raise ENotFindConfig.Create('找不到系统配置文件PSMSys.ini');
if Length(Result)= 0 then ENotFindConfig.Create('系统配置文件PSMSys.ini被破坏');
end;
手工取得:
ADOCOnnection1.Connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Documents and Settings\wucf.COM\My Documents\db1.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:Database Password="";.......'
看见了Data Source设置了吗?你可以在程序中写成:
Data Source=后面的串改成你要动态产生的路径就OK了。
1、点击ConnectionString属性,激活Form1.ADOConnection1.ConnectionString字符串编辑对话框,单击Build按钮。
2、提供者选择:Microsoft OLE DB Provider for SQL Server,单击下一步。
3、在1中选择服务器名称,在2中填写登录信息(一般选择"使用指定的用户名称和密码",用户名称:sa,密码为空),在3中选择数据库。
一般来说,就是上面几个步骤!
我不要如何读ini,我要连数据库!
在ADOQUERY中写呀
with adoquery1 do
begin
close;
sql.clear;
sql.add('select *from table');
try
open;
except
showmessage('error');
end;end;
关键我的程序写完了,打包成exe后,我连的数据库名改了怎么办?
';User ID=' + Name +
';Password=' + Password +
';Data Source=' + Server +
';Initial Catalog=' + Database +
';Persist Security Info=False';ADOConnection.Connected := true;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB;type
TForm1 = class(TForm)
DataSource1: TDataSource;
ADODataSet1: TADODataSet;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
ADODataSet1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\NWind97.mdb;Persist Security Info=False';
//ADODataSet1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\NWind97.mdb;Persist Security Info=False';
ADODataSet1.CommandText:='Select * From 产品';
ADODataSet1.Open;
datasource1.DataSet:=ADODataSet1;
dbgrid1.Align:= alBottom;
dbgrid1.DataSource:= datasource1;
end;end.
[SQL Server]
ConnectString=Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=PSMDB;Data Source=SMGATE
用adoconnection连接sql
用adodataset连接adoconnection
用datasourceado连接dataset