小弟一直用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的电子书籍实在是少啊。帮助说得有是泛泛而谈。拜托各位大哥了啊。
一般我原来在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的电子书籍实在是少啊。帮助说得有是泛泛而谈。拜托各位大哥了啊。
解决方案 »
- 怎么判断数据库是否存在某个存储过程?
- 100分求办公自动化管理系统,c/s结构。
- 如有A表中有个字段AA,怎样使AA字段的值在DBGRID显示5列,多的转为下行显示,如次的下去,知道没有数据为止。
- 救急!在线等待!StringGrid控件的事件问题!
- image1.height:= image1.width*1.5 不行啊,怎办?
- 这段代码的优化
- 有没有遇到过这种问题?
- 算法求解:任意时间段的天数计算
- 请问那位高手一个关于Excell的问题。
- 为什么一定要安装ORACLE客户端才能连接上ORACLE?我做安装程序时把BDE中的ORACLE驱动程序也打包了,还是不行.
- 求助,一个数据类型问题
- 请各位在用Delphi8开发ASP应用程序的朋友过来看看:
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/
http://expert.csdn.net/Expert/TopicView1.asp?id=2914155
http://expert.csdn.net/Expert/TopicView1.asp?id=2914192