SoloCodigo

hola que tal amigos bueno aqui va mi consulta estoy tratando de almacenar datos de fecha en un tbl mysql pero resulta que ahora no me lo graba y antes lo hacia, no se que puede ser quizas algun error en el codigo, ustedes podrian acharme una manito para revisar el code.

bueno les dejo el ingreso:
bueno se supone que en este code creo el ingreso.
funcion myfunc.
y la funcion conex.
bueno y por ultimo la funcion donde grabo los datos.


y creo que salio un pokito largo pero no se me marca el error en la parte donde mando a grabar la db, y me marca error en la linea 14 y 15, pero solucionando la 14 se soluciona la 15 he estado mas de 5 horas buscando el problema pero no lo he podido resolver, asi que cualquier ayuda es bienvenida y muchas gracias por su tiempo. adios amigos

Que tal amigos del foro, bueno tengo el siguiente problema,  tengo un formulario de ingreso donde al presionar el boton guardar me imprime en una hoja de excel todo los datos de este formulario, y resulta que la fecha me la imprime al reves y excel la toma como si estuviera bien, osea yo ingreso 04-09-06 y excel me lo toma 09-04-06 entonces esto me provoca problemas les puedo dejar el code para que le echen un vistazo y me digan donde cambio algo o donde esta el problema gracias.


Private Sub Command1_Click()
    If MsgBox("Desea Imprimir el Folio", vbYesNoCancel, mstrAppTitle) = vbYes Then
         Call imprimir
         Call grabar
    ElseIf MsgBox("Desea Imprimir el Folio", vbYesNoCancel, mstrAppTitle) = vbNo Then
        Call grabar
    Else
        MsgBox "Ha cancelado la Grabación del Folio"
        Call limpiar
        Call cargar
        Call obtener
    End If
End Sub

Sub grabar()
b.AddNew
b("folio_atencion") = Text1.Text
b("fecha_llamado") = Text2.Text
b("hora_llamado") = Text3.Text
If Text4.Text = "" Then
    Text4.Text = "Sin Usuario"
End If
b("usuario_atencion") = Text4.Text
If Combo8.Text = "" Then
    Combo8.Text = "sin Direccion"
End If
b("direccion_depto") = Combo8.Text
If Text5.Text = "" Then
    Text5.Text = "0000"
End If
b("n_oficina") = Text5.Text
If Text6.Text = "" Then
    Text6.Text = "0000000"
End If
b("fono_anexo") = Text6.Text
If Text7.Text = "" Then
    Text7.Text = "Sin Problema"
End If
b("problema_descrito") = Text7.Text
If Combo2.Text = "" Then
    Combo2.Text = "Sin Tipo Problema"
End If
b("tipo_problema") = Combo2.Text
If Combo3.Text = "" Then
    Combo3.Text = "Sin Tecnico"
End If
b("tecnico_asignado") = Combo3.Text
If Combo4.Text = "" Then
    Combo4.Text = "Sin Estado Atencion"
End If
b("estado_atencion") = Combo4.Text
b.Update
MsgBox "Se Agrego el Nuevo Folio"


Sub imprimir()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open (App.Path & "\Formulario de Soporte Tecnico a Terreno.xls")
ApExcel.cells(1, 1).Font.Size = 12
ApExcel.cells(8, 7).formula = Text1.Text 'folio
ApExcel.cells(9, 4).formula = Text4.Text 'nombre usuario
ApExcel.cells(9, 7).formula = Text6.Text 'fono anexo
ApExcel.cells(10, 4).formula = Combo8.Text 'direccion
ApExcel.cells(10, 7).formula = Text5.Text 'oficina
ApExcel.cells(11, 7).formula = Combo3.Text 'tecnico
ApExcel.cells(14, 3).formula = Text7.Text 'problema
ApExcel.cells(5, 6).formula = Text2.Text 'fecha llamado
Set ApExcel = Nothing
End Sub


no se cual puede ser el problema ya lo vi en la celdas del excel y esta bien, le di un formato desde visual que fuera asi Text2.Text = Format(Now, "dd-mm-yyyy"), y el formato del text tambien es asi, espero me puedan ayudar gracias adios

Hola

Tienes mucha informacion sobre el tema en internet ( es un tema recurrente)

por ejemplo http://www.programacionweb.net/articulos/articulo/?num=62

o buscando en google http://www.google.es/search?hl=es&q=hora+y...%BAsqueda&meta=

saludos

