adoQuery1.SQL.Text := 'Insert Into user ([密码]) Values ('''' + edit1.Text + ''' ')'  ;

解决方案 »

  1.   

    最好写出你的代码执行的错误提示,可以节省大家的时间
    adoquery1.sql.clear;前加adoquery1.close;
    'Insert Into user ([密码]) Values (' + '''' + 中‘[]‘需要吗?
      

  2.   

    提示为Too few parameters.expected 1
      

  3.   

    你的adoconnection的连接参数不够,我没连接过access,给你一段参数参考一下吧(sql server的):
    function GetConnectingString(sServerName,sDataBase,
                               sUserID,sPassword : string) : string;
    begin
      Result :=  'Provider=SQLOLEDB.1;'
             + 'User ID=' + sUserID + ';'
             + 'Password = "' + sPassword + '";'
             + 'Extended Properties='
             + '"DRIVER=SQLServer;'
             + 'Address=' + sServerName + ',1433;'
             + 'Network=DBMSSOCN;'
             + 'DATABASE=' + sDataBase + ';"';
    end;
      

  4.   

    procedure TForm4.SpeedButton1Click(Sender: TObject);
    begin
    adoquery1.close;
    adoQuery1.SQL.Clear;
    //adoQuery1.SQL.Add('Insert Into user 姓名,密码 values('小王','''+trim(edit1.text)+''')');
    adoQuery1.ExecSQL;
    end;