您所在位置：主题：关于SQL查询问题
boufbou
[专家分：0] 发布于 2006-06-09 12:29:00
void __fastcall TForm1::FormCreate(TObject*Sender)
{
Edit1->Text="";
DBGrid1->DataSource=DataSource1;
DataSource1->DataSet=Query1;
Query1->DatabaseName="d:\\";
Query1->Active=false;
Query1->SQL->Clear();
Query1->SQL->Add("select*from aliass.dbf");
Query1->ExecSQL();
Query1->Active=true;
}
void __fastcall TForm1::Button1Click(TObject*Sender)
{
if(Edit1->Text=="")
{
ShowMessage("请输入编码");
return;
}
else
{
Query1->Active=false;
Query1->SQL->Clear(); 这Clear()是电脑提示的,但在提示的前一个F...
是红色的,是否提示不可用这个功能啊!
Query1->SQL->Add("select*from aliass.dbf where NUMDER="+Edit->Text);
Query1->ExecSQL();
Query1->Active=true;
}
} 只是用来查询一下表格,但总是提示出错!请各位大虾指点一下,小弟在此先谢过!
{
Edit1->Text="";
DBGrid1->DataSource=DataSource1;
DataSource1->DataSet=Query1;
Query1->DatabaseName="d:\\";
Query1->Active=false;
Query1->SQL->Clear();
Query1->SQL->Add("select*from aliass.dbf");
Query1->ExecSQL();
Query1->Active=true;
}
void __fastcall TForm1::Button1Click(TObject*Sender)
{
if(Edit1->Text=="")
{
ShowMessage("请输入编码");
return;
}
else
{
Query1->Active=false;
Query1->SQL->Clear(); 这Clear()是电脑提示的,但在提示的前一个F...
是红色的,是否提示不可用这个功能啊!
Query1->SQL->Add("select*from aliass.dbf where NUMDER="+Edit->Text);
Query1->ExecSQL();
Query1->Active=true;
}
} 只是用来查询一下表格,但总是提示出错!请各位大虾指点一下,小弟在此先谢过!
