Delphi如何与SQL数据库连接？

AdoConnection1.ConnectionString:='Provider=SQLOLEDB.1Password=123Persist Security Info=TrueUser ID=saInitial Catalog=SampleData Source=.'

Adoconnection1.LoginPrompt:=False

Adoconnection1.Connected:=True

上面这段代码为SQL数据库的联接方式：最后一句Data Source=. 其中的“.”表示为数据库在本机，如果数据在其它地方，则将点改为IP地址或是服务器名称。 sample是我数据库名,可以改成你自已的,123是密码,也可以改成你自已的

var

propath:string

begin

propath:=ExtractFilePath(Paramstr(0))

adoconnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0Data Source='+propath+'data\lxdata.mdbMode=ReadWritePersist Security Info=False'

adoconnection1.open

end

这个是最简单的，其中propath是得到程序所在目录，数据库是 lxdata.mdb 用的是access数据库

1、新建sql

存储过程

set ANSI_NULLS ON

set QUOTED_IDENTIFIER ON

GO

ALTER PROCEDURE [dbo].[test]

@instr varchar(50), --定义传入变量

@outstr varchar(50) output--定义传出变量

AS

BEGIN

SET NOCOUNT ON

set @outstr=(SELECT name from t where no=@instr)

END2、delphi代码：

var s:string

begin

ADOConnection1.

Connected

:=True

with ADOStoredProc1 do

begin

Close

ProcedureName:='test' //指定存储过程名称

Parameters.Clear

Parameters.CreateParameter('@instr',ftString,pdInput,50,null) //创建一个传入参数

Parameters.CreateParameter('@outstr',ftString,pdOutput,50,null)//创建一个传出参数

Parameters.ParamByName('@instr').Value :=Edit1.Text//传入变量

ExecProc

s:= parameters.ParamByName('@outstr').Value//获取传出变量

end

ShowMessage(s)

---