jejeje si me di cuenta de lo que puedes encontrar en la web y gracias por los link estan super utiles muchas gracias adios.

hola amigo que tal, bueno les comento no se como abrir outlook express desde visual, ademas si me pueden ayudar quisiera saber como hago que el mismo visual cree un correo nuevo y que yo le pueda entregar los datos del destinatario asunto y contenido del mail, si alguien tiene un ejemplo para orientarme seria genial para mi es muy necesario hacer este trabajo lo antes posible les pido que me ayuden si es que pueden grandes genios jejejej bueno amigos y amigas cuidense que tengan un buen fin de semana adios

que tal!!!!!! amigos del foro; bueno aqui para variar con algunas dudas y espero que me puedan ayudar, resulta que quiero enviar un correo desde visual, osea presionar un boton y que se envien algunos campos selecionados, mail destinatario, asunto, descripcion, no se si se podra espero que si bueno todo estos datos recien mencionados son escritos en la aplicacion y quisiera saber como lo puedo hacer, ademas de abrir outlook desde visual me gustaria saber como le paso informacion osea como ingreso el nombre del destinatario desde visual y eso, bueno espero que me puedan ayudar amigos y bueno cuidense y adios

hola que tal bueno te comento, las aplicaciones que te pase son para que puedas montar la imagen que cree, por ejemplo setupclonecd te permite crear imagenes de cd y quemarlas al mismo tiempo ademas de que te crea una unidad de cd virtual en la cual puedes montar la imagen, hacha es un programa que sirve para juntar los archivos que son demasiados grandes, winrar para descomprimir las imagenes que estan en rar, daemon329 sirve para montar solo unidades virtuales y te permite montar la imagen en esa unidad, bueno cuando la montas y quieras quemar la imagen puedes montarla y con nero puedes hacer una copia de cd o no se echale una mirada a ver que te parece espero qye llegues a la meta pk esto se termina el martes 2 ok cuidate amigo que este bien adios y suerte.

eso es juanolo le diste al clavo eso era lo que necesitava muchas gracias, no pense que fuera asi pero tenia mas o menos la idea gracias por la guia sirve de mucho y que estes bien adios

hola a todos debe ser un poco extraña mi pregunta pero quiero explicarles a ver si me entienden, resulta que quiero saber si se puede declarar una variable que sea de tipo campo ¿que se preguntaran ustedes?, bueno resulta que estoy hacendo una busqueda y tengo un combo box en cual si tu selecionas buscar por nombre esta variable tome el campo "nombre" de la tabla, se puede hacer esto?, no se si pueda hacer trate de hacerlo tipo field y no me resulta, quizas me puedan dar una mano, a ver les dejo el code para que lo vean.


Option Explicit
Public var As Field


Private Sub Command1_Click()
Buscar
End Sub

Private Sub Form_Load()
Dim base As Database
Dim rst_base As Recordset
Dim rst_paterno As Recordset
Dim deptos As Recordset
Dim maestra As Recordset
Dim Archivo As String
Dim Nro As Double
Dim msg As String
Dim ruta As String

Archivo = App.Path & "\rutabasesoporte.TXT"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia"
Else
Nro = FreeFile
Open Archivo For Input As #Nro
Input #Nro, ruta
'Close (Linea)
End If
Call limpiar
Set base = OpenDatabase(ruta)
Set rst_base = base.OpenRecordset("select [folio_atencion] from maestro_atenciones order by folio_atencion;", dbOpenDynaset, dbConsistent, dbOptimistic)
    rst_base.MoveNext
    rst_base.MoveFirst
Set rst_paterno = base.OpenRecordset("select * from maestro_atenciones;", dbOpenDynaset, dbConsistent, dbOptimistic)
    If rst_paterno.RecordCount > 0 Then
        rst_paterno.MoveNext
        rst_paterno.MoveFirst
       
    End If
Combo1.AddItem "USUARIO"
Combo1.AddItem "DIRECCION / DEPTO"
Combo1.AddItem "TELEFONO"
Combo1.AddItem "ANEXO"
Combo1.AddItem "PROBLEMA REPORTADO"
Combo1.AddItem "ESTADO ATENCION"
Combo1.AddItem "FOLIO DE ATENCION"
End Sub

