insert into tablename(field1,field2...) values(val1,val2...)
procedure TForm1.Button1Click(Sender: TObject); var str1,str:string; begin with Query1 do begin Query1.Edit; SQL.Clear; str:='Insert into 学生档案(姓名,班级,政治面目,在校职位,出生日期,联系地址)Values(dbedit1.text,dbedit2.text,dbedit3.text,dbedit4.text,dbedit5.text,dbedit6.text)'; str1:='SELECT 姓名, 班级, 政治面目, 在校职位, 出生日期, 联系地址 FROM "学生档案.db" 学生档案';//'Select * from 学生档案.db'; Query1.SQL.Add(str); Query1.SQl.Clear; Query1.Sql.Add(str1); end end; 我这样写我的程序,请问错在哪里了?
该改成:
procedure TForm1.Button1Click(Sender: TObject); var str1,str:string; begin with Query1 do begin Query1.Edit; SQL.Clear; str:='Insert into 学生档案(姓名,班级,政治面目,在校职位,出生日期,联系地址)Values('''+dbedit1.text+''','''+dbedit2.text+''','''+dbedit3.text+''',''' +dbedit4.text+''','''+dbedit5.text+''','''+dbedit6.text+''')'; str1:='SELECT 姓名, 班级, 政治面目, 在校职位, 出生日期, 联系地址 FROM "学生档案.db" '; SQL.Add(str); execsql; SQl.Clear; Sql.Add(str1); execsql; end; end;
该改成:
procedure TForm1.Button1Click(Sender: TObject); var str1,str:string; begin with Query1 do begin Query1.Edit; SQL.Clear; str:='Insert into 学生档案(姓名,班级,政治面目,在校职位,出生日期,联系地址)Values('''+dbedit1.text+''','''+dbedit2.text+''','''+dbedit3.text+''',''' +dbedit4.text+''','''+dbedit5.text+''','''+dbedit6.text+''')'; str1:='SELECT 姓名, 班级, 政治面目, 在校职位, 出生日期, 联系地址 FROM "学生档案.db" '; SQL.Add(str); execsql; SQl.Clear; Sql.Add(str1); execsql; end; end;
请问为什么要在以下的地方加上'''我用方括号括起来的地方? str:='Insert into 学生档案(姓名,班级,政治面目,在校职位,出生日期,联系地址)Values([''']+dbedit1.text+['''],[''']+dbedit2.text+['''],['']'+dbedit3.text+['''],['''] +dbedit4.text+['''],['']'+dbedit5.text+['''],[''']+dbedit6.text+['''])';
var
str1,str:string;
begin
with Query1 do
begin
Query1.Edit;
SQL.Clear;
str:='Insert into 学生档案(姓名,班级,政治面目,在校职位,出生日期,联系地址)Values(dbedit1.text,dbedit2.text,dbedit3.text,dbedit4.text,dbedit5.text,dbedit6.text)';
str1:='SELECT 姓名, 班级, 政治面目, 在校职位, 出生日期, 联系地址 FROM "学生档案.db" 学生档案';//'Select * from 学生档案.db';
Query1.SQL.Add(str);
Query1.SQl.Clear;
Query1.Sql.Add(str1);
end
end;
我这样写我的程序,请问错在哪里了?
procedure TForm1.Button1Click(Sender: TObject);
var
str1,str:string;
begin
with Query1 do
begin
Query1.Edit;
SQL.Clear;
str:='Insert into 学生档案(姓名,班级,政治面目,在校职位,出生日期,联系地址)Values('''+dbedit1.text+''','''+dbedit2.text+''','''+dbedit3.text+''','''
+dbedit4.text+''','''+dbedit5.text+''','''+dbedit6.text+''')';
str1:='SELECT 姓名, 班级, 政治面目, 在校职位, 出生日期, 联系地址 FROM "学生档案.db" ';
SQL.Add(str);
execsql;
SQl.Clear;
Sql.Add(str1);
execsql;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str1,str:string;
begin
with Query1 do
begin
Query1.Edit;
SQL.Clear;
str:='Insert into 学生档案(姓名,班级,政治面目,在校职位,出生日期,联系地址)Values('''+dbedit1.text+''','''+dbedit2.text+''','''+dbedit3.text+''','''
+dbedit4.text+''','''+dbedit5.text+''','''+dbedit6.text+''')';
str1:='SELECT 姓名, 班级, 政治面目, 在校职位, 出生日期, 联系地址 FROM "学生档案.db" ';
SQL.Add(str);
execsql;
SQl.Clear;
Sql.Add(str1);
execsql;
end;
end;
str:='Insert into 学生档案(姓名,班级,政治面目,在校职位,出生日期,联系地址)Values([''']+dbedit1.text+['''],[''']+dbedit2.text+['''],['']'+dbedit3.text+['''],[''']
+dbedit4.text+['''],['']'+dbedit5.text+['''],[''']+dbedit6.text+['''])';