有现成的代码最好,谢谢了,我是新手

解决方案 »

  1.   

    添加一个DataSource、一个ADOQuery、一个DBGrid
    然后将DBGrid的DataSouce选择为DataSource1,将DataSource1的DataSet选择为ADOQuery1
    在ADOQuery1的ConnectionString中选择数据库然后添加一个Button
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      With ADOQuery1 do
      begin
        Close;
        SQL.Text := 'select * from TabelName;
        Open;
      end;
    end;
      

  2.   

    SQL.Text := 'select * from TabelName'; //刚才少了一个'
      

  3.   

    SQL Server2000
    const
      sqlcstr = 'provider=sqloledb.1;'+
                'password=%s;'+
                'user id=%s;'+
                'persist security info=true;'+
                'initial catalog=%s;'+
                'data source=%s';adoconnection1.ConnectionString:=format(sqlcstr,[edit5.Text,edit4.Text,edit3.Text,edit2.Text]);
    adoconnection1.Open;
      

  4.   

    你新建一个文本文件,然后把该文件的后缀名改为.udl 双点击打开,然后按那个提示来设置。完成后再用文本的形式打开,就会得到连接字符串了
    在程序中可以直接用控件调用该文件也行,也可以参考那个连接字符串来用。