Sub INICIARGRILLA()
    With hfgGrillaP
        .ColWidth(0) = 2000: .TextMatrix(0, 0) = "FOLIO DE ATENCION"
        .ColWidth(1) = 2000: .TextMatrix(0, 1) = "NOMBRE DE USUARIO"
        .ColWidth(2) = 2000: .TextMatrix(0, 2) = "DIRECCION / DEPTO"
        .ColWidth(3) = 2000: .TextMatrix(0, 3) = "PROBLEMA REPORTADO"
        .ColWidth(4) = 2000: .TextMatrix(0, 4) = "TECNICO ASIGNADO"
        .ColWidth(5) = 2000: .TextMatrix(0, 5) = "ESTADO ATENCION"
        .ColAlignmentFixed = 3
        .ColAlignment(0) = 0
        .ColAlignment(1) = 0
        .ColAlignment(2) = 0
        .ColAlignment(3) = 0
        .ColAlignment(4) = 0
        .ColAlignment(5) = 0
    End With
End Sub

Sub Buscar()
Dim cont As Long
Dim hhhh As Integer
Dim rst_base As Recordset
Dim base As Database
Dim rst_paterno As Recordset
Dim maestra As Recordset
Dim totalpc As Integer
Dim porcentaje As Integer
Dim total As Integer
Dim Archivo As String
Dim Nro As Double
Dim msg As String
Dim ruta As String

Archivo = App.Path & "\rutabasesoporte.TXT"
If Dir(Archivo, vbArchive) = "" Then
MsgBox "No existe archivo de configuracion de RUTA", vbInformation, "Advertencia"
Else
Nro = FreeFile
Open Archivo For Input As #Nro
Input #Nro, ruta
'Close (Linea)
End If
hfgGrillaP.Clear
INICIARGRILLA

Set base = OpenDatabase(ruta)
If Combo1.Text = "USUARIO" Then
    var = rst_base("usuario_atencion") 'aqui es donde quiero que la variable var obtenga el valor de usuario atencion incluyendo el contenido
End If

Set rst_paterno = base.OpenRecordset("select * from MAESTRO_ATENCIONES  where var like '*" & Trim(Text1) & "*'order by [FOLIO_ATENCION]") 'text1 contine lo que voy a buscar

 With rst_paterno
 If .RecordCount > 0 Then
    .MoveLast
   .MoveFirst
    hhhh = .RecordCount
    hfgGrillaP.Rows = .RecordCount + 1
    For cont = 1 To .RecordCount
       hfgGrillaP.TextMatrix(cont, 0) = "" & ![folio_atencion]
       hfgGrillaP.TextMatrix(cont, 1) = "" & ![USUARIO_ATENCION]
       hfgGrillaP.TextMatrix(cont, 2) = "" & ![DIRECCION_DEPTO]
       hfgGrillaP.TextMatrix(cont, 3) = "" & ![PROBLEMA_DESCRITO]
       hfgGrillaP.TextMatrix(cont, 4) = "" & ![TECNICO_ASIGNADO]
       hfgGrillaP.TextMatrix(cont, 5) = "" & ![ESTADO_ATENCION]
        .MoveNext
    Next
Else
    MsgBox "NO HAY DATOS", vbOKOnly, "ATENCION"
End If
    End With

End Sub

Private Sub hfgGrillaP_DblClick()
Dim pasar As String
pasar = Format(hfgGrillaP.TextMatrix(hfgGrillaP.Row, 0), "")
End Sub

bueno espero que me puedan ayudar muchas gracias adios.

hola a todos como estan, bueno aqui estoy de nuevo con una incertidumbre resulta que tengo una pequeña aplicacion en la cual a traves de una busqueda abre un archivo excel en el cual almacena por filas y columnas en las lineas que yo deseo pero mi consulta es la siguiente, uno en un archivo excel puede terner varias hojas cierto y bueno me gustaria saber como almacenar en un archivo excel que se llame por ejemplo "prueba.xls" y en  ese archivo tengo tres libros "hoja1" "hoja2" y "hoja3" como puedo decirle al visual que quiero, que almacene los datos en prueba.xls en libro1 lo siguiente "hola" y en libro2 "mamá", si alguien me puede ayudar seria genial bueno les dejo un pequeño code que tengo y quisiera saber si se puede mejorar ese mismo code o hay que hacer algo nuevo.

Sub imprimir()
Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open (App.Path & "\Formulario de Soporte Tecnico a Terreno.xls")
ApExcel.cells(1, 1).Font.Size = 12
ApExcel.cells(8, 7).formula = Text1.Text 'folio
ApExcel.cells(9, 4).formula = Text4.Text 'nombre usuario
ApExcel.cells(9, 7).formula = Text6.Text 'fono anexo
ApExcel.cells(10, 4).formula = Combo1.Text 'direccion
ApExcel.cells(10, 7).formula = Text5.Text 'oficina
ApExcel.cells(11, 7).formula = Combo3.Text 'tecnico
ApExcel.cells(14, 3).formula = Text7.Text 'problema
Set ApExcel = Nothing
End Sub

