DUVIDA COM PROGRESSBAR EM VB6

PADRINHO171 07/08/2013 22:03:41
#427231

Boa noite,

eu uso ADO.

Private Sub Form_Load()
[ô]abre o BD
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
AplicarSkin Me, frmLogin.Skin1

[ô]Desabilita botões
cmdLimpar.Enabled = False
cmdGravar.Enabled = False
cmdCancela.Enabled = False

[ô]Conectar no banco
Qdados = [Ô]Cadastros[Ô]
If con.State = 0 Then
If Conectar = False Then
MsgBox [Ô]Ocorreu um erro ao tentar conectar na base de dados.[Ô], vbExclamation, [Ô]Conectar[Ô]
End
End If
End If

[ô]Monta o recordset inicial
ssql = [Ô]SELECT * FROM Cadastro_Clientes ORDER BY NomeC[Ô]

rs.Open ssql, con, adOpenDynamic, adLockOptimistic

MostraDados

End Sub

==============================================================
Private Sub AtualizaReg()
[ô]Atualizar registros
If rs.EditMode = adEditAdd Or rs.EditMode = adEditInProgress Then

rs![codc] = lblCodC.Caption
rs![NomeC] = txtNome.Text
rs![CNPJ_CPFC] = txtCNPJ_CPF.Text
rs![EnderecoC] = txtEndereco.Text
rs![BairroC] = [Ô][Ô] & txtBairro.Text
rs![CidadeC] = txtCidade.Text
rs![EstadoC] = txtUF.Text
rs![CEPC] = txtCEP.Text
rs![IEC] = [Ô][Ô] & txtIE.Text
rs![BCOC] = [Ô][Ô] & txtBcoCliente.Text
rs![AgC] = [Ô][Ô] & txtAgCliente.Text
rs![CCC] = [Ô][Ô] & txtCCCliente.Text
rs![LimiteC] = IIf(txtLimiteCliente.Text = [Ô][Ô], 0, txtLimiteCliente.Text)
rs![BcoAtl1] = [Ô][Ô] & txtBcoAtl1.Text
rs![BcoAtl2] = [Ô][Ô] & txtBcoAtl2.Text
rs![BcoAtl3] = [Ô][Ô] & txtBcoAtl3.Text
rs![AgAtl1] = [Ô][Ô] & txtAgAtl1.Text
rs![AgAtl2] = [Ô][Ô] & txtAgAtl2.Text
rs![AgAtl3] = [Ô][Ô] & txtAgAtl3.Text
rs![CCAtl1] = [Ô][Ô] & txtCCAtl1.Text
rs![CCAtl2] = [Ô][Ô] & txtCCAtl2.Text
rs![CCAtl3] = [Ô][Ô] & txtCCAtl3.Text
rs![DataCad1] = IIf(dtaCad1.Enabled = False, [Ô][Ô], dtaCad1.Value)
rs![DataCad2] = IIf(dtaCad2.Enabled = False, [Ô][Ô], dtaCad2.Value)
rs![DataCad3] = IIf(dtaCad3.Enabled = False, [Ô][Ô], dtaCad3.Value)
rs![NomeUsuario] = NomeUsuario
rs![DataCadC] = Date

Cad_inclui = False
Cad_altera = False

End If
End Sub