Mensajes

Listo pulpotron!! Ahi esta su tarea... parece que Azielito se tomo el tiempo para hacerla.
Esperamos le sirva 

Que lindo eres pidiendonos que te hagamos la tarea   

Opino igual... 

XUL: http://es.wikipedia.org/wiki/XML-based_User-interface_Language

Bueno... creo que se esta complicando la vida haciendo un procedimiento de conexion en cada form... le recomiendo que coloque ese procedimiento de conexion en un modulo... algo asi:

modMySQL

Código [Seleccionar] Expandir


Option Explicit
  Public conConexion As ADODB.Connection
  Public strCadenaConexion As String

'//CONECTAR AL SERVIDOR DE DATOS
Public Sub psConectar()
  On Error GoTo Error_Handler:
    Set conConexion = New ADODB.Connection
        conConexion.ConnectionString = modMySQL.strCadenaConexion
        conConexion.Open
  Exit Sub
Error_Handler:
    Set conConexion = Nothing
    MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
End Sub


La variable publica strCadenaConexion la puede cargar de un archivo de texto (o desde el registro) cuando abre el primer form de la aplicacion... asi no va a tener que volver a compilar el proyecto cada vez que se cambie de servidor, usuario, etc.

Bien.. ahora.. con este ejemplo se conecta a la base de datos e inserta... (recuerde que tiene que definir la cadena de conexion en la variable publica strCadenaConexion):

Código [Seleccionar] Expandir


Private Sub psGuardar_Usuario()
  Dim rs As ADODB.Recordset
    On Error GoTo Error_Handler
        Set rs = New ADODB.Recordset
                    Call modMySQL.psConectar
        With rs
            .ActiveConnection = modMySQL.conConexion
            .CursorLocation = adUseClient
            .CursorType = adOpenDynamic
            .LockType = adLockOptimistic
           
                .Open "INSERT INTO tabla(campos) VALUES(valores)"
            If .State Then .Close
            If modMySQL.conConexion.State Then modMySQL.conConexion.Close
        End With
        Set rs = Nothing
    Exit Sub
Error_Handler:
    MsgBox Err.Description & " (" & Err.Number & ").", vbCritical
End Sub


La cadena de conexion puede ser algo asi:

Código [Seleccionar] Expandir


            modMySQL.strCadenaConexion = "driver={MySQL ODBC 3.51 Driver};server=" & Trim(txtServidor) & ";" _
            & "uid=usuario_mysql;pwd=password_mysql;database=base_de_datos;connection="


Donde txtServidor es un TextBox que se coloca en el form de Login... (esto es para lo que le comente anteriormente), que no tenga que estar compilando el proyecto cada vez que cambian el nombre del server, etc.

No entiendo eso del valor... en realidad no estoy muy familiarizado con C#...
ya probo algo como esto?

Código [Seleccionar] Expandir


textbox.Text = ddl_usuario_ingeniero.Text


EN VB .Net funcionaria (eso lo coloca en el evento selectedindexchanged, cierto?)

Talvez esto le sirva:

Código [Seleccionar] Expandir


Dim rs As ADODB.Recordset
   Set rs = New ADODB.Recordset
       '//abrir la conexion a mysql (conConexion)
   With rs
       '//establecer la conexion
       .ActiveConnection = conConexion
       .CursorLocation = adUseClient
       .CursorType = adOpenDynamic
       .LockType = adLockOptimistic
       .Open "INSERT INTO tabla(campos) VALUES(valores)"
       If .State Then .Close
       '//cerrar la conexion
       If conConexion.State Then conConexion.Close
   End With
   Set rs = Nothing



Edito:

Código [Seleccionar] Expandir


        '//abrir la conexion a mysql (conConexion)

Ahi tiene que hacer la conexion a la base de datos.

En caso de que no le importe el hosting, puede hacer una cuenta en http://host22.com/.
Hace un tiempo estuve probando algunas cosas ahi, y este si permite conexion remota.

  Si necesita mas ayuda o un ejemplo avisa y con todo gusto... lo que pasa es que el ejemplo seria en VB, creo que no es mucha la diferencia (o al menos no demasiada).

Saludos!

Que tan estilizado tiene que ser el reporte?
Si se va a basar en un "machote" (un documento predefinido) podria hacerlo en Excel para que no se complique mucho la vida... desde su aplicacion en C# abre el documento de Excel, llena las celdas que necesita y listo!! Manda a imprimir 

Para cifrar la palabra puede usar esta funcion:

Código [Seleccionar] Expandir


   Public Function fntEncriptar(ByVal strCadena As String) As String
       Dim md5Hasher As MD5 = MD5.Create()

       Dim data As Byte() = md5Hasher.ComputeHash(Encoding.Default.GetBytes(strCadena))
       Dim sBuilder As New StringBuilder()

       Dim i As Integer
       For i = 0 To data.Length - 1
           sBuilder.Append(data(i).ToString("x2"))
       Next i

       Return sBuilder.ToString()
   End Function


Haciendo los siguientes imports:

Código [Seleccionar] Expandir


Imports System.Text
Imports System.Security.Cryptography


Ejemplo de como llamarla:

Código [Seleccionar] Expandir


Me.txtTextoEncriptado.Text = Me.fntEncriptar(Me.txtTextoPlano.Text)


Esa funcion calcula el valor Hash MD5 de una cadena y lo retorna como una cadena hexadecimal de 32 caracteres. La cadena Hash creada es compatible con cualquier función Hash MD5 (en cualquier plataforma) que cree una cadena Hash con las mismas características.

Edito: disculpe el descuido... no lei que era para C# hasta que le di al boton Guardar  . Pero no creo que sea muy dificil traducirlo...