很多刚学Delphi 的朋友在找Delphi连接MSSQL的方法,但发现网上大多是通过ODBC连接 的,实在不方便,也不是我喜欢的类型。
现提供通过字串连接的方式:
连接字串:
- Provider=SQLOLEDB.1;Password=12345;Persist Security Info=True;User ID=UserName;Initial Catalog=DataBaseName;Data Source=123.123.123.123,5678
注意,上面的“5678”为数据库的端口,如果没有特别指定,可以不写;
另:数据库连接时的端口不是用“:”指定,而是“,”。
示例代码:
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=DB_Name;Data Source=1.2.3.4'; //连接指定的数据库
- ADOConnection1.LoginPrompt := False;
- ADOConnection1.Connected := True;
- ADOQuery1.Connection := ADOConnection1; //连接数据源
- with ADOQuery1 do //用ADO组件连接数据表
- begin
- close;
- SQL.Clear;
- SQL.Add('Select * from Table1'); //使用SQL语句查询数据表中的内容
- open;
- end;
- ADOQuery1.Active := True;
- DataSource1.DataSet := ADOQuery1;
- DBGrid1.DataSource := DataSource1;
- end;
转载于:https://blog.51cto.com/mslagee/558806