|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
bios (阿贡) |
★☆☆☆☆ |
-
|
盒子中级会员 |
|
2003/7/1 21:03:30 |
标题: |
为什么我这样写ADO创建过程不行呢? |
浏览:2468 |
|
加入我的收藏 |
楼主: |
为什么我这样写ADO创建过程不行呢? resourcestring adocs='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=;Persist Security Info=False'; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s,s2:string; begin s2:=trim(edit1.Text ); s:='create database '+s2; ADOConnection1.Provider :=' Microsoft.Jet.OLEDB.4.0'; ADOConnection1.ConnectionString :=Format(adocs,[s2]); ADOConnection1.LoginPrompt := false; ADOQuery1.Connection :=ADOConnection1; ADOQuery1.SQL.Clear ; ADOQuery1.SQL.Add(s); ADOQuery1.Active :=true; ADOQuery1.Active :=false; s:='create table lianxi2('+#13#10; s:=s+'name char(20),'+#13#10; s:=s+'age number(3))'; ADOQuery1.SQL.Clear ; ADOQuery1.SQL.Add(s); ADOQuery1.Open ; ADOQuery1.Close ; // ADOConnection1.ConnectionString :=Format(adocs,[s2]); DataSource1.DataSet :=ADOQuery1; DBGrid1.DataSource :=DataSource1; s:='select * from lianxi2'; ADOQuery1.SQL.Clear ; ADOQuery1.SQL.Add(s); ADOQuery1.Open ; end; 编译器说:路径找不到,该怎么写才是对的
----------------------------------------------
|
作者: |
|
2003/7/2 8:40:41 |
1楼: |
Format(adocs,[s2]); 你读取数据库文件的路径,可能是这个错了,查一下吧!
----------------------------------------------
-
|
|