Delphi入门知识链接数据库(不喜勿喷,高手求赐教)
2020-02-29 21:42
344 查看
unit 数据连接成功;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
strConn,strSQL:string;
begin
ADOConnection1:=TADOConnection.Create(Self);
strConn:='provider=MSDAORA.1;Password=whwy2014;User ID=whwyhis;Data Source=whwyhis;Persist Security Info=True';
ADOConnection1.ConnectionString:=strConn;
ADOConnection1.Open;
if ADOConnection1.Connected then
begin
ShowMessage('数据库连接成功');
end
else
begin
ShowMessage('数据库连接失败');
end;
end;
end.
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
strConn,strSQL:string;
begin
ADOConnection1:=TADOConnection.Create(Self);
strConn:='provider=MSDAORA.1;Password=whwy2014;User ID=whwyhis;Data Source=whwyhis;Persist Security Info=True';
ADOConnection1.ConnectionString:=strConn;
ADOConnection1.Open;
if ADOConnection1.Connected then
begin
ShowMessage('数据库连接成功');
end
else
begin
ShowMessage('数据库连接失败');
end;
end;
end.
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- JAVA入门学习基础知识之数据库MySQL
- sqlite3数据库 入门知识
- 2. oracle学习入门系列之二 数据库基础知识
- (转载)在Delphi中利用MSDASC来配置数据库链接
- *Delphi之DLL知识学习2---静态链接和动态链接
- nodejs+mysql入门实例(链接到数据库)
- Delphi 编写DLL动态链接库文件的知识
- Zend Framework 2 入门实例-Sql Service(MSSQL)数据库链接
- 数据库存储过程入门知识
- ubuntu PostgreSQL数据库从零入门到高手
- Web入门_朽木|学习笔记之第一章-数据库基本知识(1.1-1.7)
- 嵌入式Linux入门基础知识 ---- 链接脚本、汇编语言、混合编程
- 数据库基础知识入门
- 数据库知识----文章链接
- django学习入门二:链接数据库、创建数据库model、学习django的admin模块
- Delphi XE2 之 FireMonkey 入门(31) - 数据绑定: 绑定数据库
- 数据库 入门知识
- Delphi 编写DLL动态链接库文件的知识和样例
- 数据库基础知识--入门必看
- 足彩基础知识入门(4)赛事数据库与预测平台基础概念介绍(一)