小弟一直用delphi6开发程序的,最近要做b/s的应用,不得已转到了delphi for .net上来,可是对原来很顺手的数据库操作部门有点摸不到头绪。
一般我原来在delphi6山都用ado的,过程是建立adoconnection,生成adoquery,通过执行adoquery来提交各种sql语句。也就是
1,mysqlquery.close;
2,mysqlquery.sql :='我需要对数据库的各种操作,选择添加删除等'
3,mysqlquery.parm.......用到的参数定义;
4,mysqlquery.open或者excSql.执行sql语句。现在我在delphi8上开发asp.net web application的时候,连的上去,可是我不知道在哪里来提交我自己写的sql语句(包括select,delet等),也就是上面提到的第2,3,4步我怎么实现啊?
拜托各位大哥指点一下小弟啊。delphi8的电子书籍实在是少啊。帮助说得有是泛泛而谈。拜托各位大哥了啊。

解决方案 »

  1.   

    procedure TWebForm1.DataGrid1_UpdateCommand(source: System.Object;
      e: System.Web.UI.WebControls.DataGridCommandEventArgs);
    const
      MyFields = 14;
    var
      MyFieldData: Array [0..MyFields-1] of String;
      i: Integer;
      command: BdpCommand;
    begin
      bdpDataAdapter1.Active := False;
      // retrieve the data from the asp:DataGrid
      for i:=0 to MyFields-1 do
        MyFieldData[i] := (e.Item.Cells[i].Controls[0] as TextBox).Text;
      command := BdpCommand.Create;
      command.Connection := bdpConnection1;
      bdpConnection1.Open();
      // build our own SQL Update statement
      command.CommandText := 'UPDATE ADMINISTRATOR.EMPLOYEE SET ' +
    //  'EMPNO = ' + MyFieldData[0] + ', ' +
        'FIRSTNME = ''' + MyFieldData[1] + ''', ' +
        'MIDINIT = ''' + MyFieldData[2] + ''', ' +
        'LASTNAME = ''' + MyFieldData[3] + ''', ' +
        'WORKDEPT = ''' + MyFieldData[4] + ''', ' +
        'PHONENO = ''' + MyFieldData[5] + ''', ' +
        'HIREDATE = ''' + MyFieldData[6] + ''', ' +
        'JOB = ''' + MyFieldData[7] + ''', ' +
        'EDLEVEL = ' + MyFieldData[8] + ', ' +
        'SEX = ''' + MyFieldData[9] + ''', ' +
        'BIRTHDATE = ''' + MyFieldData[10] + ''', ' +
        'SALARY = ' + MyFieldData[11] + ', ' +
        'BONUS = ' + MyFieldData[12] + ', ' +
        'COMM = ' + MyFieldData[13] + ' ' +
        'WHERE EMPNO = ''' + MyFieldData[0] + '''';
      // execute our own SQL Update statement
      try
        command.ExecuteNonQuery;
      excepton E: Exception do
          Response.Write(E.Message)
      end;
      bdpDataAdapter1.Active := True;
      dataGrid1.EditItemIndex := -1;
      dataGrid1.DataBind // refresh data
    end;

    http://www-106.ibm.com/developerworks/db2/library/techarticle/dm-0401swart/
      

  2.   

    多谢了。分已经给你了。还有一些不明白的地方我另开了一个帖子,麻烦给我指导一下
    http://expert.csdn.net/Expert/TopicView1.asp?id=2914155
    http://expert.csdn.net/Expert/TopicView1.asp?id=2914192