易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi使用ini配置文件连接MS SQL数据库

很早做过的一个delphi项目,把里面用到的技术总结一下,主要是针对象我这样的delphi新手,技术上做个积累吧!
假设我们的数据库配置文件ServerInfo.ini内容如下:
[ServerInfo]  
ServerIP=192.168.1.5
SQLDBName=Data 
SQLUserID=sa  
SQLPwd=  
我们定义一个连接数据库的过程DBConnect内容应如下
procedure TDM.DBConnect();
var
  ini:TiniFile;
  Server,User,Pass,DBName:string;
  begin
      ini := TiniFile.Create(ExtractFilePath(Application.ExeName)+'dbconn.ini');  //初始化ini文件
      Server := ini.ReadString('serverinfo','ServerIP','');  //数据库ip地址
      DBName := ini.ReadString('serverinfo','SQLDBName','');   //数据库名
      User := ini.ReadString('serverinfo','SQLUserID','');  //数据库用户名 
      Pass := ini.ReadString('serverinfo','SQLPwd','');  //数据库密码
    try
      DM.ADOConn.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;'
      +'User ID='+trim(User)
      +';Password='+trim(Pass)
      +';Initial Catalog='+trim(DB)
      +';Data Source='+trim(Server);
      DM.ADOConn.Open ;
    except
      application.MessageBox('数据库连接失败,请检查INI配置文件','提示',64);
      application.Terminate ;
    end;
end;
相信大家都能看懂,注意使用TiniFile类的函数或过程应引入INIFiles单元。


相关文档:

.NET学习手记之:linq to SQL(二)


在Visual Studio 2008 中使用O/R设计器:
点添加项目,选择创建Linq to SQL项目,使用服务器资源管理器连接Northwind数据库,将Customers和Orders两个表拖到设计界面上,系统会自动创建app.config和Northwid.designer.cs,前者是配置连接数据库的连接字串;后者会生成一个继承自DataContext的类:NorthwindDataContext。 ......

Merge SQL 2008

merge [target] t
using [source] s on t.id = s.id
when matched then update t.name = s.name, t.age = s.age -- use "rowset1"
when not matched then insert values(id,name,age) -- use "rowset2"
when source not matched then delete; -- use "rowset3"
MERGE dbo.table AS im ......

Shrink SQL Server 2008 Database + Log File Script

Use DatabaseName
--DB shrink
--获取database 空余空间, 决定是否作shrinkDB
exec [DBNAME].dbo.sp_spaceused
DBCC ShrinkDB(DBNAME)
--Log file shrink
Use DatabaseName
GO
Alter Database DatabaseName Set Recovery Simple
GO
Alter Database DatabaseName Set Recovery Full
GO
DBCC SHRINKFILE ('Log ......

windows 2003下安装 sql server 2000的方法

    我安装的是sql server 2000四合一版本,正常途径直接安装是装不上的,要打什么SP3补丁,不要理它,打开安装包,里边有个MSDE目录,执行setup.exe,安装很顺利,装完之后是没有反应的,重启计算机,然后能看到sql server服务已经启动,这样,就可以正常安装了,执行安装包根目录下的安装程序,按提示一步 ......

MS sql server删除服务器组...

之前为了方便操作就在Sql Server的企业管理器里注册了远程服务器,但是前一段时间在远程服务器上修改了该数据库的密码,每次点击该注册服务器系统要等很长时间,象死机一样;修改连接属性也修改不了,点击后也没有反应,于是就想删除重新注册,既然无法在管理器里删除,就想从注册表里删除,找了好久终于找到了,对应的sql ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号