Como limpiar un combobox en vb net

Estimados lectores, ha sido una experiencia agradable el hacer este blog y tener algunos lectores que comparten el gusto por la programación; actualmente estoy empezando otro proyecto, muy personal,  con tecnología web  que espero compartir con toda la comunidad de programadores y necesito recursos porque es algo muy personal y mi situación financiera no es muy buena.

 Si alguien desearía apoyarme  tengo una tarjeta Oxxo Saldazo con el número:  4766-8408-7508-1593, cualquier apoyo lo pueden hacer en cualquier tienda Oxxo o en Banamex, les agradezco y que sus proyectos lleguen a buen fin.

Amigos, les platico mi experiencia, hace tiempo hice una rutina para llenar un combobox desde un datable, por exigencias de mi rutina, tenía que volver a entrar una y otra vez si cierta condición se cumplía, yo probé a limpiar el combobox con varios métodos como:

       Cbocompan.DataSource = Nothing

        Cbocompan.Items.Clear()

        Cbocompan.Refresh()

Y ¡NADA de NADA! me seguía añadiendo otro registro u otros registros al combobox de tal manera que si entraba 20 veces a la rutina me duplicaba 20 veces la información del combobox

Razone que puesto que el combobox venia de un datatable, algo estaba pasando con el datatable, yo asumía erróneamente que cuando se crea una instancia del sqldataadapter y llena(fill) el datatable lo dejaba limpio o lo reinicializaba, pues ¡RESULTA QUE NO! VUELVE A ÑADIR OTROS REGISTROS A ESA DATABLE A PESAR DE QUE EN LA BASE DE DATOS SOLO TIENE 3 REGISTROS.   

Para que quede claro, a continuación les muestro la forma en que llenaba el combobox, donde DT es es mi datatable y sp_traecompan es mi stored procedure que me trae los datos d la base de datos

            Dim miadaptador As SqlDataAdapter

miadaptador = New SqlDataAdapter("sp_traecompan", nvacnn.miConexion)

            miadaptador.SelectCommand.CommandType = CommandType.StoredProcedure

            miadaptador.Fill(dt)

            Cbocompan.DataSource = dt

            Cbocompan.DisplayMember = dt.Columns("desccompania").Caption.ToString

            Cbocompan.ValueMember = dt.Columns("cvecia").Caption.ToString

            Cbocompan.SelectedValue = ""

‘aquí verifico cuantos registros tiene mi datatable, en la tabla de la base original solo tengo tres registros, esto lo hice cuando me canse de tratar de limpiar el combo y nada

            Dim numeroreg As Integer = dt.Rows.Count

‘aqui esta el quid de la cuestión, si entraba una sola vez, el dt.Rows.Count tenía tres ítems(puesto que en mi tabla de la base de datos tengo 3 registros) pero si volvía a entrar ya tenia 6 y si entaba otra vez a esta rutina ya tenia 9 y asi sucesivamente, yo asumi entonces que el datatable no se limpia automáticamente y que hay que añadir la siguiente instrucción antes de hacer la rutina

dt.Clear() ‘¡AQUI ESTA LA SOLUCIÓN, LIMPIAR ANTE DE LLENAR NUEVAMENTE LA DATABLE Y OBVIAMENTE ANTES DE LLENAR EL COMBOBOX!

          Dim miadaptador As SqlDataAdapter

           miadaptador = New SqlDataAdapter("sp_traecompan", nvacnn.miConexion)

Bueno si tienen una mejor solución o sugerencia a este problema , no duden en compartirla

¡Saludos!

Script en sql server de los estados de México

Estimados lectores, ha sido una experiencia agradable el hacer este blog y tener algunos lectores que comparten el gusto por la programación; actualmente estoy empezando otro proyecto, muy personal,  con tecnología web  que espero compartir con toda la comunidad de programadores y necesito recursos porque es algo muy personal y mi situación financiera no es muy buena.

 Si alguien desearía apoyarme  tengo una tarjeta Oxxo Saldazo con el número:  4766-8408-7508-1593, cualquier apoyo lo pueden hacer en cualquier tienda Oxxo o en Banamex, les agradezco y que sus proyectos lleguen a buen fin.

Hola amigos, tuve que hacer un catalogo de estados y me entretuve un buen rato, para que no les pase lo mismo, y  si necesitan un catalogo d e estados, les pongo el script para insertar los estados de México en Sql Server, si no ocupan los de Estados unidos simplemente los borran .
Sludos
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[estados](
    [cvepais] [varchar](3) NOT NULL,
    [codedo] [varchar](4) NOT NULL,
    [descEdo] [varchar](60) NULL
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
GO
CREATE UNIQUE NONCLUSTERED INDEX [Ind_estados] ON [dbo].[estados]
(
    [cvepais] ASC,
    [codedo] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, SORT_IN_TEMPDB = OFF, IGNORE_DUP_KEY = OFF, DROP_EXISTING = OFF, ONLINE = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
GO
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'AL', N'Alabama')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'AK', N'Alaska')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'AZ', N'Arizona')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'AR', N'Arkansas')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'CA', N'California')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'CO', N'Colorado')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'CT', N'Connecticut')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'DE', N'Delaware')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'DC', N'District of Columbia')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'FL', N'Florida')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'GA', N'Georgia')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'HI', N'Hawaii')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'ID', N'Idaho')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'IL', N'Illinois')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'IN', N'Indiana')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'IA', N'Iowa')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'KS', N'Kansas')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'KY', N'Kentucky')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'LA', N'Louisiana')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'ME', N'Maine')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'MD', N'Maryland')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'MA', N'Massachusetts')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'MI', N'Michigan')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'MN', N'Minnesota')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'MS', N'Mississippi')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'MO', N'Missouri')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'MT', N'Montana')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'NE', N'Nebraska')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'NV', N'Nevada')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'NH', N'New Hampshire')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'NJ', N'New Jersey')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'NM', N'New Mexico')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'NY', N'New York')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'NC', N'North Carolina')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'ND', N'North Dakota')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'OH', N'Ohio')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'OK', N'Oklahoma')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'OR', N'Oregon')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'PA', N'Pennsylvania')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'RI', N'Rhode Island')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'SC', N'South Carolina')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'SD', N'South Dakota')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'TN', N'Tennessee')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'TX', N'Texas')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'UT', N'Utah')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'VT', N'Vermont')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'VA', N'Virginia')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'WA', N'Washington')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'WV', N'West Virginia')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'WI', N'Wisconsin')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'USA', N'WY', N'Wyoming')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'AGS', N'Aguascalientes')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'BCN', N'Baja California')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'BCS', N'Baja California Sur')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'CAM', N'Campeche')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'CHP', N'Chiapas')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'CHH', N'Chihuahua')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'COA', N'Coahuila')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'COL', N'Colima')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'DIF', N'Distrito Federal')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'DUR', N'Durango')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'GUJ', N'Guanajuato')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'GRO', N'Guerrero')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'HID', N'Hidalgo')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'JAL', N'Jalisco')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'MEX', N'Mexico')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'MIC', N'Michoacan')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'MOR', N'Morelos')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'NAY', N'Nayarit')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'NLE', N'Nuevo Leon')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'OAX', N'Oaxaca')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'PUE', N'Puebla')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'QUE', N'Queretaro')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'ROO', N'Quintana Roo')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'SLP', N'San Luis Potosi')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'SIN', N'Sinaloa')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'SON', N'Sonora')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'TAB', N'Tabasco')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'TAM', N'Tamaulipas')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'TLA', N'Tlaxcala')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'VER', N'Veracruz')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'YUC', N'Yucatan')
INSERT [dbo].[estados] ([cvepais], [codedo], [descEdo]) VALUES (N'MEX', N'ZAC', N'Zacatecas')

Con una pequeña ayuda de mis amigos

Estimados lectores, ha sido una experiencia agradable el hacer este blog y tener algunos lectores que comparten el gusto por la programación; actualmente estoy empezando otro proyecto, muy personal,  con tecnología web  que espero compartir con toda la comunidad de programadores y necesito recursos porque es algo muy personal y mi situación financiera no es muy buena.

 Si alguien desearía apoyarme  tengo una tarjeta Oxxo Saldazo con el número:  4766-8408-7508-1593, cualquier apoyo lo pueden hacer en cualquier tienda Oxxo o en Banamex, les agradezco y que sus proyectos lleguen a buen fin.

Con una pequeña ayuda de mis amigos

Hola amigos, les comunico que necesito urgentemente su AYUDA, necesito un trabajo urgente fijo con un sueldo de quince mil pesos mexicanos libres, tengo amplios conocimientos de Sql server 2008 r2, vb net, y un mediano conocimiento de programación  en web con ASP net, repito PROGRAMACION, de diseño tengo poca idea; tengo 56 años y probablemente ese sea un obstáculo para conseguir un trabajo fijo pero tengo la disciplina y la energía para llevar a cabo cualquier proyecto que se me encomiende.

Vivo actualmente en la ciudad de Chilpancingo Guerrero, podría trabajar en un lugar cercano o en la ciudad de México D.F. mis datos para una propuesta seria son cel 7471075157 telefono casa: 017474712778 correo electrónico: ajimenez013@hotmail.com  mi nombre es: Amado Jiménez Montiel

Actualmente trabajo via remota y tengo un ingreso de alrededor de 7 mil pesos pero en este momento tengo demasiados problemas: un hijo con un tratamiento medico costoso, la madre de mi hijo muy enferma, problemas legales con una persona abusiva y de mala fe, una inversión con unos amigos que me han quedado mal y a los cuales no quiero demandar legalmente porque son amigos de hace muchos años.

He aquí la historia:

Desde hace diez años trabajo en proyectos independientes y todos los cuales han sido exitosos (recordemos que el 80 % de programas jamás entran en producción)

Nunca he sido ambicioso de dinero  por lo tanto con los proyectos que hacia estaba perfecto, pero en el año 2012 mi hijo empezó a tener problemas médicos cuyo tratamiento era caro y casi al mismo tiempo su madre empezó a agravarse de salud.

Por lo tanto decidi vender un terreno que tenia en las orillas de la ciudad, como nadie tenia el dinero completo para pagármelo en un solo pago, ya ven que la situación económica en el país es muy dura para la mayoría de los habitantes, solo están bien los jerarcas del gobierno, ya que con los aumentos a la gasolina y luz nos han partido el eje trasero y delantero, decidi venderlo en partes.

Bueno pues vendi una fracción de terreno a un vecino que conocía de años pero que yo no sabia sus antecedentes: era invasor de terrenos federales, transa y un hombre sin palaba. El terreno que tengo tiene un poco de desnivel , él tiene pleno acceso a la calle principal pero  me propuso que le diera permiso de pasar por mi terreno para servicios de drenaje etc. Yo acepte porque pensaba vender dos fracciones mas de terreno y quedarme con una y de todas maneras tenia que dar paso a las personas que quedaran enclavadas; yo le dije que pasaría si yo no fraccionaba y solo vendia el remanente, él me dijo que no habría ningún problema que si yo decidía vender el remanente solo le regresara el dinero y me pediría algunas concesiones, asi que firmamos un convenio privado.

Bueno  pues la situación familiar se agravo y yo tuve que vender el remanente, le avise al señor vecino que pensaba vender el remanente El vecino me dijo que no había ningún problema que solo le devolviera el dinero que me había dado por el derecho de pasar(servidumbre de paso) que realmente era algo simbolico, alrededor de 14000 pesos. Y que le diera algunas concesiones como son: el agua, y le dijera al nuevo dueño que  permitiera seguir ocupando una casa provisional y una bodega de madera donde él guardaba herramienta y madera, ya que es un albañil y contratista. EL ERROR MAS GRANDE ES CONFIAR EN LA PALABRA DE UNA GENTE SIN ESCUPULOS, YO NO LE HICE FIRMAR NINGUN DOCUMENTO DONDE ESPECIFICAMENTE DESHACIERAMOS LA SERVIDUMBRE DE PASO, solo había hecho un documento genérico donde deshacíamos cualquier documente anterior, jamás me imagine todo lo que iba a suceder después por ese exceso de confianza, vulgo pendejez

El vecino mañosamente se hacia pasar como un gran amigo, y yo le tenia absoluta confianza asi que no desconfie de su palabra e hice una promesa de venta con el nuevo dueño del remanente, al otro dia de esa operación cuando los nuevos dueños empezaron a limpiar su terreno de maleza y otras cosas, el señor apareció impidiéndoles el paso con la policia y ostentadose como dueño  yo al saber eso me presente con él y le dije que que pasaba,que ya habíamos platicado de que yo iba a vender el remanente por l os problemas económicos que yo tenia, su actitud cambio radicalmente ya que de oveja pacifica y amigable se convirtio en un lobo rapaz y miserable, me dijo que como no habiamos deshecho el anterior convenio él iba a hacerlo valer y que no le importaba que yo me metiera en problemas con los nuevos dueños y que le hiciera como quisiera que él no iba a permitir a nadie entrar en el terreno por ese paso y que si querían comprarle su terreno él lo iba a vender al doble de lo que me lo había comprado, había pasado escasamente un mes de la operacion. Cabe aclarar que ni en la escritura publica de él ni en la de los dueños del remanente aparece esa servidumbre de paso, solo aparece en ese convenio privado

Bueno si han logrado llegar hasta aquí sin dormirse, les dire que lo que siguió a continuación ha sido una serie de problemas, yo odio las confrontaciones personales y menos andar en lios judiciales, ahora aparezco en un juicio como reo civil ¡que uta madre! pero bueno él me demando ante un juez civil, sabiendo que yo ya no era dueño de ese remanente, y hace como un mes la jueza dictamino que yo debía respetarle ese convenio y dejar el terreno como estaba, porque según la jueza: era un contrato de compraventa y no una servidumbre de paso, o sea que la jueza no entiende lo que lee y carece de conocimientos jurídicos, de los cuales yo carezco, pero por sentido común se entiende al leer el convenio que es una servidumbre de paso, la sentencia es  completamente ilógica ya que se habia demostrado que no era un contrato de compraventa sino un simple convenio para dejarle paso por el terreno que en ese entonces era de mi propiedad , pero aquí quiero decir una cosa: ES INCREIBLE LA IGNORANCIA DE LOS JUECES EN MATERIA CIVIL , SON AUTENTICOS “BURROS ENZAPATADOS” DESGRACIADAMENTE SON LOS QUE NOS JUZGAN Y AFECTAN NUESTRO PATRIMONIO Y TRANQUILIDAD. En fin para no hacerle mas al cuento he gastado en abogados, tiempo y tranquilidad y estoy en fase de apelación.

Además para acabarla de joder gran parte de lo que recibi de remanente lo inverti con unos amigos que me dieron como garantía un terreno; ya ven que los bancos en lugar de darnos intereses nos cobran por tener el dinero en su banco y cuando pedimos un préstamo los intereses que nos cobran son astronomicos; aquí cabe otra reflexión “será que los mexicanos somos tan pasivos, por no decir otra cosa, que no protestamos por ese abuso de los banqueros y que nuestros diputados en lugar generar leyes justas para el capital solo les interesa hacerse ricos y aprobar leyes que nos acaben de joder todavía mas”.

Bueno mis amigos de la inversión me han quedado mal con los intereses y ya se venció el plazo para que me regresen mi capital, no quiero demandarlos porque han sido amigos de muchos años y tampoco tengo dinero para andarlo gastando en mas abogaos.

En fin amigos si no me da un infarto por tantos problemas, al menos creo tener buena salud, espero seguir compartiendo con ustedes los conocimientos y retroalimentándome de su valiosa información

Asi.. que con una pequeña ayuda de mis amigos …seguiremos en el camino de a vida hasta que DIOS nos permita.

Saludos a todos los que a lo largo de 4 años han leido este blog