delphi动态连接access数据库

来源:百度知道 编辑:UC知道 时间:2024/05/08 07:46:37
unit Unit1;

interface

const feng:char= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s\数据库\db1.mdb'

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DBText1: TDBText;
DBText2: TDBText;
DBText3: TDBText;
DBText4: TDBText;
Timer1: TTimer;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

feng的类型是不是应该是string?
无法调用会不是是因为代码里有语法错误了?
按ctrl+F9编译一下,如果有错误会提示你。

连接字符串feng在哪里调用了吗?
应该是要把adotable这个控件里的数据库连接属性设置为feng,再才能打开连接吧。况且还不知道你那个连接字符串有没有错误,最好先用完整路径试一下。

因为你没有设置你的常量为adotable的connectionstring属性,
你在添句话:adotable1.connectionstring:=feng;
你在看看行不?
祝你学习愉快