我用了adotable控件,如以下代码修改
AdoTable1.Connection :=AdoConnection1;
AdoDataSet1.Open;
AdoDataSet1.Post;
AdoDataSet1.Close;
以下删除:
AdoTable1.Connection :=AdoConnection1;
AdoTable1.Open;
AdoTable1.Delete;
AdoTable1.Close;
显示没有表名。
添加记录是:
sql:='insert into T2000(xingming,xingbie,banji,zhuanyemingcheng,xueli,ruxueshijian,biyeshijian,jiatingzhuzhi,jiatingyoubian,jiatingdianhua,gongsimingcheng,gongsidianhua,gongsidizhi,gongsiyoubian) values("cao","男","","","中专","2000","","","","","","","","")'
AdoConnection1.Close;
AdoConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False';
AdoDataSet1.Connection :=ADOConnection1;
AdoDataSet1.CommandText :=sql;
// DataSource1.DataSet :=AdoDataSet1;
AdoDataSet1.Open;
错误是找不到表或查询。帖子可以加分的。谢谢
AdoTable1.Connection :=AdoConnection1;
AdoDataSet1.Open;
AdoDataSet1.Post;
AdoDataSet1.Close;
以下删除:
AdoTable1.Connection :=AdoConnection1;
AdoTable1.Open;
AdoTable1.Delete;
AdoTable1.Close;
显示没有表名。
添加记录是:
sql:='insert into T2000(xingming,xingbie,banji,zhuanyemingcheng,xueli,ruxueshijian,biyeshijian,jiatingzhuzhi,jiatingyoubian,jiatingdianhua,gongsimingcheng,gongsidianhua,gongsidizhi,gongsiyoubian) values("cao","男","","","中专","2000","","","","","","","","")'
AdoConnection1.Close;
AdoConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Security Info=False';
AdoDataSet1.Connection :=ADOConnection1;
AdoDataSet1.CommandText :=sql;
// DataSource1.DataSet :=AdoDataSet1;
AdoDataSet1.Open;
错误是找不到表或查询。帖子可以加分的。谢谢
所有的操作都可以通过TADOQquery进行操作
同时,这儿进行各种操作都与QUERY里的一样;
tadoquery.adoconnection:=Tadoconnection;
接下来,你就可以作你的事了;
一般返回只读数据集
结果在dbgrid中,然后在里面修改和删除,该如何做
AdoQuery1.Close;
AdoQuery1.Open;
AdoQuery1.Edit ;
AdoQuery1.Post;
这种方法修改也不管用呀,没有错误,不过改变没有反应。