1 2 //--------------------------------------------------------------------------- 3 4 #include <vcl.h> 5 #include <ADODB.hpp> 6 #pragma hdrstop 7 8 #include "Unit1.h" 9 //--------------------------------------------------------------------------- 10 #pragma package(smart_init) 11 #pragma resource "*.dfm" 12 TForm1 *Form1; 13 //--------------------------------------------------------------------------- 14 __fastcall TForm1::TForm1(TComponent* Owner) 15 : TForm(Owner) 16 { 17 } 18 //--------------------------------------------------------------------------- 19 20 void __fastcall TForm1::Button1Click(TObject *Sender) 21 { 22 AnsiString sSQL = "Create Table Table name "; 23 sSQL += "(Radif BigInt IDENTITY(1,1) Primary Key, "; 24 sSQL += "Number Nchar(20) Not Null, "; 25 sSQL += "Semat Nchar(30), "; 26 sSQL += "About Nchar(50) Not Null, "; //Create Table With Example Field DataBase 27 sSQL += "OLEDoc Image Not Null);"; 28 29 ADOCommand1->CommandText = sSQL; 30 ADOCommand1->Execute(); 31 32 33 } 34 //---------------------------------------------------------------------------