lazarus连接access数据库

最新推荐文章于 2023-11-10 15:15:53 发布

老狼8848

最新推荐文章于 2023-11-10 15:15:53 发布

阅读量2.9k

点赞数

分类专栏： Lazarus

本文链接：https://blog.csdn.net/bq_cui/article/details/13771473

版权

Lazarus 专栏收录该内容

168 篇文章 21 订阅

订阅专栏

连接：

用控件ODBCConnection

var
  sql: string;
begin

  ODBCConn.Driver:= 'Microsoft Access Driver (*.mdb)';
  ODBCConn.Params.Add('DBQ=D:\0fastdata\' + utf8ToSys('access数据库.mdb'));
  ODBCConn.Params.Add('codepage = UTF8');
  ODBCConn.Open;

  if ODBCConn.Connected then
    memo1.Lines.Add('odbc Conn Access is ok')
  else
    memo1.Lines.Add('odbc Conn Access is error');

  sql:='select * from 单位表';
  SQLQueryAdo.Close;
  SQLQueryAdo.SQL.Clear;
  SQLQueryAdo.SQL.Add(utf8ToSys(sql));
  SQLQueryAdo.Open;

插入数据：

  用TSQLQuery控件

var
  sql: string;
begin
  //
  sql := 'insert into 单位表 (col1) values(''aabbcc'')';
  sql := utf8ToSys(sql);

  try
    SQLQueryCmd.SQL.Text := sql;
    SQLQueryCmd.ExecSQL;
  except
    on E: Exception do
    begin
      log('ACCESS SQL语句执行出错: '+ sql);
      memo1.Lines.Add('ACCESS SQL语句执行出错: '+ sql);
      log(E.Message);
    end;
  end;