Hi All. I have a program in VB4 and works very good. I Wanted to pass old the program to VB6 but I saw that it was slower when save data. Could you tell me why ?.
Private Sub cmdSalvar_Click()
Screen.MousePointer = 11
SQABRE = "SELECT * FROM CLIENTES WHERE (CLIENTES.CLI_CVE = '" & txtCliCve.Text & "')"
Set RSCLIENTES = DBSFF.OpenRecordset(SQABRE, dbOpenDynaset)
With RSCLIENTES
.Edit
!CLI_NOM = TRoim(Ucase(txtCliNom.text))
!CLI_SEX = Trim(UCase(txtCliSex.Text))
!CLI_DIR = Trim(UCase(txtCliDom.Text))
!CLI_CA1 = Trim(UCase(txtDomEnt.Text))
!CLI_COL = cmbColCve.Text
!CLI_TEL = txtCliTel.Text
!CLI_FEN = txtCliFen.Text
!CLI_LUN = Trim(UCase(txtCliLun.Text))
!CLI_CIV = cmbCivCve.Text
!CLI_CON = UCase(txtCliCon.Text)
!CLI_OCU = cmbOcuCve.Text
!CLI_EMP = Trim(UCase(cmbCliLut.Text))
!CLI_DOT = Trim(UCase(txtCliDot.Text))
!CLI_ENT = Trim(UCase(txtDotEnt.Text))
!CLI_COT = cmbCotCve.Text
!CLI_TET = txtCliTet.Text
If IsNull(txtCliBen.Text) Then !CLI_BEN = "" Else !CLI_BEN = Trim(UCase(txtCliBen.Text))
!CLI_GPO = cmbGpoCve.Text
!CLI_TIC = cmbTicCve.Text
!CLI_PRO = cmbPrcCve.Text
!CLI_DOC = Trim(UCase(txtCliDoc.Text))
!CLI_CC1 = Trim(UCase(txtDocEnt.Text))
!CLI_COC = cmbCocCve.Text
!CLI_ESP = Trim(UCase(txtCliEsp.Text))
!CLI_COE = Trim(UCase(txtEspCom.Text))
If IsNull(txtCliCom.Text) Then !CLI_COM = "" Else !CLI_COM = Trim(UCase(txtCliCom.Text))
End With
RSCLIENTES.Update
RSCLIENTES.Close
Screen.MousePointer = 0
End Sub
