SoloCodigo

LOL! jajajaajajajajajaa me encantan esos retos

Bueno.. aquí te dejo el link para las 2 DLL..
La mia es la de Conexion.Dll, la otra es la MySql.Data.Dll que ofrecen en la pagina www.mysql.com

http://rapidshare.com/files/434400587/Conexion.rar


y aquí te doy un ejemplo de como usarlo, es MUY SENCILLO solo creas un objeto de la clase clsMySQL y le pasas la cadena de conexión, fijate como esta el ejemplo. pruebalo.. OBVIAMENTE vas a tener ke cambiarla por TU cadena de conexion.. y los comandos inserts y selects que hize, tu tendrias que modificarlos.. por lo que tu necesites.. solo necesitas  referencias las 2 DLL y llamarlas:
en C#:
using Conexion;
using MySql.Data.MySqlClient;

en VB:
Imports Conexion
Imports MySql.Data.MySqlClient


EJEMPLO:

http://rapidshare.com/files/434401107/PruebasConDllConexion.rar



CUALQUIER DUDA PUEDES PREGUNTAR.. SALUDOS!

Si gustas, te puedo pasar una DLL para evitarte esos problemas, solo necesitas hacer hacer referencia a la dll luego cargarla en tu capa de datos o donde pienses llamarla, le pasas la cadena de conexión y listo, lo demás solo es llamar a los métodos,  te olvidas de todo lo demás..

1. Imports System.Data.SqlClient
   2.  
   3.  
   4. Public Class Form1
   5.     Inherits System.Windows.Forms.Form
   6.  
   7.     Private conexion As SqlConnection
   8.     Private dataSet As DataSet
   9.     Private dataAdapter As SqlDataAdapter
  10.     Private bs As BindingSource
  11.  
  12.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  13.         Dim conexion As New SqlConnection
  14.         conexion.ConnectionString = "Data Source=.SQLEXPRESS;AttachDbFilename=C:" & _
  15.             "UsersMaxiAppDataLocalTemporary ProjectsPruebasDatabase1.mdf;Integrated Security=True;User Instance=True"
  16.  
  17.         Dim dataAdapter As New SqlDataAdapter("SELECT * From Clientes", conexion)
  18.         Dim CB As SqlCommandBuilder = New SqlCommandBuilder(dataAdapter)
  19.  
  20.         Dim dataSet As New DataSet
  21.         dataAdapter.Fill(dataSet, "Clientes")
  22.  
  23.         Me.DataGridView1.DataSource = dataSet
  24.         Me.DataGridView1.DataMember = "Clientes"
  25.  
  26.     End Sub
  27.  
  28.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  29.         Dim fila As DataRow
  30.         fila = Me.dataSet.Tables("Clientes").NewRow()
  31.         fila("Nombre") = TextBox1.Text
  32.         fila("Apellido") = TextBox2.Text
  33.         Me.dataSet.Tables("Clientes").Rows.Add(fila)
  34.     End Sub
  35.  
  36.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  37.         Me.dataAdapter.Update(Me.dataSet, "Clientes")
  38.     End Sub
  39. End Class
  40.  


Ya vi tu burrada jajjaja.. y perdona que te lo diga pero es una burrada jajjajajajajajaja.. mira tu linea 8.. y mira tu linea 20..
   8.     Private dataSet As DataSet
  20.         Dim dataSet As New DataSet

estas declarando 2 veces la misma variable, una en el Load  y otra variable Global, la que tu llenas es la que esta dentro del Load,  lo que debiste hacer es lo siguiente:
Cambiar tu linea 20 por esto -----> dataSet = New DataSet()

y ya.. ... debe funcar. ..  saludos.

Si aún así no entendiste te lo pongo más fácil

DataTable = 1 sola tabla, es decir solo puede contener una tabla (aunque puedes "MEZCLAR" tablas, aunque dudo que eso te sirva).

DataSet = N tablas, es decir puede contener 1 o muchas tablas por separado. con la propiedad Tables[index] te vas moviendo sobre las tabla que desees.

