=-=-=-=-==-==-=-=-=-==--==-programa=-=-=-=-=-=-=-=-=-=--=-=-=-==-=-==-


Dim total            'variaveis globais
Dim flag As Boolean
---------------------------------------------------------------------------------
Private Sub Command1_Click()
Dim conexao As New ADODB.Connection
Set conexao = New ADODB.Connection
conexao.Open "Provider=ZStyle IBOLE Provider;Data Source=" + App.Path + 
"\teste.gdb" + ";UID=sysdba;password=masterkey"
sql = "insert into 
tabela1(campo1,campo2,campo3,campo4,campo5)values('aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa','aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa','aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa','aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa','aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa')"
i = 0
flag = False
While i < 100000000 And flag = False
    conexao.Execute (sql)
    DoEvents
    i = i + 1
    If (i Mod 100000) = 0 Then ' a cada 100000 registro uma pausa de 5s
       pause
    End If
    total = total + i
    Label1.Caption = CStr(i)
Wend
conexao.Close
MsgBox "Fim"
End Sub
---------------------------------------------------------------------------------
Private Sub Command2_Click()
flag = True
End Sub
---------------------------------------------------------------------------------
Private Sub pause()
Dim a, b As Date
  a = CDate(Format(Now, "HH:MM:SS")) + CDate(Format("00:00:05", "HH:MM:SS"))
  b = Format(Now, "HH:MM:SS")
  While b < a
    DoEvents
    DoEvents
    DoEvents
   b = Format(Now, "HH:MM:SS")
  Wend
End Sub
=-=-=-=-==-==-=-=-=-==--==-fim programa=-=-=-=-=-=-=-=-=-=--=-=-=-==-=-==-




-=-=--=-=-=-=--=-=-=-=--=-==dll da tabela-=--=-=-==-=-=--=-=--=--=-=--=-=-


/******************************************************************************/
/***               Generated by IBExpert 14/09/2006 14:14:30                
***/
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES WIN1252;



/******************************************************************************/
/***                                 Tables                                 
***/
/******************************************************************************/


CREATE GENERATOR GEN_TABELA1_ID;

CREATE TABLE TABELA1 (
    AUTO_ID  BIGINT NOT NULL,
    CAMPO1   VARCHAR(30),
    CAMPO2   VARCHAR(30),
    CAMPO3   VARCHAR(30),
    CAMPO4   VARCHAR(30),
    CAMPO5   VARCHAR(30)
);




/******************************************************************************/
/***                              Primary Keys                              
***/
/******************************************************************************/

ALTER TABLE TABELA1 ADD CONSTRAINT PK_TABELA1 PRIMARY KEY (AUTO_ID);


/******************************************************************************/
/***                                Indices                                 
***/
/******************************************************************************/

CREATE INDEX TABELA1_IDX1 ON TABELA1 (AUTO_ID);


/******************************************************************************/
/***                                Triggers                                
***/
/******************************************************************************/


SET TERM ^ ;


/******************************************************************************/
/***                          Triggers for tables                           
***/
/******************************************************************************/



/* Trigger: TABELA1_BI */
CREATE TRIGGER TABELA1_BI FOR TABELA1
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
  IF (NEW.AUTO_ID IS NULL) THEN
    NEW.AUTO_ID = GEN_ID(GEN_TABELA1_ID,1);
END
^


SET TERM ; ^



/******************************************************************************/
/***                               Privileges                               
***/
/******************************************************************************/