Tekki
|
UBERLÂNDIA MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 10/08/2004 11:24 hs
Seguindo sugestão do Rochª resolve fazer testes com a dll sugerida pelo Bruno. Eu não tinha feito o teste pelo fato dela não ser Free. Mas realmente o Bruno esta correto pois é muito boa. Para mostrar os resultados, criei mais uma tabela no link (É o mesmo link da resposta anterior) Agora o Firebird rendeu bem. Disponibilizei o projetinho para quem quiser fazer os testes. Obs: Conectei ao MDB via ADO e sabemos que conexão DAO é mais rápida. Depois farei alguns testes com DAO.
|
|
|
|
|
Postada em 10/08/2004 19:17 hs
Tekki será que o tipo de conexão tem a ver com a performance do Banco de Dados. Usei outro tipo de conexão com o mesmo provedor (IBProvider), nos testes que vc.postou, só que usando o irmão do Firebird. o Interbase 6, e o resultado foi 2,5 mais rápido que a sua conexão. Se vc. se interessar em testar essa minha conexão? Jacit.
|
|
|
Tekki
|
UBERLÂNDIA MG - BRASIL
|
|
Postada em 11/08/2004 09:19 hs
Jacit, pode ser várias coisas entre elas o seu micro pode ser mais rápido que o meu, o tipo de conexão PODE ter influenciado e o IB6 pode ser mais rápido que o FB, por que não? Eu ainda não li nenhum teste entre o IB6 e o FB, apesar de saber que existem, entretanto como o IB7 é pago mesmo que o FB seja um pouco mais lento eu vou ficar com ele pois assim terei um SGBDR(Sistemas Gerenciadores de Banco de Dados Relacionais) com sem custo. Se eu for usar a IBProvider, não terei um ganho de performance sobre o MDB mas terei controle de acessos simultâneos. Qual foi a conexão que você usou? Teste o FB no seu micro, assim saberemos como ele se comporta no mesmo ambiente de teste. (Se for possível)
|
|
|
|
Postada em 11/08/2004 10:51 hs
Tekki, eu usei assim: Dim Rst As New ADODB.Recordset Dim Cmd As New ADODB.Command Private Sub Command1_Click() Dim T1 As Date adoConn.Open "provider=LCPI.IBProvider.1;Persist Security Info=False;User ID=SYSDBA;" & _ "password=masterkey;Data Source=C:BDadosLocalMBanco.gdb;auto_commit=True" Cmd.ActiveConnection = adoConn T1 = Format(Time, "HH:MM:SS") adoConn.BeginTrans For i = 1 To 50000 Cmd.CommandText = "INSERT INTO tabelateste(Codigo,Nome) Values ( '" & i & "','Nome Da silva = " & i & "')" Cmd.Execute Label1.Caption = i Label1.Refresh Next Label1.Caption = Format(Time - T1, "HH:MM:SS") adoConn.CommitTrans MsgBox Format(Time - T1, "HH:MM:SS") End Sub Obs.: Desculpe a confusão que fiz, ontem no momento do post eu indiquei o nome com que entro noutro site. O correto é Vila
|
|
|
Villa
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 11/08/2004 10:53 hs
Esqueci de dizer que fiz os testes num Computador Durom 1.2, c/ 120 MB Vila
|
|
|
Tekki
|
UBERLÂNDIA MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 11/08/2004 11:21 hs
Vila, se for possível teste o FB e nos informe os resultados. Qual foi o tempo que ele gastou para inserir os 50 mil registros? Os campos eram Codigo(Char10) e Nome(Char50)?
|
|
|