Es una muy pequeña aplicación la cual me llevo 15 mins hacerla es para quienes alguna vez han necesito truncar más de 10 tablas se vuelve algo fastidioso y que mejor que contar con una aplicación que lo haga con solo seleccionar las tablas necesarias. Intente buscar en la web alguna aplicación pero pues no encontre y como me dio flojera seguir buscando mejor la hize.

Solo funciona con MySQL si alguien aquí quiere mejorarlo poniendo más funciones para que pueda hacerlo en otras base de datos estaria genial.. si alguien necesita del código fuente igual con gusto se lo paso.. saludos! atte Gab.

NOTA: No sé por que carajos no han hecho una herramienta los de ORACLE (antes SUN) para hacer esto o si ya lo tiene no se donde al menos en el MySQL Administrator no encontre dicha opción saludos! ...

Autor: Gabriel Molina

am.. haz leido algo de la programación por capaz?..  yo normalmente uso.. 4 ...

capa de diseño (aquí llamo a los métodos de la capa de negocios y se muestran los datos al usuario final),
capa de datos (Obtengo los datos que necesito, aquí ejecuto las sentencias SQL),
capa de Negocios (aquí hago todas mis operaciones/métodos)
y capa de objetos (aquí creo mis Propiedades get y set).

Hola que tal, de ante mano un saludo por estar leyendo mi duda, actualmente estoy usando Crystal Reports Basic para Visual Studio 2008, ya cree mis reportes, mi duda radica en que no encuentro la forma de MARCAR (con algún color o de alguna manera), registros donde en una  COLUMNA de mi Reporte se repita el mismo dato un ejemplo:

Columna 1        Columna 2           Columna 3
GABRIEL            25                         30
JESUS               34                          54
GUILLERMO       25                         45
GABRIEL            76                         56


Quisiera que en el reporte me resalte o marque todas las filas donde se repitan datos de la Columna 1, es decir me marcaría la primera y la última fila.
Dando como resultado:
Columna 1        Columna 2           Columna 3
GABRIEL            25                         30
JESUS               34                          54
GUILLERMO       25                         45
GABRIEL            76                         56


Si alguien tiene idea de como hacerlo le agradeceria que me explique como puedo hacerlo.. Gracias!

Para que solo te lea numeros yo utilizo este:

Si entiendes que estas en el "evento" KeyPress de un Textbox?...

bueno, lo segundo es el IF que es un condicional, donde utilizas un "Char", que es miembro de  "System" su definición es: Representa un carácter Unicode, es decir UN simple y común carácter.. y llamas a la función IsDigit, que si te das cuenta esta declarado como un Booleano, es decir que va a retornar un "True" o un "False" y  si te das cuenta le pasas un parámetro (e.KeyChar) que es el "caracter" que hayas presionado, por caracter entiende que puede ser hasta un ENTER, LETRAS, NUMEROS, SHIFT, CTRL, ALT.. entonces lo que hace el IF es decir.. "Si e.KeyChar es un Digito o Si e.KeyChar es un control entonces No me manejes el evento (e.Handled = false)"..  en caso contrario.. (es decir si son letras), Maneja el evento con un True para que no lo dejes que el usuario pueda teclearlo". Si te preguntas.. por que dejamos pasar los caracteres de tipo control, es que podriamos usar un "enter".. si me vas entendiendo?.. espero que sí.. jejjejeje..

Tu otro evento.. de las fechas, es LO MISMO..


Solo que aquí llamas
a IsDate, para que entiendas como funciona IsDate te recomiendo que entres a aquí: h ttp://msdn.microsoft.com/es-es/library/ ... 80%29.aspx , te lo explica más fácil.
pero practicamente es lo mismo..  solo que ademas del IsDate.. tu le pides que tiene que estar en un Determinado formato aquí:

If Not sender.Text = Format(CDate(sender.text), "dd/mm/yyyy") Then , es decir que tiene que estar en el formato "dd/mm/yyyy" dia, mes y año.

SI NO tiene ese formato entonces tampoco te lo detectará como fecha.. .. es todo.. si tienes alguna otra duda.. puedes seguir preguntando.. saludos!

No se si te sirva pero si lo que quieres es que el usuario NO pueda mover el formulario hijo puedes utilizar esto:

am, sorry no te entendi amigo.

No te entendí, puedes ser un poco más específico?