bueno este es el code que yo ocupo si alguien sabe como se puede lo que les pido se los agradeceria mucho adios y gracias.

hola a todos bueno yo postie un ftp para un buen no para que alguien se este tratando de meter como administrador no soy tan inbecil para crear un cuenta ftp con ese username solo cree esa que postie hace un rato atraz para quien este trantado de hacer esto lo estoy mirando y tengo su ip asi que si vuelve a tratar de entrar le voy a hacer bolsa el equipo asiq ue porfavor no hinches mas trantado de entrar de mala manera gracias adios.

PD: si vuelvo a detectar que entran a la mala bajo el ftp y se quedan sin las librerias de visual que lo hice de manera de aportar.

hey!!! muchisimas gracias a los dos bueno leyendo un poco el codigo que han posteado he podido entender como funciona una instruccion sql    ais que se los agradesco, respecto a los code los dos son lo que necesitaba solo que no sabia como se debia preguntar y aplicar gracias por su ayuda y su tiempo adios.

mira hoy es lunes mañana martes lo puedo subir pk tengo una carga de trbajo que ni te imaginas pero mañana martes 11 de abril lo subo ok y luego posteo el link en descarga directa sino como ftp ahi veo como quede mas rapida ok bueno saludos a todos adios

Te escribí una subrutina que supongo te ayudará en lo que deseas. No la probé, ya que no una base de datos en que basarme, pero espero que funcione cuando la adecues a tu programa.

Código: Text

1.  
2. 'strPalabraBuscada = "sistema" o cualquier palabra que desees buscar
3. Sub test(strPalabraBuscada As String)
4.     Dim DBPrincipal As Database
5.     Dim rstID As Recordset
6.     Dim strSQL As String
7.     
8.     Set DBPrincipal = DBEngine.OpenDatabase("MiDataBase.mdb")
9.     strSQL = "SELECT * FROM MiTabla"
10.     Set rstID = DBPrincipal.OpenRecordset(strSQL, dbOpenDynaset)
11.     rstID.MoveFirst
12.     While Not rstID.EOF
13.         'el signo (*) es un comodín, la palabra puede estar en cualquier _
14.         parte del texto del campo a buscar
15.         rstID.FindFirst "Micampo='*" & strPalabraBuscada & "*'"
16.         If Not rstID.NoMatch Then
17.             MsgBox "No encontré " & strPalabraBuscada
18.         Else
19.             MsgBox "Encontré " & strPalabraBuscada
20.         End If
21.         rstID.MoveNext
22.     Wend
23.     rstID.Close
24.     DBPrincipal.Close
25. End Sub
26.  

bueno muchas gracias por tu ayuda sabes trate de adaptar el code a lo que yo queria, pero no me resulta cuando empiezo el conteo en la base por ejemplo tengo 200 registros y me cuenta que ya paso como 3000 veces osea no me funciona lo que yo hice quizas algo esta mal te puedo dejar el code para que lo veas y me puedas indicar cual puede ser mi error, te lo agradeceria muchisimo ya que haci podria entregar la aplicacion que me estan pidiendo y esto es lo unico que me retrasa un poco bueno es mi primera vez que realizo una busqueda con sql jejeje bueno te dejo el code y espero me cuentes ok adios y gracias

Dim prueba As Database
Dim tabla As Recordset
Dim strSQL As String
Dim strpalabrabuscada As String
Dim cuentasistema As Integer

strpalabrabuscada = "SISTEMA"
Set prueba = DBEngine.OpenDatabase("\\obiwan\soporte\inventario06.mdb")
strSQL = "SELECT * FROM maestra"
Set tabla = prueba.OpenRecordset(strSQL, dbOpenDynaset)
tabla.MoveFirst
While Not tabla.EOF
     tabla.FindFirst "perfilusuario='*" & strpalabrabuscada & "*'"
     If Not tabla.NoMatch Then
           MsgBox "No encontré " & strpalabrabuscada
     Else
           MsgBox "Encontré " & strpalabrabuscada
           cuentasistema = cuentasistema + 1
           Label31.Caption = cuentasistema
     End If
     tabla.MoveNext
Wend
tabla.Close
prueba.Close