各位大虾:
黑心老板给我一个紧急任务,要求用delphi,这不,看书来不及了,只好看实例,我刚开始学,看到下面这段代码,我运行老是说无法连接一个信任的数据库,我知道是配置文件不对,但我不知道具体的user和password是什么,servername应该是我的机器名吧,好像他的代码里面也没有具体到哪个数据库啊,我打开企业管理器,发现里面有好几个数据库(我只能看到每个库的用户名,密码没有啊),我记不起我安装时设定了密码没有,好像没有,大哥大姐们能帮我解释一下吗?
另外,这个procedure TDM_1.DataModuleCreate(Sender: TObject);事件过程是什么时候创建的啊,是自动生成的吗?怎么生成这个事件过程?
谢谢!
Sys.ini文件的内容如下:
;数据库连接参数
[database]
servername=pipo
user=sa
password=aaaprocedure TDM_1.DataModuleCreate(Sender: TObject);
var
filename,t_datasource,t_user,t_password:string;
myinifile:TIniFile;
i:integer;
begin
//连接sql数据库数据库
mydata.Connected:=false;
filename:=Extractfilepath(Application.ExeName)+'\Database\Sys.ini';
if not FileExists(filename)then
begin
Showmessage('请检查sys.ini文件是否存在');
application.Terminate;
end;
myinifile:=tinifile.Create(filename);
t_datasource:=myinifile.ReadString('database','servername','');
t_user:=myinifile.ReadString('database','user','');
t_password:=myinifile.ReadString('database','password','');
myinifile.Destroy;
mydata.ConnectionString:='Provider=SQLOLEDB.1;Password='+t_password+';'+
'Persist Security Info=True;User ID='+t_user+';Initial Catalog=Test_DB;Data Source='+t_datasource;
try
mydata.Connected:=true; except
for i :=0 to Mydata.Errors.Count-1 do
begin
showmessage(Mydata.Errors.Item[i].Description+#10#13+
Mydata.Errors.Item[i].Source+#10#13+
Mydata.Errors.Item[i].HelpFile+#10#13+
Mydata.Errors.Item[i].SQLState+#10#13
);
end;
ShowMessage('数据库连接失败,请配置系统文件后');
Application.Terminate;
end;
end;
__________________________________________________________________________
黑心老板给我一个紧急任务,要求用delphi,这不,看书来不及了,只好看实例,我刚开始学,看到下面这段代码,我运行老是说无法连接一个信任的数据库,我知道是配置文件不对,但我不知道具体的user和password是什么,servername应该是我的机器名吧,好像他的代码里面也没有具体到哪个数据库啊,我打开企业管理器,发现里面有好几个数据库(我只能看到每个库的用户名,密码没有啊),我记不起我安装时设定了密码没有,好像没有,大哥大姐们能帮我解释一下吗?
另外,这个procedure TDM_1.DataModuleCreate(Sender: TObject);事件过程是什么时候创建的啊,是自动生成的吗?怎么生成这个事件过程?
谢谢!
Sys.ini文件的内容如下:
;数据库连接参数
[database]
servername=pipo
user=sa
password=aaaprocedure TDM_1.DataModuleCreate(Sender: TObject);
var
filename,t_datasource,t_user,t_password:string;
myinifile:TIniFile;
i:integer;
begin
//连接sql数据库数据库
mydata.Connected:=false;
filename:=Extractfilepath(Application.ExeName)+'\Database\Sys.ini';
if not FileExists(filename)then
begin
Showmessage('请检查sys.ini文件是否存在');
application.Terminate;
end;
myinifile:=tinifile.Create(filename);
t_datasource:=myinifile.ReadString('database','servername','');
t_user:=myinifile.ReadString('database','user','');
t_password:=myinifile.ReadString('database','password','');
myinifile.Destroy;
mydata.ConnectionString:='Provider=SQLOLEDB.1;Password='+t_password+';'+
'Persist Security Info=True;User ID='+t_user+';Initial Catalog=Test_DB;Data Source='+t_datasource;
try
mydata.Connected:=true; except
for i :=0 to Mydata.Errors.Count-1 do
begin
showmessage(Mydata.Errors.Item[i].Description+#10#13+
Mydata.Errors.Item[i].Source+#10#13+
Mydata.Errors.Item[i].HelpFile+#10#13+
Mydata.Errors.Item[i].SQLState+#10#13
);
end;
ShowMessage('数据库连接失败,请配置系统文件后');
Application.Terminate;
end;
end;
__________________________________________________________________________
解决方案 »
- 用ExcelApp.cells[3,3].value,取单元格的值时不是我想要的时间,这个怎么办
- 用DELPHI制作可以把文件和EXE文件打包成SETUP.EXE的方法。
- 关于远程传送SQL Server数据的问题
- 怎么搞能把DPR中说有的FORM的ICON换成我想要的?
- 怎样在网络中传输大于$FFFF,小于$FFFF FFFF的integer?
- 请问提醒或闹钟用哪种方法最好?
- 本人想做一个内部网的点对点文件传输,要求两端有进度条显示。现在实现了把文件整块的读入buffer,整块的输出和接收。不知道下面该如何做
- 如何处理网络连接失败的响应?
- 改变无边框窗体的大小
- 怎样可以使程序一直都在前台,又怎样可以在程序结束以前使以后所有的程序都不运行,等程序结束以后才开始运行
- 面试题目?有意思....
- 急,导入到Excel中的问题
sp_password null,'新密码','sa'
~~~~~~~把sa密码改称aaa
如果知道﹐或者沒有密碼﹐只要在ado的連接控件做一些屬性設置就可以連接了。
每苯介紹數據庫的delphi書都有的。