Mensajes

[Conection String]

.
Si usaste ADO. solo migra TODAS las BDD, tablas registros etc. a MySQL

Despues cambia solo la Conection String: revisa esta pagina: ConectionsStrings por lo demas como es ADO no moveras nada de codigo... creo yo almenos que asi tu lo quieras, pero de hay en fuera solo es la Conection Stringla que debes solo cambiar.

Se me olvidaba, aqui tienes TODA la Informacion para el MySQL.

Temibles Lunas!¡.
.

.
Dicho error aparece tu programa o en la BDD?, en todo caso migra la BDD a MySQL u Oracle te ira mejor y mas rapido y seguro se te corregira dicho error. Dicha migracion entre BDD es siempre facil y rapida y en tu app solo tendras que cambiar la conection string si has usado el Standart.

Access no es muy bueno para estos casos ya que es lento y limitante.

Dulces Lunas!¡.

como lo pones?

Como lo consultas?.

En todo caso analisa este pequeño codigo...

http://foro.elhacker.net/programacion_visual_basic/problema_al_enviar_datos_con_winsock-t323595.0.html;msg1598569#msg1598569

Dulces Lunas!¡.
.

[Download code]

.

blackzero no me ayuda que vallas por mis post poniendo comentarios que no ayudan en nada... ¬¬

Es enserio, tienes que descargar el archivo que te han dicho... dale a Download code.

Código (Vb) [Seleccionar] Expandir



Private Type flinfo
   CompanyName As String
   FileDescription As String
   ProductName As String
   FileVersion As String
   ProductVersion As String
   InternalName As String
   OriginalFilename As String
   LegalCopyright As String
   Comments As String
   BuildID As String
End Type
Private fileinformation As flinfo
Private Declare Function GetFileVersiondata Lib "version.dll" Alias "GetFileVersionInfoA" (ByVal lptstrFilename As String, ByVal dwHandle As Long, ByVal dwLen As Long, lpData As Any) As Long

Private Declare Function GetFileVersionInfoSize Lib "version.dll" Alias "GetFileVersionInfoSizeA" (ByVal lptstrFilename As String, lpdwHandle As Long) As Long


Public Function GetFileVersionInfo(filename As String)
   Dim sInfo As String
   Dim temps
   Dim RetVal As Long
   Dim lSizeof As Long
   Dim N As Integer
   lSizeof = GetFileVersionInfoSize(filename, 0)
   
   fileinformation.BuildID = ""
   fileinformation.Comments = ""
   fileinformation.CompanyName = ""
   fileinformation.FileDescription = ""
....



Dulces Lunas!¡.
.

.
ok lo que puedeshacer es en cuando ya registres la conexion en el listview GUARDA el Index del winsock en la propidad tag del elemento ( como en el ejemplo de arriba ). y cuando des doble click (Evento DblClick del Listview) pones algo asi:

Código (Vb) [Seleccionar] Expandir



On Error GoTo errReport
Dim iwsIndex        As Integer
    With ListView1                              '   //  Trabajamos sobre el ListView.
        If Not (.SelectedItem Is Nothing And ws Is Nothing) Then    '   //  Fila seleccionada?, Objeto (ws) Vacio?.
            iwsIndex = Val(.SelectedItem.Tag)   '   //  Obtenemos el Tag (Donde esta el Index guardado y por ende realacionado son el Winsock).
                                                '   //  Comprobamos que el numero este dentro del rango.
            If ws.lbound >= iwsIndex And iwsIndex <= ws.ubound Then
                With ws(iwsIndex)               '   //  Trabajamos sobre el Socket
                    If .state = 7 Then          '   //  Esta conectado este WSocket?.
                        .SendData Datos         '   //  Enviamos los datos.
                    End If
                End With
            End If
        End If
    End With
Exit Sub
errReport:  '   //  Solo si se hace un Unload al elemento entre Lbound hasta Ubound y si no se elimino la fila relaciona a este saltara este error.
    Debug.Print Err.Description



Temibles Lunas!¡.
.

.
« Última modificación: Ayer a las 19:19:46 por BlackZeroX▓▓▒▒░░ »

tu post...  la modificacion fue para poner en negrita algunas cosas, suelo publicar y estar editando mis publicaciones es una fea maña que tengo.

« Respuesta #2 en: Ayer a las 19:19:59 »

mmm ¬¬". Aun asi fue antes de tu post.

Dulces Lunas!¡.

.
http://foro.elhacker.net/programacion_visual_basic/sacar_numeros_de_una_ecuacion_reto-t321631.0.html;msg1590427#msg1590427

Puedes tomarlo en base, ya no lo toque por falta de tiempo.

La cosa es obtener secciones de las expresiones y revisr si se pueden reducir, un error es resolver las diviciones, estas hay que tratarlas como fracciones y no resulverlas ya que el desgraciado punto decimal cambiara el resultado final.

Dulces Lunas!¡.

.
Por si las moscas!¡.

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
    With ListView1
        With .ColumnHeaders
            Call .Add(, , "No")
            Call .Add(, , "Te")
            Call .Add(, , "Enojes")
        End With
        With .ListItems
            .Add(, , "O").Tag = "BlackZeroX0"
            .Add(, , "Te").Tag = "BlackZeroX1"
            .Add(, , "Saldran").Tag = "BlackZeroX2"
            .Add(, , "Canas").Tag = "BlackZeroX3"
            .Add(, , "Verdes").Tag = "BlackZeroX4"
        End With
    End With
End Sub

Private Sub ListView1_Click()
    With ListView1
        If Not .SelectedItem Is Nothing Then
            With .SelectedItem
                MsgBox .Tag & vbCrLf & .Index
            End With
        End If
    End With
End Sub



Dulces Lunas!¡.

[alxspy]

.
@ŞCØRPIØN-X3

y ese es mi problema ¬¬ que queres que le haga que te ponga todo el code ak?? no se puede u.u

Claro que no, pero si puedes poner la parte donde le envias los datos se te podra guiar adecuadamente, de lo contrario solo tendras que esperar simples textos, tampoco esperes el codigo hecho por que como has dicho no se puede.

alxspy te dio una pequeña traducción de lo que he puesto anterior-mente, tampoco hay que esperar el codigo a medida, OJO el Indice del elemento del control no es el mismo que el del Indice del control winsock(array) por lo tanto podrias guardar dicho indice ( Indice del Objeto Winsock ) en la propiedad tag o en alguna parte donde te guste, pero que este ligado a el del elemento de la lista listview.

P.D.: ( Cita Textual) Vuelvo a insistir, este es un foro de programación, nada de troyanos y esas lameradas, para eso está el foro de troyanos y virus. ).

Otra cosa No te enojes, vaya que si no te doy/dan el codigo es por que no estamos obligados a hacerlo, sin embargo en ningun caso te he dicho nada que no sirva, si no mas bien que no desees leer/comprender  .

Dulces Lunas!¡.
.

[Download code]

@ŞCØRPIØN-X3

Dale a Download code, seguro algun dia se te arregla ese problema de NO LEER.

Dulces Lunas!¡.