提个老问题:不用控件用ADO分别给出连接MDB和SQL7.0或者SQL2000的方法,多谢多谢各位大侠! 本人以前一直用开发此类这次要用DELPHI所以请各位高手指点指点啦!分数可能不多,但希望大家不要吝啬. 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 建议看看AdoInt单元,里面有详细的ado com的申明,你可以直接使用Microsoft OLE DB Provider for SQL Server 错误 '80040e31' 超时已过期 /Expert/reply.asp,行105 建议看看AdoInt单元,里面有详细的ado com的申明,你可以直接使用Microsoft OLE DB Provider for SQL Server 错误 '80040e31' 超时已过期 /Expert/reply.asp,行105 var adoconn:TAdoConnection; strCnn: WideString; strPath:WideString;begin adoconn:=TAdoconnection.Create(self); strPath := ExtractFilePath(Application.ExeName) +'Data\DevDB.mdb'; //路径 strCnn :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'; //连接串 strCnn :=strCnn + 'Data Source= ' +strPath+';'; strCnn :=strCnn + 'Persist Security Info=False'; adoconn.ConnectionString:=strCnn adoconn.LoginPrompt:=False; adoconn.Connected:=True; adoquery1.Close; adoquery1.Connection:=adoconn; adoquery1.Open;end; 连接SQLServer思想大致相同,工作忙就不回了,建议你用Ini比较方便! var adoConnection,adoRecordset: Variant;begin adoConnection := CreateOleObject('ADODB.Connection'); adoRecordset := CreateOleObject('ADODB.Recordset'); adoConnection.Open("连接字符串"); adoRecordset.CursorLocation := adUseClient; adoRecordset.Open("select * from yourtable",adoConnection,1,3);end; 急~~求高手~~~delphi dbgrid問題 怎么让richedit指定字体变色 请问有没有简单的办法判断一个字符串或数值是否包含在一个数组中? 全局变量问题 100分 关于界面的求教 如何让cxGrid根据从属关系展开?谢谢! 招聘人员Delphi 程序员(广东东莞) 数据输入的问题 delphi与中控考勤机 用了SkinData后edit不能选中 怎么让鼠标移到某个button上就在状态拦上显示相应的注解? 高手们请进,问你们几个初级问题!
Microsoft OLE DB Provider for SQL Server 错误 '80040e31' 超时已过期 /Expert/reply.asp,行105
Microsoft OLE DB Provider for SQL Server 错误 '80040e31' 超时已过期 /Expert/reply.asp,行105
adoconn:TAdoConnection;
strCnn: WideString;
strPath:WideString;
begin
adoconn:=TAdoconnection.Create(self);
strPath := ExtractFilePath(Application.ExeName) +'Data\DevDB.mdb'; //路径 strCnn :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;'; //连接串
strCnn :=strCnn + 'Data Source= ' +strPath+';';
strCnn :=strCnn + 'Persist Security Info=False'; adoconn.ConnectionString:=strCnn
adoconn.LoginPrompt:=False;
adoconn.Connected:=True; adoquery1.Close;
adoquery1.Connection:=adoconn;
adoquery1.Open;
end;
adoConnection,adoRecordset: Variant;
begin
adoConnection := CreateOleObject('ADODB.Connection');
adoRecordset := CreateOleObject('ADODB.Recordset');
adoConnection.Open("连接字符串");
adoRecordset.CursorLocation := adUseClient;
adoRecordset.Open("select * from yourtable",adoConnection,1,3);
end;