L
linlky
Unregistered / Unconfirmed
GUEST, unregistred user!
我用ADO连接数据庫(包括两个数据表)。可是连接第一个表时,一切OK。
再连接第二个时一直出错。。以前都不会这样。。。我真是很搞不清楚。。这是为什
么?出错的信息如下:
project project1.exe raised exception class EoleException With message
'From 子語句语法錯误。'。
源代码如下:
procedure TConnect_T.B_ConnectClick(Sender: TObject);
begin
User_Form.Database.Connected:=False;
User_Form.Database.LoginPrompt:=False;
User_Form.Data_Table.Close;
Try
If OpenDialog1.Execute Then
begin
User_form.Database.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+OpenDialog1.FileName+';Persist Security Info=False';
User_Form.Database.Connected:=True;
// User_Form.Data_Table.Connection:=User_Form.Database;
end
Except
Application.MessageBox('No Connection!','数据庫没连接',Mb_Ok);
User_Form.Database.Connected:=False;
User_Form.Data_Table.Close;
end;
end;
procedure TConnect_T.B_TClick(Sender: TObject);
begin
// User_Form.Data_Table.Close;
User_Form.Data_Table.Connection:=User_Form.Database;
User_Form.Data_Table.TableName:=Connect_edit.Text;
User_Form.Data_Table.Open; // (连接第二个表时調試时一直在这里出错,第 一个表一切正常)
Connect_T.Close;
end;
我是一个初学者。请大家多多指教。。。
再连接第二个时一直出错。。以前都不会这样。。。我真是很搞不清楚。。这是为什
么?出错的信息如下:
project project1.exe raised exception class EoleException With message
'From 子語句语法錯误。'。
源代码如下:
procedure TConnect_T.B_ConnectClick(Sender: TObject);
begin
User_Form.Database.Connected:=False;
User_Form.Database.LoginPrompt:=False;
User_Form.Data_Table.Close;
Try
If OpenDialog1.Execute Then
begin
User_form.Database.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+OpenDialog1.FileName+';Persist Security Info=False';
User_Form.Database.Connected:=True;
// User_Form.Data_Table.Connection:=User_Form.Database;
end
Except
Application.MessageBox('No Connection!','数据庫没连接',Mb_Ok);
User_Form.Database.Connected:=False;
User_Form.Data_Table.Close;
end;
end;
procedure TConnect_T.B_TClick(Sender: TObject);
begin
// User_Form.Data_Table.Close;
User_Form.Data_Table.Connection:=User_Form.Database;
User_Form.Data_Table.TableName:=Connect_edit.Text;
User_Form.Data_Table.Open; // (连接第二个表时調試时一直在这里出错,第 一个表一切正常)
Connect_T.Close;
end;
我是一个初学者。请大家多多指教。。。