lazarus连接access数据库

连接：

    用控件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; 

转载于:https://www.cnblogs.com/cuibq/p/3801840.html