一个简单的ADO问题,请会使用ADO的朋友进来看看!(给分50:只给一个答的最好的!) 我有一个BDE做的程序,可因为BDE不支持SQL中的nvarchar的数据类型,所以,要转到ADO,可是,小弟我不会使用ADO,怎么办呢?后来听说有个CSDN的地方,那里都是高手。所以,就来请教各位。麻烦各位能告诉我,怎么使用ADO的详细方法!小生我在这里谢谢各位了! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 基本上没有区别。把Table换为ADOTable,Query换为ADOQuery.需要注意的事项: 确定所有的ADOQuery、ADOTable、ADOStoredProc等都联接了ADOConnection 对smalldatetime、int、float等类型的参数的赋值必须是合法的值,不能赋空字符串。例如:Else Parameters.ParamValues['@cm_birtdate'] := '';这句删除掉或者把赋的值改为Null即可 所有的ADOQuery、ADOStoredProc的Parameters中,所有的Parameter的ValueType不能是Unassigned 在BDE中,query语句的用法是:query.close;/query.sql.clear;/query.sql.add();/query.open.可是在ADO中呢?用什么语句来写呢?请详细高之!谢谢了!最好能写个例子出来! 不是告诉你了吗?没有什么区别!ADOQuery.Close;ADOQuery.SQL.Clear;ADOQuery.SQL.Add();ADOQuery.Open; 我也刚刚做了一个程序的转化的问题,,就是bde 转为ado的有事联系我!28974959[email protected] 我是用了,ADOConnection1,adoquery,dbgrid,datasource四个组件,可是不能显示,查询语句如下:连接方法仿照的BDEprocedure TForm1.Button1Click(Sender: TObject);var str:string;beginstr:='select * from 目标明细表A1';adoquery1.Close;adoquery1.SQL.Clear;adoquery1.SQL.Add(str);adoquery1.Open;end; 一般来说需要ADOConnection,ADOQuery,DataSource,再就是DBGrid等组件了,大致如下: ADOConnectionFMSDB1.Connected := False; ADOConnectionFMSDB1.ConnectionString := ''; ADOConnectionFMSDB1.ConnectionString := s_IniFile.ReadString('Options','FMSDB1',''); ADOConnectionFMSDB1.Connected := True; s_ADOQuery := TADOQuery.Create(Self); s_ADOQuery.Connection := frmMain.ADOConnectionFMSDB1; s_ADOQuery.Close; s_ADOQuery.SQL.Clear; s_ADOQuery.SQL.Text := 'update pub9007 set parameter_Value='+QuotedStr(Trim(frmSet.edtAmt.Text))+ ',re_='+QuotedStr(Trim(frmSet.cboCur.Text))+ ',modify_user='+QuotedStr(g_User_ID)+ ',modify_date='+QuotedStr(DateTimeToStr(now))+ ',modify_Office='+QuotedStr(g_Office_Code)+ ' where System_Code =''DOC'''+ ' and Parameter_Type=''CHARGE'''+ ' and Parameter_Name=''DOC'''; s_ADOQuery.ExecSQL; adoquery,datasource,dbgrid,设置adoquery的ConnectionString属性和datasource的Dataset属性,dbgrid再连接datasource Delphi的帮助放在那里,为什么不看呢?里面就有例子! delphi2010 ADO连接DBF 自创类TDate 和 原TDate 有舍分别?? 请教:在IE中调用自己编写的Activex Form控件,使用了opendialog控件,为什么返回的文件名是乱码? 你一定做过,请叫一下! 一个TABLE1.locate的问题 怎样选中dbgrid记录中的一条并将其中的字段付给edit1,edit2...激发事件是按下按钮时 数值型问题: 如何使listbox各行的字体颜色不同? 请问:如何在应用程序的两个窗体之间进行通信 写给chechy! 关于数据库恢复! delphi动态申请的空间,在VC中是不是就不能用
把Table换为ADOTable,Query换为ADOQuery.
需要注意的事项:
确定所有的ADOQuery、ADOTable、ADOStoredProc等都联接了ADOConnection 对smalldatetime、int、float等类型的参数的赋值必须是合法的值,不能赋空字符串。例如:Else Parameters.ParamValues['@cm_birtdate'] := '';这句删除掉或者把赋的值改为Null即可
所有的ADOQuery、ADOStoredProc的Parameters中,所有的Parameter的ValueType不能是Unassigned
可是在ADO中呢?用什么语句来写呢?请详细高之!谢谢了!最好能写个例子出来!
ADOQuery.Close;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add();
ADOQuery.Open;
有事联系我!28974959
[email protected]
procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
str:='select * from 目标明细表A1';
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add(str);
adoquery1.Open;
end;
ADOConnectionFMSDB1.ConnectionString := '';
ADOConnectionFMSDB1.ConnectionString := s_IniFile.ReadString('Options','FMSDB1','');
ADOConnectionFMSDB1.Connected := True;
s_ADOQuery := TADOQuery.Create(Self);
s_ADOQuery.Connection := frmMain.ADOConnectionFMSDB1;
s_ADOQuery.Close;
s_ADOQuery.SQL.Clear;
s_ADOQuery.SQL.Text := 'update pub9007 set parameter_Value='+QuotedStr(Trim(frmSet.edtAmt.Text))+
',re_='+QuotedStr(Trim(frmSet.cboCur.Text))+
',modify_user='+QuotedStr(g_User_ID)+
',modify_date='+QuotedStr(DateTimeToStr(now))+
',modify_Office='+QuotedStr(g_Office_Code)+
' where System_Code =''DOC'''+
' and Parameter_Type=''CHARGE'''+
' and Parameter_Name=''DOC''';
s_ADOQuery.ExecSQL;