Visual Basic - Error mi codigo VB, pueden decirme cual esel error

Life is soft - evento anual de software empresarial
   
Vista:

Error mi codigo VB, pueden decirme cual esel error

Publicado por Carlos (12 intervenciones) el 01/11/2010 19:18:16
'...Boton:"Capturar Marcacion", captura la marcacion.
Private Sub Command1_Click()
Dim Texto As String
Dim Partes() As String
Dim aux1 As String
Dim aux2 As String
Dim aux3 As String
Dim n1 As Integer
Dim n2 As String
Dim n3 As String
Dim retorno As Integer
Dim Mensaje As String
Dim sql As String
Dim marca As ADODB.Recordset
Dim nro As String
Dim Valor As Long

CommonDialogCapturar.CancelError = True

'...Control de error.
On Error GoTo errcancela
'...Sirve para tener un control de dialogo de algo.
Me.CommonDialogCapturar.Filter = "Todos los Archivos de texto(*.txt)|*.txt"

'...Presenta el cuadro de dialogo del comando CommonDialog.
Me.CommonDialogCapturar.ShowOpen
aux1 = ""
aux2 = ""
aux3 = ""
Mensaje = ""

'...Abre elcuadro de dialogo
Open Me.CommonDialogCapturar.FileName For Input As 1 ' abrimos el archivo de texto
'...Empieza a recorrer el .txt
Do While Not EOF(1)
Line Input #1, Texto
Partes = Split(Texto, ",")
aux1 = aux1 & Partes(0) & vbNewLine
aux2 = aux2 & Partes(1) & vbNewLine
aux3 = aux3 & Partes(2) & vbNewLine
n1 = CInt(Mid(aux1, 1, 3)) 'convierte un string a integer.
n2 = Mid(aux2, 1, 10)
n3 = Mid(aux3, 1, 5)
'MsgBox ("La Marcacion es: " & aux1 & " ," & aux2 & " ," & aux3 & vbCr)
sql = "Select nro_documento from biometric where biometric_cod = '" & n1 & "'"
Set marca = BasedeDatos.Connection1.Execute(sql)

If marca.RecordCount > 0 Then
nro = marca("nro_documento")
retorno = BasedeDatos.PA_Alta_Marcaciones(nro, n2, n3, Mensaje)
If retorno = 0 Then
Me.AdodcMarcacion.Refresh
Me.AdodcMarcacion.Recordset.Find "id_marcacion= " & Valor & "", 0, adSearchForward
End If
Else
MsgBox ("Registro no encontrado"), vbInformation
Exit Sub
End If
aux1 = ""
aux2 = ""
aux3 = ""
Loop

'...Cierra el dialogo
Close #1
MsgBox ("Capturacion exitosa de las marcaciones"), vbInformation
Exit Sub
'...Si se produce un error de lectura, nos avisa.
errcancela:
MsgBox ("No pudo Capturar las marcaciones"), vbInformation
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Error mi codigo VB, pueden decirme cual esel er

Publicado por Antoni Masana (79 intervenciones) el 02/11/2010 08:14:02
Mejor nos dices TU cual es el error y nosotros la solución si la sabemos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar