JonaGuitar

se agradece compa aun no la he visto y quiero ir a ver avengers

Puede ser de la siguiente manera, este codigo tienes que ubicarlo en el EVENTO DEL textBox... haces doble click en el control textbox y te creara un metodo de la siguiente manera: Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End Sub luego escribes este codigo dentro del evento del textbox. If Me.TextBox.Text = "" Then botonGuardar.Enabled = False Else botonGuardar.Enabled = True End If ANTES DE ESCRIBIR EL CODIGO DEBES DEJAR EL BOTON INABILITADO ya sea en las propiedades del boton o BOTON.Enabled = False en el Form_Load Si estas usando una aplicacion de escritorio o en el Page_Load si es una aplicacion web. esto es en Viasual Basic .NET

UNA FORMA ES HACERLO EN CAPAS. CAPA CONEXION. Imports System.Windows.Forms Imports System.Data.OleDb Public Class Conexion 'Atributos de la Conexion Private nombreBaseDatos As String Private nombreTabla As String Private cadenaConexion As String Private user As String Private password As String Private sentenciaSQL As String Private esQuery As Boolean 'Clases para la Conexión Private dbConnection As OleDbConnection Private dbDataAdapter As OleDbDataAdapter Private dbDataSet As Data.DataSet Private dbDataTable As Data.DataTable 'Construtor Public Sub New() Me.nombreBaseDatos = "" Me.nombreTabla = "" Me.cadenaConexion = "" Me.user = "" Me.password = "" Me.esQuery = False Me.sentenciaSQL = "" End Sub 'Accesores Public Function getNombreBaseDatos() As String Return Me.nombreBaseDatos End Function Public Function getNombreTabla() As String Return Me.nombreTabla End Function Public Function getSentenciaSQL() As String Return Me.sentenciaSQL End Function Public Function getUser() As String Return Me.user End Function Public Function getPassword() As String Return Me.password End Function Public Function getCadenaConexion() As String Return Me.cadenaConexion End Function Public Function getEsQuery() As Boolean Return Me.esQuery End Function Public Function getDbDataSet() As Data.DataSet Return Me.dbDataSet End Function 'Mutadores Public Sub setNombreBaseDatos(ByVal nombreBaseDatos) Me.nombreBaseDatos = nombreBaseDatos End Sub Public Sub setNombreTabla(ByVal nombreTabla) Me.nombreTabla = nombreTabla End Sub Public Sub setSentenciaSQL(ByVal sentenciaSQL) Me.sentenciaSQL = sentenciaSQL End Sub Public Sub setCadenaConexion(ByVal cadenaConexion) Me.cadenaConexion = cadenaConexion End Sub Public Sub setUser(ByVal user) Me.user = user End Sub Public Sub setPassword(ByVal password) Me.password = password End Sub Public Sub setEsQuery(ByVal esQuery As Boolean) Me.esQuery = esQuery End Sub Public Sub setDbDataSet(ByVal dbDataSet As Data.DataSet) Me.dbDataSet = dbDataSet End Sub Public Function getDbDataTable() As Data.DataTable Return Me.dbDataTable End Function Public Sub setDbDataTable(ByVal dbDataTable As Data.DataTable) Me.dbDataTable = dbDataTable End Sub 'Metodo para Abrir la Conexion Public Sub abrirConexion() Try Me.dbConnection.Open() Catch ex As Exception MessageBox.Show("Error. Al Abrir la Conexión: " & _ ex.Message, "Error de Conexión", _ MessageBoxButtons.OK, _ MessageBoxIcon.Error) End Try End Sub 'Metodo para Cerrar la Conexion Public Sub cerrarConexion() Try Me.dbConnection.Close() Catch ex As Exception MessageBox.Show("Error. Al Cerrar la Conexión: " & _ ex.Message, "Error de Conexión", _ MessageBoxButtons.OK, _ MessageBoxIcon.Error) End Try End Sub 'Metodo Principal de la Conexión Public Sub conectar() 'Crear una Nueva conexion Try Me.dbConnection = New OleDbConnection(Me.getCadenaConexion) Catch ex As Exception MessageBox.Show("Error. Al Crear la Conexión: " & _ ex.Message, "Error de Conexión", _ MessageBoxButtons.OK, _ MessageBoxIcon.Error) Exit Sub End Try 'Abrir la Conexion Me.abrirConexion() 'Verificar si se ejecuta un QUERY o un UPDATE If Me.getEsQuery = True Then 'EJECUTAR QUERY Me.dbDataSet = New Data.DataSet Me.dbDataTable = New Data.DataTable Try Me.dbDataAdapter = New OleDbDataAdapter(Me.getSentenciaSQL, Me.dbConnection) 'Llenar el DataSet Me.dbDataAdapter.Fill(Me.getDbDataSet(), Me.getNombreTabla) 'Llenar el DataTable Me.dbDataAdapter.Fill(Me.dbDataTable) Catch ex As Exception MessageBox.Show("Error. Al Crear la Consulta: " & _ ex.Message, "Error de Conexión", _ MessageBoxButtons.OK, _ MessageBoxIcon.Error) End Try Else Try 'EJECUTAR UPDATE Dim comando As New OleDbCommand(Me.getSentenciaSQL(), Me.dbConnection) 'Ejecutar Comando comando.ExecuteNonQuery() Catch ex As Exception MessageBox.Show("Error. Al Crear la Consulta: " & _ ex.Message, "Error de Conexión", _ MessageBoxButtons.OK, _ MessageBoxIcon.Error) End Try End If End Sub End Class CAPA DE NEGOCIO en donde declaro todas las interacciones con mi base de datos: Imports CapaConexion Imports CapaDTO Public Class NegocioComuna Private cnn As New Conexion Private Sub configurarConexion() Me.cnn.setNombreBaseDatos("C:\Hospital_Clinico.mdb") Me.cnn.setCadenaConexion("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Me.cnn.getNombreBaseDatos) Me.cnn.setNombreTabla("Comunas") Me.cnn.setUser("alumnosec2") Me.cnn.setPassword("sa") End Sub 'METODO DE INGRESO DE COMUNA Public Sub IngresarComuna(ByVal ingresoCom As Comuna) Me.configurarConexion() Me.cnn.setSentenciaSQL("Insert into " & Me.cnn.getNombreTabla & " Values('" & ingresoCom.getRegion & "', '" & ingresoCom.getComuna & "')") Me.cnn.setEsQuery(False) Me.cnn.conectar() Me.cnn.cerrarConexion() End Sub End Class BOTON INSERTAR 'METODO PARA GUARDAR COMUNAS Dim auxNegocio As New NegocioComuna Dim IngresarComun As New Comuna IngresarComun.setRegion(Trim(Me.cboRegion.Text)) IngresarComun.setComuna(Trim(Me.txtComuna.Text)) auxNegocio.IngresarComuna(IngresarComun) MessageBox.Show("Comuna Ingresada", "Ingreso de Datos", MessageBoxButtons.OK, MessageBoxIcon.Information) CAPA DE DATOS Public Class Comuna 'ATRIBUTOS Private region As String Private comuna As String 'CONSTRUCTOR SIN PARAMETROS Public Sub New() Me.region = "" Me.comuna = "" End Sub 'CONSTRUCTOR CON PARAMETROS Public Sub New(ByVal region As String, ByVal comuna As String) Me.region = region Me.comuna = comuna End Sub 'METODOS ACCESADORES Public Function getRegion() As String Return Me.region End Function Public Function getComuna() As String Return Me.comuna End Function 'METODOS MUTADORES Public Sub setRegion(ByVal region As String) Me.region = region End Sub Public Sub setComuna(ByVal comuna As String) Me.comuna = comuna End Sub End Class

Hola que tal, tengo una aplicacion en Visual Studio 2010 con Visual BAsic .NET. No se me ocurre como hacerlo, es que yo abro un directorio con un FolderBrowserDialog y selecciono una carperta que tiene unos archivos .sql esos archivos SQL son SCRIPTS ya sean procedimientos almacenados o script de cracion de tablas o agregar una columna, o ALTER, etc. esos archivos los cargo dentro de un LISTBOX y me los muestras de la siguiente manera: por ejemplo: script_CREATE_TABLE_Usuario.sql script_CREATE_TABLE_Region.sql script_CREATE_TABLE_Ciudad.sql script_CREATE_TABLE_Comuna.sql script_STORED_PROCEDURE_1.sql script_STORED_PROCEDURE_2.sql una vez que esos archivos esten cargados en mi LISTBOX lo que necesito hacer es ejecutar cada SCRIPT que este en mi LISTBOX al presionar un boton. NO SE ME OCURRE UNA SOLUCION he buscado en varios foros y acudo a ustede spara ver si me pueden indicar u orientarme. LA FORMA EN QUE CARGO ESOS ARCHIVOS EN EL LISTBOX es de la siguiente manera, esto esta en el boton cargar: 'Obtiene todos los archivos .sql del directorio seleccionado (inclyendo subdirectorios) For Each archivos As String In Directory.GetFiles(txtCuadroDeBusqueda.Text, "*.sql", SearchOption.AllDirectories) 'Extraer el nombre de la ruta archivos = archivos.Substring(archivos.LastIndexOf("\") + 1).ToString 'Agregar el valor al listbox lstBoxContenido.Items.Add(archivos.ToString) Next Muchas gracias y espero su ayuda u orientación.

habia un perro que se llamaba pichula, mientras el general hablaba a su regimiento cuando ve al perro meterse por una reja lo mira y le dice ....PICHULA AFUERA y todo el regimiento se saca la pichula jajajajajajajaaj bueno eso era

Amigos les quiero compartir un codigo que desarrolle para el envio de mails con archivo adjunto esto esta desarrollado en Visual Studio 2008 en el lenguaje Visual Basic .NET (ASP .NET). Aca dejo el HTML. (.aspx) <html xmlns="http://www.w3.org/1999/xhtml"> <head id="Head1" runat="server"> <title></title> <link rel="stylesheet" href="../CSS/controles.css" type="text/css" /> <style type="text/css"></style> </head> <body> <form id="form1" runat="server"> <asp:ScriptManager ID="ScriptManager1" runat="server"></asp:ScriptManager> <table Width="100%" Height="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF"> <tr> <td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="300px" class="tituloMantenedor">Enviar Presupuesto</td> <td width="*"> </td> <td width="100px"></td> </tr> <tr> <td width="300px" class="tituloMantenedor"> </td> <td width="*"> </td> <td width="100px"> </td> </tr> <tr> <td width="300px" class="tituloMantenedor"> </td> <td width="*"> </td> <td width="100px"> </td> </tr> </table> </td> </tr> <tr> <td> <table align="center" cellspacing="0" cellpadding="3" rules="rows" border="1" class="formatoTabla" width="500px"> <tr> <td class="nombreControlesMantenedor">De</td> <td class="nombreControlesMantenedor">:</td> <td> <asp:TextBox ID="txtDe" runat="server" CssClass="controlTextBoxGrandes" Enabled="True">[email protected]</asp:TextBox> </td> </tr> <tr> <td class="nombreControlesMantenedor">Para</td> <td class="nombreControlesMantenedor">:</td> <td> <asp:TextBox ID="txtPara" runat="server" CssClass="controlTextBoxGrandes" Enabled="True"></asp:TextBox> </td> </tr> <tr> <td class="nombreControlesMantenedor">Asunto</td> <td class="nombreControlesMantenedor">:</td> <td> <asp:TextBox ID="txtAsunto" runat="server" CssClass="controlTextBoxGrandes" Enabled="True"></asp:TextBox></td> </tr> <tr> <td class="nombreControlesMantenedor">Mensaje<br/><br/><br/><br/></td> <td class="nombreControlesMantenedor">:<br/><br/><br/><br/></td> <td> <asp:TextBox ID="txtDescripcion" runat="server" BorderColor="#2F5388" TextMode="MultiLine" Enabled="True" CssClass="controlTextArea"> </asp:TextBox> </td> </tr> <tr> <td class="nombreControlesMantenedor">Adjuntar</td> <td class="nombreControlesMantenedor">:</td> <td> <asp:FileUpload ID="FileUpload1" runat="server" /> </td> </tr> <tr> <td class="nombreControlesMantenedor"> </td> <td class="nombreControlesMantenedor"> </td> <td> <asp:Label ID="Label2" runat="server" style="font-family: Calibri; font-size: medium; color: #CC3300"></asp:Label> </td> </tr> </table> <table align="center"> <tr> <td colspan="3"> </td> </tr> <tr> <td align="center" colspan="3"> <asp:Button ID="btnEnviar" runat="server" Text="Enviar" CssClass="controlBotones" /> </td> </tr> <tr> <td align="center"> <asp:Label ID="Label1" runat="server" style="font-family: Calibri; font-size: medium; color: #CC3300"></asp:Label> </td> </tr> <tr> <td> </td> </tr> </table> </td> </tr> </table> </form> </body> </html> Este es el codigo que va en el Code Behind (aspx.vb) Imports System.Net.Mail.MailMessage Imports System.Net.Mail.Attachment Imports System.Net.Mail Partial Public Class FrmEnviarCorreo Inherits System.Web.UI.Page Protected Sub btnEnviar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnEnviar.Click If FileUpload1.HasFile Then Try FileUpload1.SaveAs("C:\temp\" + FileUpload1.FileName) 'SUPONIENDO QUE ES LA CARPETA DEL SERVIDOR ACA ESTA EN EL PC LOCAL POR ENDE USTEDES LE DAN LA RUTA DE LA CARPETA UBICADA EN EL SERVIDOR. Me.Label2.Text = "Nombre Archivo: " & FileUpload1.PostedFile.FileName & "<br>" & _ "Tamaño Archivo: " & FileUpload1.PostedFile.ContentLength & " kb<br>" Catch ex As Exception Throw New Exception("Error: (" & ex.Message & ")") End Try Else Me.Label1.Text = "No se ha especificado un archivo" End If Dim correo As New System.Net.Mail.MailMessage() correo.From = New System.Net.Mail.MailAddress(Me.txtDe.Text) correo.To.Add(Me.txtPara.Text) correo.Subject = Me.txtAsunto.Text correo.Body = Me.txtDescripcion.Text correo.IsBodyHtml = False correo.Priority = System.Net.Mail.MailPriority.Normal correo.Attachments.Add(New Attachment(FileUpload1.PostedFile.InputStream, FileUpload1.FileName)) Dim smtp As New System.Net.Mail.SmtpClient smtp.Host = "smtp.gmail.com" 'para gmail 'smtp.Host = "smtp.live.com" 'para hotmail smtp.Port = 587 smtp.Credentials = New System.Net.NetworkCredential("[email protected]", "xxxxxx") smtp.EnableSsl = True Try smtp.Send(correo) Me.Label1.Text = "Mensaje enviado satisfactoriamente" Catch ex As Exception Throw New Exception("Error: (" & ex.Message & ")") End Try End Sub End Class Espero que sea de total ayuda para el que lo necesite.

Se agradece hermano muy bueno

HOla Peter Yo me compre el samsung i5800 y sabes que el tiempo que lo he tenido que es como 1 mes mas menos no he tenido problema he descargado aplicaciones y me han funcionado bien hasta le instale un antivirus y tambien me funciona excelente tiene muy bena señal a todo esto es de entel. No es mal telefono la version del sistema operativo es excelente en cuanto a musica tiene un buen sonido tiene volumenes independientes como por ejemplo tu le puedes controlar el nivel de volumen para las notificaciones de mensajes, llamadas, sonidos multimedia, etc. la camara a pesar de ser de 3 mp tiene muy buena grafica cuando me conecto a internet ya sea por 3g o por wifi es rapido y no se queda pegado. a mi me gusto el telefono y me siento comodo usandolo. eso compadre. ahora es tu decision si lo quieres o no exito amigo mio nos vemos

Vale Hermano muy buen juego felicidades estoy intalandolo en estos momentos gracias !!!!

SI HERMANO FUE DE MUCHA AYUDA MUCHAS GRACIAS

Andoneszzz: Disculpame no por haber especificado bien que solo es una ayuda obvio que no quiero que me hagan todo nunca tan patuo tampoco solo estaba pidiendo una ayuda como la tuya y se agradece mucho tengo la idea pero no se como empezarla cachay igual seguire pidiendo opiniones de mas usuarios todo es valido pero de todas formas muchas gracias me aclaraste algunos puntos

Hola amigos sere breve muches de ustedes se han topado con alguna aplicacion por ejemplo registran un cliente y al momento de guardarlo dice el numero del cliente es: XXXX o la solicitud numero XXXXX se ha guardado satisfactoriamente. necesecito algo asi estoy haciendo mi tesis y necesito guardar cosas pero que me genere un ID al momento presionar el boton guardar. no se si hay que hacer una funcion que me llame un ID de la misma base de datos nose muy bien como podria hacer eso gracias

[/b]Muchas gracias izmah por el aporte he bajado las 3 primeras temporadas y todo me ha funcionado OK ya descargue el DVD 1 de la temporada 4 y ya descargue el DVD 2 de la temporada 4 pero sabes que al momento de descomprimir me arroja un error en la parte 41 este DVD lo descargue por MU y RS por los 2 servidores ademas me arroja que la contraseña es incorrecta cual puede ser el problema?? por sicaso la parte 41 la descargue por MU a los que les paso este problema y lo pudieron solucionar como lo hicieron GRACIAS esperando la 5ta temporada

Perrito con respecto a la parte 28 de la primera temporada del DVD 2 a mi se me descomprimio sin ningun problema verifica si estas descargando desde megaupload tanto como rapidshare ya que al momento de bajar los archivos se bajan con distinto nombre si bajas desde megaupload el nombre del archivo te aparecera sin guiones (_) en cambio con rapidshare te aparecenpor cada separacion el _ (guion bajo) ojala pueda servirte esa ayuda.

ASi es compadre descargue el DVD 1 y el DVD 2 y ahora que ya descargue el DVD 3 y lo quiero descomprimir me pide una error de contraseña mi consulta los LINKS eran ntercambiables o no ????? porque con la contraseña de WWW.CHILE(Palabra Censurada).ORG no sale nada si pudieras arreglar ese error es que la temporada esta rewena y no quiero quedarme pegao . de todas formas se agradece el aporte y ojala esta ley que quiere sacar este pais no la acpten. GRACIAS y sigue con esos aporte rewenos.