简单问题:如何用ADO连接数据库? 就是我不想用桌面数据库,直接用ADO连接,用一个变量获得程序路径,然后在连接字符串中如何操作?能否给出源码?谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 str:=ExtractFilePath(application.ExeName)+'111.mdb';ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+str+';Persist Security Info=False';adoconnection1.Connected:=true; 稍微详细一点var sconstr:string;//连接字符 sdbpath:string;//路径 smm:string;begin smm:='gggggggggg';//密码 try G_StrExePath:=ExtractFilePath(Application.ExeName);//应用程序路径 sdbpath:=G_StrExePath+'AA67.bmq'; sconstr:='Provider=Microsoft.Jet.OLEDB.4.0;'+ 'User ID=Admin;Data Source='+sdbpath+';'+ 'Mode=Share Deny None;Extended Properties="";'+ 'Locale Identifier=2052;Persist Security Info=False;'+ 'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+ 'Jet OLEDB:Database Password='+smm+';'+ 'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;'+ 'Jet OLEDB:Global Partial Bulk Ops=2;'+ 'Jet OLEDB:Global Bulk Transactions=1;'+ 'Jet OLEDB:New Database Password="";'+ 'Jet OLEDB:Create System Database=False;'+ 'Jet OLEDB:Encrypt Database=False;'+ 'Jet OLEDB:Don''t Copy Locale on Compact=False;'+ 'Jet OLEDB:Compact Without Replica Repair=False;'+ 'Jet OLEDB:SFP=False'; if DM1.ADOCn1.Connected = True then DM1.ADOCn1.Connected:=False; DM1.ADOCn1.ConnectionString:=sconstr; DM1.ADOCn1.Connected:=True; except Application.MessageBox('无法连接数据库!','错误',MB_OK+MB_ICONSTOP); Halt; end;end; 如何用ADO连接accsee数据库:首先放置一个ADOConnection控件ADOConnection1;然后双击该控件,在弹出窗口中选择build..按钮;在弹出的“数据连接属性”框中的“提供程序”页选择并双击:“Microsoft Jet 4.0 OLE DB Provider”到连接页;选择或输入数据库名称,测试一下就OK了;如果有密码,就在“数据连接属性”对话框选择“所有”(*特别注意:不是在“连接”页上去掉“空白”钩填密码的*)页在属性值中输入你的密码。LoginPrompt设为false,就不会弹出密码框了。然后放置一个ADOQuery1,将Connection 设为ADOConnection1;在SQL属性上点三个点的小按钮,输入:select * from 表名;再放一个DataSource1:Dataset属性设为ADOQuery1;再放一个DBGrid1:DataSource属性设为DataSource1;选择ADOQuery1,将Active设为True;DBGrid1中是不是显示了数据.更多事例见:http://www.kaer.cn/default.aspx////////////////////////////////////////////////////////////////////用ADO连接SQL SERVER数据库:首先放置一个ADOConnection控件ADOConnection1;然后双击该控件,在弹出窗口中选择build..按钮;在弹出的“数据连接属性”框中的“提供程序”页选择并双击:“Microsoft OLE DB Provider for SQL Server”到连接页;服务器名称中输入你的服务器名,下拉应当可以找到,也可以填SQL服务器的IP地址;登录方式由你根据你的SQL数据库安装情况选择,如果是使用用户名称和密码,最好将允许保存密码钩上;然后选择数据库(例如:master)。测试一下就OK了。LoginPrompt设为false,就不会弹出密码框了。然后放置一个ADOQuery1,将Connection 设为ADOConnection1;在SQL属性上点三个点的小按钮,输入:select * from MSreplication_options;再放一个DataSource1:Dataset属性设为ADOQuery1;再放一个DBGrid1:DataSource属性设为DataSource1;选择ADOQuery1,将Active设为True;DBGrid1中是不是显示了数据。////////////////////////////////////////////////////////////// 上边是静态实现的,只要将ADOConnection1.ConnectionString属性动态付值就是你所要的效果 可以把连接参数写入INI文件,而动态从INI文件中读取,然后拼在一起就是你想要的结果.这样也有助于你改变数据库. 用ADOX的EDITCONNECTIONSTRING吧,让用户自己选择建立连接字符串 同意楼上的意见,那样会更直接..但要在interface中增加单元uses ADOConEd;begin EditConnectionString(ADOConnection1);end; 请问为什么数据函数成功执行后,我断电数据还是保存不了,有没有什么解决方法? 字符串问题 新手美女提问:怎样给BUTTON按钮写双击事件? 请问一下为什么dbgrid,输入数据的时候,每次只能输入小于一位数字啊?在线等待! 窗体的问题? 如何操作画布上多幅图中的其中一幅 疑惑,关于斑竹!? 高分求udp实现文件传送的例程,立刻给分。 安装过kylix吗 请问如何在过滤时实现部分匹配. 对我而言是个高难度的问题! Delphi中如何实现mask算法
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+str+';Persist Security Info=False';
adoconnection1.Connected:=true;
sconstr:string;//连接字符
sdbpath:string;//路径
smm:string;
begin
smm:='gggggggggg';//密码
try
G_StrExePath:=ExtractFilePath(Application.ExeName);//应用程序路径
sdbpath:=G_StrExePath+'AA67.bmq';
sconstr:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'User ID=Admin;Data Source='+sdbpath+';'+
'Mode=Share Deny None;Extended Properties="";'+
'Locale Identifier=2052;Persist Security Info=False;'+
'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password='+smm+';'+
'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;'+
'Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;'+
'Jet OLEDB:SFP=False';
if DM1.ADOCn1.Connected = True then DM1.ADOCn1.Connected:=False;
DM1.ADOCn1.ConnectionString:=sconstr;
DM1.ADOCn1.Connected:=True;
except
Application.MessageBox('无法连接数据库!','错误',MB_OK+MB_ICONSTOP);
Halt;
end;end;
如何用ADO连接accsee数据库:
首先放置一个ADOConnection控件ADOConnection1;
然后双击该控件,在弹出窗口中选择build..按钮;
在弹出的“数据连接属性”框中的“提供程序”页选择并双击:“Microsoft Jet 4.0 OLE DB Provider”到连接页;
选择或输入数据库名称,测试一下就OK了;
如果有密码,就在“数据连接属性”对话框选择“所有”(*特别注意:不是在“连接”页上去掉“空白”钩填密码的*)页在属性值中输入你的密码。
LoginPrompt设为false,就不会弹出密码框了。然后放置一个ADOQuery1,将Connection 设为ADOConnection1;
在SQL属性上点三个点的小按钮,输入:select * from 表名;再放一个DataSource1:
Dataset属性设为ADOQuery1;再放一个DBGrid1:
DataSource属性设为DataSource1;选择ADOQuery1,将Active设为True;DBGrid1中是不是显示了数据.更多事例见:http://www.kaer.cn/default.aspx////////////////////////////////////////////////////////////////////用ADO连接SQL SERVER数据库:
首先放置一个ADOConnection控件ADOConnection1;
然后双击该控件,在弹出窗口中选择build..按钮;
在弹出的“数据连接属性”框中的“提供程序”页选择并双击:“Microsoft OLE DB Provider for SQL Server”到连接页;
服务器名称中输入你的服务器名,下拉应当可以找到,也可以填SQL服务器的IP地址;
登录方式由你根据你的SQL数据库安装情况选择,如果是使用用户名称和密码,最好将允许保存密码钩上;
然后选择数据库(例如:master)。测试一下就OK了。
LoginPrompt设为false,就不会弹出密码框了。然后放置一个ADOQuery1,将Connection 设为ADOConnection1;
在SQL属性上点三个点的小按钮,输入:select * from MSreplication_options;再放一个DataSource1:
Dataset属性设为ADOQuery1;再放一个DBGrid1:
DataSource属性设为DataSource1;选择ADOQuery1,将Active设为True;DBGrid1中是不是显示了数据。//////////////////////////////////////////////////////////////
就是你想要的结果.这样也有助于你改变数据库.
但要在interface中增加单元uses ADOConEd;
begin
EditConnectionString(ADOConnection1);
end;