Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Problema en el gradado de registros de visual 6
 Foro Bloqueado  Tema Bloqueado


Autor Temas
ENGELAN15
Starting Member

Mexico
5 Posts
Mensajes - 23 Sep 2010 :  16:13:11  Ver Perfil  Enviar Email  Enviar ENGELAN15 un Mensaje ICQ  Enviar ENGELAN15 un Mensaje Yahoo!
Hola amigos he estado checando varias soluciones y me sigue marcando el mismo error dice que falta el operador en la linea de codigo les adjunto mi codigo aver que pueden hacer por el porfavor espero respuesta

Public Sub Agrega_Datos_10(CveCon As String, CveCot As String, Fecha As String, Mes As Integer, Año As Integer, CveCli As String, NomCli As String, Contacto As String, Direccion As String, Colonia As String, Cp As String, RFC As String, Tel As String, Lugar As String, Ant As String, Obs1 As String, Obs2 As String, Obs3 As String, CantLetra As String, Total As String)
If TxtCveCon <> "" Then
RegistrosDaniel.Open "INSERT INTO Contratos_Remp10 (CveCont,CveCot,Fecha,Mes,Año,CveCli,NomCli,Contacto,Direccion,Colonia,Cp,RFC,Tel,Lugar,Ant,Obs1,Obs2,Obs3,CantLetra,Total) VALUES('" & TxtCveCon & "','" & ClaveCombo(CmbCveCot, "izq") & "','" & TxtFecha & "','" & ClaveCombo(cmbMes, "izq") & "'," & txtAño & "," & TxtCveCli & ", " & TxtNomCli & "," & TxtContacto & ",'" & TxtDireccion & "','" & TxtColonia & "','" & TxtCp & "','" & TxtRFC & "','" & TxtTel & "','" & TxtLugar & "','" & TxtAnt & "','" & TxtObs1 & "','" & TxtObs2 & "','" & TxtObs3 & "','" & TxtCantLetra & "','" & TxtTotal & "') ", Coneccion1, adOpenDynamic, adLockOptimistic
End If
End Sub

Public Sub Agrega_Datos_30(CveCon As String, CveCot As String, Fecha As String, Mes As Integer, Año As Integer, CveCli As String, NomCli As String, Contacto As String, Direccion As String, Colonia As String, Cp As String, RFC As String, Tel As String, Lugar As String, Ant As String, Obs1 As String, Obs2 As String, Obs3 As String, CantLetra As String, Total As String)
If TxtCveCon <> "" Then
RegistrosDaniel.Open "INSERT INTO Contratos_Remp30 (CveCont,CveCot,Fecha,Mes,Año,CveCli,NomCli,Contacto,Direccion,Colonia,Cp,RFC,Tel,Lugar,Ant,Obs1,Obs2,Obs3,CantLetra,Total) VALUES('" & TxtCveCon & "','" & ClaveCombo(CmbCveCot, "izq") & "','" & TxtFecha & "','" & ClaveCombo(cmbMes, "izq") & "'," & txtAño & "," & TxtCveCli & ", " & TxtNomCli & "," & TxtContacto & ",'" & TxtDireccion & "','" & TxtColonia & "','" & TxtCp & "','" & TxtRFC & "','" & TxtTel & "','" & TxtLugar & "','" & TxtAnt & "','" & TxtObs1 & "','" & TxtObs2 & "','" & TxtObs3 & "','" & TxtCantLetra & "','" & TxtTotal & "') ", Coneccion1, adOpenDynamic, adLockOptimistic
End If
End Sub

Public Sub Agrega_Datos_60(CveCon As String, CveCot As String, Fecha As String, Mes As String, Año As String, CveCli As String, NomCli As String, Contacto As String, Direccion As String, Colonia As String, Cp As String, RFC As String, Tel As String, Lugar As String, Ant As String, Obs1 As String, Obs2 As String, Obs3 As String, CantLetra As String, Total As String)
If CveCon <> "" Then
RegistrosDaniel.Open ("INSERT INTO Contratos_Remp60 (CveCont,CveCot,Fecha,Mes,Año,CveCli,NomCli,Contacto,Direccion,Colonia,Cp,RFC,Tel,Lugar,Ant,Obs1,Obs2,Obs3,CantLetra,Total) VALUES('" & CveCon & "','" & ClaveCombo(CveCot, "izq") & "','" & Fecha & "','" & Mes & "'," & Año & "," & CveCli & ", " & NomCli & "," & Contacto & ",'" & Direccion & "','" & Colonia & "','" & Cp & "','" & RFC & "','" & Tel & "','" & Lugar & "','" & Ant & "','" & Obs1 & "','" & Obs2 & "','" & Obs3 & "','" & CantLetra & "','" & Total & "') "), ConexionDaniel, adOpenDynamic, adLockOptimistic
End If
End Sub

y jalo esta funcion con esto

Private Sub BtnAcepta_Click()

If Rbn60.Enabled Then
If TxtCveCon.Text <> "" Then
Agrega_Datos_60 TxtCveCon.Text, CmbCveCot.Text, TxtFecha.Text, cmbMes.Text, txtAño.Text, TxtCveCli.Text, TxtNomCli.Text, TxtContacto.Text, TxtDireccion.Text, TxtColonia.Text, TxtCp.Text, TxtRFC.Text, TxtTel.Text, TxtLugar.Text, TxtAnt.Text, TxtObs1.Text, TxtObs2.Text, TxtObs3.Text, TxtCantLetra.Text, TxtTotal.Text
Else
MsgBox "Faltan datos", vbCritical
End If

MsgBox "Guardado", vbInformation

ElseIf Rbn30.Enabled Then
If TxtCveCon.Text <> "" And ClaveCombo(CmbCveCot, "izq") <> "" And TxtFecha.Text <> "" And ClaveCombo(cmbMes, "izq") <> "" And txtAño.Text <> "" Then
Agrega_Datos_30 TxtCveCon.Text, ClaveCombo(CmbCveCot, "izq"), TxtFecha.Text, ClaveCombo(cmbMes, "izq"), txtAño.Text, TxtCveCli.Text, TxtNomCli.Text, TxtContacto.Text, TxtDireccion.Text, TxtColonia.Text, TxtCp.Text, TxtRFC.Text, TxtTel.Text, TxtLugar.Text, TxtAnt.Text, TxtObs1.Text, TxtObs2.Text, TxtObs3.Text, TxtCantLetra.Text, TxtTotal.Text
Else
MsgBox "Faltan datos", vbCritical
End If


MsgBox "Guardado", vbInformation

ElseIf Rbn10.Enabled Then
If TxtCveCon.Text <> "" And ClaveCombo(CmbCveCot, "izq") <> "" And TxtFecha.Text <> "" And ClaveCombo(cmbMes, "izq") <> "" And txtAño.Text <> "" Then
Agrega_Datos_10 TxtCveCon.Text, ClaveCombo(CmbCveCot, "izq"), TxtFecha.Text, ClaveCombo(cmbMes, "izq"), txtAño.Text, TxtCveCli.Text, TxtNomCli.Text, TxtContacto.Text, TxtDireccion.Text, TxtColonia.Text, TxtCp.Text, TxtRFC.Text, TxtTel.Text, TxtLugar.Text, TxtAnt.Text, TxtObs1.Text, TxtObs2.Text, TxtObs3.Text, TxtCantLetra.Text, TxtTotal.Text
Else
MsgBox "Faltan datos", vbCritical
End If


MsgBox "Guardado", vbInformation


End If
End Sub

La programacion en php es lo mejor

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar