Dbgrid cannot display the query results-CodePudding

Use adoquery adotable adoconnection and datasource, dbgrid for simple data query, command button 1 in the query, but the program can run, button did not respond to a query is 1, the content of the dbgrid hasn't changed,
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

#include
# pragma hdrstop

# include "try. H"
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
# pragma package (smart_init)
# pragma resource "*. DFM
"TForm1 * Form1;
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
__fastcall TForm1: : TForm1 (TComponent * Owner)
: TForm (the Owner)
{
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm1: : Button1Click (TObject * Sender)
{
Adoconnection1 - & gt; The Open ();
Adoquery1 - & gt; Close ();
Adoquery1 - & gt; SQL - & gt; The Clear ();
Adoquery1 - & gt; SQL - & gt; Add (" Select * from shujubiao where a='304' ");
Adoquery1 - & gt; Active='true';
Adoquery1 - & gt; The Open ();
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm1: : FormShow (TObject * Sender)
{
SetCurrentDir (ExtractFilePath (Application - & gt; ExeName));//set the current path
String DBFileName=". \ \ total table. MDB ".//the database file (using a relative path)
Adoconnection1 - & gt; The ConnectionString="Provider=Microsoft. Jet. The OLEDB. 4.0. Persist Security Info=False; Data Source="+ DBFileName;
Adoconnection1 - & gt;='true' Connected;
Adotable - & gt; Active='true';

}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm1: : Button2Click (TObject * Sender)
{
Application - & gt; The Terminate ();
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

CodePudding user response:

Adoquery1 - & gt; Active='true';
And
Adoconnection1 - & gt;='true' Connected;

Written as though in Builder6.0 reluctantly compiled by c + +, but can only say that falsely,

DBGrid - & gt; The DataSource, & gt; ADOQuery - & gt; ADOConnection
Association set up yet?

CodePudding user response:

Back to the demon elder brother:
Is my connection is not set, the problem has been resolved, new beginner problems much ah ~

Void __fastcall TForm1: : FormShow (TObject * Sender)
{
SetCurrentDir (ExtractFilePath (Application - & gt; ExeName));//set the current path
String DBFileName=". \ \ total table. MDB ".//the database file (using a relative path)
Adoconnection1 - & gt; The ConnectionString="Provider=Microsoft. Jet. The OLEDB. 4.0. Persist Security Info=False; Data Source="+ DBFileName;
Adoconnection1 - & gt;='true' Connected;
Adotable - & gt; Active='true';
In different machine operation, display error, cannot create files for great god answer!!!!!

CodePudding user response:

Do not recommend using relative paths,

 String DBFileName=ExtractFilePath (ParamStr (0)) + "\ \ total table. MDB". 
Adoconnection1 - & gt; The ConnectionString=
"The Provider=Microsoft. Jet. The OLEDB. 4.0;" 
"Persist Security Info=False;" 
"Data Source=" + DBFileName; 
Adoconnection1 - & gt; Connected=true;

CodePudding user response:

Different machine running or appear; Failed to create file error

CodePudding user response:

Do you run on other machines, the total table. The MDB file exist?

CodePudding user response:

In the same folder

CodePudding user response:

If the total table. MDB put in another folder, prompt can not find the file

CodePudding user response:

refer to 7th floor mayer891027 response:

if the total table. MDB put in another folder, prompt can not find the file

In another folder, you also need to change the path in the code,

CodePudding user response:

Modify the path, or failed to create the file

CodePudding user response:

references 9 f mayer891027 response:

modify the path, or show failed to create file

Don't have to say, in the code,

CodePudding user response:

If the operation code and. MDB together... To remove part of the path only file name...

CodePudding user response:

The database file and run the files in the same folder
Code is as follows: the machine can run, it run link path is wrong,

//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --

#include
# pragma hdrstop

# include "try. H"
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
# pragma package (smart_init)
# pragma resource "*. DFM
"TForm1 * Form1;
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
__fastcall TForm1: : TForm1 (TComponent * Owner)
: TForm (the Owner)
{
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm1: : Button1Click (TObject * Sender)
{
A1 - & gt; The Open ();
Q1 - & gt; Close ();
Q1 - & gt; SQL - & gt; The Clear ();
Q1 - & gt; SQL - & gt; Add (" Select * from shujubiao where material='316' ");
Q1 - & gt; Active='true';
Q1 - & gt; The Open ();
}
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Void __fastcall TForm1: : FormShow (TObject * Sender)
{
String DBFileName=ExtractFilePath (ParamStr (0)) + ". \ \ data \ \ total table. MDB ".
A1 - & gt; nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull