|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - dlplenin
1
« en: Sábado 20 de Noviembre de 2010, 18:09 »
hola mbisurgi, no se si entiendo bien pero,
si esta informacion es de una tabla "SubTarget" (Cree un Datagridview que me trae los datos de una tabla llamada SubTarget)... esta tabla ya deberia tener IDSubTarget por q esta es la clave primaria de la tabla (esto no se puede guaradr como nulo).
esto deberias hacerlo al momento q creas el registro en la tabla, es decir en el insert de cada SubTarget.
Espero haberme explicado y q t sirva de algo.
saludos
2
« en: Martes 16 de Noviembre de 2010, 17:10 »
Hola El problema es q al momento de escribir si te fijas esta un salto de linea al final.
Si solo envias una palabra cambia
fi.WriteLine(textoInicio)
por
fi.Write(textoInicio)
espero te ayude
saludos
3
« en: Sábado 6 de Noviembre de 2010, 15:32 »
Hola
No se si es lo q buscas, pero me parece q te puede servir, simplemente agrega "ToolStripButton1.Click" al Handles. Fijate en el final de la primera linea siguiente:
Private Sub TxtCodigo_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TxtCodigo.LostFocus, ToolStripButton1.Click If Existe_Registro() Then TSSLabel.Text = " EL REGISTRO: " & TxtCodigo.Text & ", YA EXISTE, ASIGNE OTRO CODIGO " Beep() TxtCodigo.Focus() End Sub
espero t sirva
4
« en: Viernes 18 de Septiembre de 2009, 06:59 »
hola,
nos encontrasmos nuevamente
mira con la palabra BINARY de lo q se (recien estoy empezando con mysql) se puede hacer un select con "case sensitive"
ej:
select * from `registrodeusuarios` where Usuario = BINARY 'juan'
no es igual que: (por la letra mayuscula "J"uan)
select * from `registrodeusuarios` where Usuario = BINARY 'Juan'
saludos
5
« en: Viernes 18 de Septiembre de 2009, 06:44 »
hola, perdon por la demora
va en el codigo del form y cambia los Private por "Dim" - Lo q te propongo es hacer funciones por separado una q carga y una q inserta - Desde la funcion insertar luego de agregar el registro se llama nuevamente a la funcion cargar (la cual asigna los datos al Grid)
saludos
6
« en: Viernes 18 de Septiembre de 2009, 06:37 »
de nada elultimoguerrero, cuando se pueda aqui estare
saludos
7
« en: Jueves 17 de Septiembre de 2009, 06:33 »
hola primero q nada decirte q no trabajo con access, asi q disculpas si me equivoco pero espero te sirva:
- de lo q entiendo q el codigo del "boton agregar" agrega correctamente el registro a la BDD.
si es asi deberias llamar nuevamente al proceso de carga de datos desde la BDD (ya q el nuevo dato se encuentra en BDD), se me acurre la siguiente estructura:
Public Sub CargarDatos() Private MiAdaptadorMat As New OleDbDataAdapter("SELECT * FROM precios WHERE COS_MATMDO = 'MAT' ORDER BY COS_DESCR", MiConexion) Private MiDataSetMat As New DataSet() Private MiEnlazadorMat As New BindingSource Me.GridMateriales.DataSource = MiDataSetMat.Tables(0) End Sub
Form_Load() CargarDatos() End Sub
Sub boton_agregar() 'aqui se deberia declarar MiAdaptadorMat con el query respectivo With MiAdaptadorMat .InsertCommand = New System.Data.OleDb.OleDbCommand .InsertCommand.Connection = MiConexion .InsertCommand.CommandText = "INSERT INTO Precios(COS_DESCR,COS_COSTO) VALUES (@material,@costo)" .InsertCommand.CommandType = System.Data.CommandType.Text .InsertCommand.Parameters.Add("@material", OleDbType.VarChar).Value = txtMaterialesNuevoMat.Text .InsertCommand.Parameters.Add("@costo", OleDbType.VarChar).Value = txtCostoEditMat.Text End With CargarDatos() End Sub
saludos
8
« en: Jueves 17 de Septiembre de 2009, 06:07 »
Hola, me alegro q te haya servido
se me ocurre lo siguiente si quieres mejor la estetica del combobox (y asi te queda una aplicación mas intuitiva):
Imports MySql.Data.MySqlClient Imports System.Data
Public Class Form2
Dim con As New MySqlConnection() Dim da As New MySqlDataAdapter() Dim ds As New DataSet() Dim dr As DataRow
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load con = New MySqlConnection("datasource=localhost;username=root;password=root;database=prueba") da = New MySqlDataAdapter("select concat(apellido ,' ',nombre) as na,id from tableprueba order by apellido asc", con) da.Fill(ds, "tableprueba") ''''adicion de registro personalizado Dim row As DataRow row = ds.Tables("tableprueba").NewRow row("id") = "-1" row("na") = "<Escoja el usuario>" ds.Tables("tableprueba").Rows.InsertAt(row, 0) ''''fin adicion de registro personalizado Me.cselecciondelcliente.DataSource = ds.Tables("tableprueba").DefaultView cselecciondelcliente.ValueMember = "id" cselecciondelcliente.DisplayMember = "na" End Sub
Private Sub btn_value_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_value.Click ' aqui deberias validar que el valor obtenido sea diferente de "-1", ya q este valor es el de la row personalizada Me.txt_value.Text = Me.cselecciondelcliente.SelectedValue End Sub End Class
saludos
9
« en: Miércoles 16 de Septiembre de 2009, 05:52 »
hola, prueba asi: - En el select puedes sacar tambien el campo No_credencial (en mi codigo es el campo id) - asigna ValueMember y el DisplayMember al combobox - en el boton buscar obtines el valor del No_credencial desde el mismo combobox (Me.cselecciondelcliente.SelectedValue)
Imports MySql.Data.MySqlClient Imports System.Data
Public Class Form2
Dim con As New MySqlConnection() Dim da As New MySqlDataAdapter() Dim ds As New DataSet() Dim dr As DataRow
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Dim I As Integer con = New MySqlConnection("datasource=localhost;username=root;password=root;database=prueba") da = New MySqlDataAdapter("select concat(apellido ,' ',nombre) as na,id from tableprueba order by apellido asc", con) da.Fill(ds, "tableprueba") ' If ds.Tables("tableprueba").Rows.Count > 0 Then 'For I = 0 To ds.Tables("tableprueba").Rows.Count - 1 'dr = ds.Tables("tableprueba").Rows(I) Me.cselecciondelcliente.DataSource = ds.Tables("tableprueba").DefaultView cselecciondelcliente.ValueMember = "id" ' en lugar de id pones No_credencial cselecciondelcliente.DisplayMember = "na" 'cselecciondelcliente.Items.Add(dr("na")) 'Next 'End If End Sub
Private Sub btn_value_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_value.Click Me.txt_value.Text = Me.cselecciondelcliente.SelectedValue End Sub End Class
Saludos
10
« en: Domingo 31 de Mayo de 2009, 07:11 »
si no estoy mal puedes agregar una referencia al mschrt20.ocx desde el ToolBox del VS2005, y lo puedes utilizar sin ningun problema al msChart .
saludos
11
« en: Domingo 31 de Mayo de 2009, 06:55 »
prueba con esto
Try Dim sr As System.IO.StreamReader = System.IO.File.OpenText("C:fich.bif") Do Until sr.Peek = -1 Dim linea As String linea = CStr(sr.ReadLine)
If linea.Contains("DeviceUniqueID") Then ' aqui se busca una linea q tenga la palabra DeviceUniqueID 'aqui tu código End If Loop sr.Close() Catch ex As Exception
End Try
saludos
12
« en: Domingo 31 de Mayo de 2009, 06:44 »
El siguiente ejemplo muestra como desplegar el cuadro de dialogo y poner la ruta en TextBox1.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then Me.TextBox1.Text = OpenFileDialog1.FileName End If End Sub
En la propiedad Filter pon por ejemplo : texto plano|*.txt
saludos
13
« en: Domingo 31 de Mayo de 2009, 06:30 »
Yo te recomendaria que uses 2008.
Tiene unos cuantos componentes mas q 2005 q son de mucha utilidad.
Además en 2008 puedes aplicar manuales de 2005 (en su gran mayoria).
saludos
14
« en: Domingo 31 de Mayo de 2009, 06:25 »
Prueba con los eventos (del DataGridView):
CellBeginEdit y CellEndEdit
saludos
15
« en: Domingo 31 de Mayo de 2009, 06:13 »
disculpa x no haberte contestado, acabo de ver tus mensajes
me alegro q hayas encontrado la solución
saludos
16
« en: Domingo 31 de Mayo de 2009, 06:11 »
disculpa x la demora en contestar (acabo de ver tu mensaje) la respuesta es si Al crear un instalador puedes agregar los archivos q tu quieras revisa http://www.onglasses.net/Default.aspx?id=1265saludos
17
« en: Sábado 16 de Mayo de 2009, 06:02 »
prueba con esto:
System.Windows.Forms.Help.ShowHelp(this, (My.Application.Info.DirectoryPath + "\Ayuda\Documentacion.chm"));
saludos
18
« en: Sábado 16 de Mayo de 2009, 05:55 »
hola
Dim a As String = "0;2" 'aqui pones el valor que obtienes de la base de datos , en este ejemplo se supone q obtienes de la BDD los indices que selecciono cuando guardaste en la BDD
Dim opciones As String() = a.Split(";")
For i As Integer = 0 To opciones.Length - 1 Me.CheckBoxList1.Items(opciones(i)).Selected = True Next
saludos
19
« en: Sábado 16 de Mayo de 2009, 05:20 »
q tal...
creo q te falta poner => If Not Page.IsPostBack Then
por ejemplo:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then
' aqui tus procesos
End If End Sub
saludos
20
« en: Viernes 6 de Marzo de 2009, 23:54 »
Me alegro q te sirviera
Saludos
21
« en: Martes 3 de Marzo de 2009, 00:57 »
Muchas gracias, acabo de consegiur hacer que una función "suma" de VB funcione a la perfección dentro de mi código c++.
De nada bro...
22
« en: Lunes 23 de Febrero de 2009, 15:11 »
1)Le das en "Add New Column..." y seleccionas TemplateField 2)Le das en "Edit Templates" y cuando se abra el ItemTemplate arrastras un checkbox.
Estas opciones estan en Gridview Tasks
saludos
23
« en: Lunes 23 de Febrero de 2009, 14:58 »
24
« en: Lunes 23 de Febrero de 2009, 14:50 »
25
« en: Viernes 13 de Febrero de 2009, 01:29 »
|
|
|