|
Mostrar Temas
|
Páginas: 1 [2] 3
|
11
|
Programación / .NET (C#, VB.NET, ASP) / Crear un texbox y un boton en tiempo de ejecucion [Solucionado]
|
en: 18 Abril 2011, 20:47 pm
|
Hola a todos, Tengo un formulario al cual contiene un Tabcontrol, las páginas de este tabcontrol las creo en tiempo de ejecución, mediante el siguiente código Private Sub Btn_Aceptar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn_Aceptar.Click Dim myTabPage As New TabPage() Dim Txt_Buscar As New TextBox() If Cmb_Actividad.Text = "Norm.Compl. 1F (Sin CM)" Then myTabPage.Text = "Norm.Compl 1F" & (Frm_Almacen.TabControl1.TabPages.Count + 1) Frm_Almacen.TabControl1.TabPages.Add(myTabPage) End If If Cmb_Actividad.Text = "Norm.Compl. 3F Direc. (Sin CM)" Then myTabPage.Text = "Norm.Compl 3F" & (Frm_Almacen.TabControl1.TabPages.Count + 1) Frm_Almacen.TabControl1.TabPages.Add(myTabPage) End If End Sub
Me gustaria me puedan ayudar con lo sigueinte: como puedo agregar en cada pagina que cree (con el codigo anterior) un Textbox y un Boton Desde ya muchas gracias.
|
|
|
12
|
Programación / .NET (C#, VB.NET, ASP) / AutoComplete en un Textbox o Combobox
|
en: 5 Abril 2011, 17:30 pm
|
Hola a todos, estoy haciendo una aplicación para dispositivo mobil y quisiera saber si se puede hacer un AutoComplete en un Textbox o Combobox, he intentado con la siguiente propiedad TextBox1.AutoCompleteCustomSource pero al parecer esta propiedad no esta soportada para este tipo de aplicaciones, de que otra manera se puede hacer.
Desde ya muchas gracias!!!
|
|
|
13
|
Programación / .NET (C#, VB.NET, ASP) / Agregar columnas a un datagrid
|
en: 31 Marzo 2011, 21:44 pm
|
Hola a todos, estoy haciendo una aplicación para dispositivo mobil y necesito hacer lo siguiente: tengo un DataGrid el cual me muestra los datos de una tabla de la base de datos hasta aquí todo anda bien pero lo que no se como hacer es poder agregar 2 columnas mas a este DataGrid y que las celdas de estas 2 columnas nuevas queden habilitadas para escritura. me pueden ayudar a esto por favor!!! Desde ya muchas gracias!!!!
|
|
|
14
|
Programación / .NET (C#, VB.NET, ASP) / Ayuda con ComboBox
|
en: 9 Marzo 2011, 12:53 pm
|
Hola amigos, quisiera que me ayudaran en lo siguiente: en mi proyecto tengo 2 tipos de combobox unos que me muestran datos de una base de datos y otros que los llene manualmente en la propiedad ítems, Los que lleno con la base de datos lo hago de la siguiente manera: Dim adp2 As New SQLiteDataAdapter("select MED_MARCA from cmb_medidores ", cnnloc2) adp2.Fill(vds2, "CMB_MEDIDORES") ComboBox1.DataSource = vds2.Tables("CMB_MEDIDORES") ComboBox1.DisplayMember = "MED_MARCA"
Lo que quiero hacer es que estos siempre me muestren como primer item en la lista un “Seleccione una Opccion…” Como Puedo Hacer esto? Con los que lleno manualmente tengo el siguiente problema siempre el primer item que muestran es vacio, me gutaria hacer lo mismo con estos que como primer item me muestre “Seleccione una Opccion…”, en estos agregue ese item pero me sigue mostrando como primero el vacio. Por favor solicito su ayuda.
|
|
|
15
|
Programación / .NET (C#, VB.NET, ASP) / Recorrer dataGrid
|
en: 24 Febrero 2011, 15:40 pm
|
Hola Amigos, tengo un DataGrid el cual lleno con información de una tabla de una base de datos que está en SQLite, lo que necesito es que una ves que muestro los datos en el datagrid es recorrer este datagrid e ir insertando la información de sus filas en otra tabla de la base de datos. como se hace esto? Me pueden ayudar por favor. Pongo el código de como lleno mi datagrid. Imports System Imports System.Data Imports System.IO Imports System.Data.SQLite Imports System.Windows.Forms.SystemInformation Public Class Form5 Dim cnnl As New SQLiteConnection Public consulta As String Dim Ada As New SQLiteDataAdapter() Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mySql As String cnnl = New SQLiteConnection("Data Source=\BACKUP\BD\CLAS_MOBILE.db;Version=3;") cnnl.Open() mySql = "SELECT * FROM INS_INSPECCIONES_MOBILE_TMP" DataGrid1.DataSource = RecogerConsulta(mySql) End Sub Public Function RecogerConsulta(ByVal mySql As String) As DataTable Dim tmpTable As New DataTable Try Ada = New SQLiteDataAdapter(mySql, cnnl) Ada.Fill(tmpTable) Catch ex As Exception MessageBox.Show(ex.Message, "Error") End Try Return tmpTable End Function End Class
Desde ya muchas gracias. Se me olvidaba decir que es para una aplicación .NET Compact Framework 2.0 para Windows CE 5.0
|
|
|
16
|
Programación / .NET (C#, VB.NET, ASP) / DataGrid No muestra nada [SOLUCIONADO]
|
en: 23 Febrero 2011, 15:56 pm
|
hola a todos, tengo el siguiente código que se supone debería mostrarme toda la información que existe en una tabla de una base de datos SQlite, pero no se por que no lo hace y me da el siguiente error: "FormatException"Mi código es el siguiente: Código vb: Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim mySql As String mySql = "SELECT * FROM INS_INSPECCIONES_MOBILE_TMP" tmpTable = RecogerConsulta(mySql) DataGrid1.DataSource = tmpTable 'asignar los datos a datagrid End Sub Public Function RecogerConsulta(ByVal mySql As String) As DataTable Dim tmpTable As New DataTable Try Ada = New SQLiteDataAdapter(mySql, cnnloc2) Ada.Fill(tmpTable) Catch ex As Exception MessageBox.Show(ex.Message, "Error") End Try Return tmpTable End Function End Class
|
|
|
17
|
Programación / Bases de Datos / Comparacion de una concatenacion
|
en: 14 Febrero 2011, 17:01 pm
|
Hola a todos, me gustaría que me ayuden en el siguiente problema:
Tengo 2 tablas en mi base de datos tabla1 y tabla2 Quiero hacer una consulta que me haga lo siguiente: Concatenar los campos de la tabla1 y compararlos con la concatenación de los campos de la tabla2 si en esta comparación encuentra un dato igual, entonces debe eliminar ese registro en la tabla1.
Espero se entienda lo que quiero hacer.
Un ejemplo gráfico seria como:
Tabla1 Campo1|Campo2 Juan |Pérez
Tabla2 Campo1|Campo2 Juan |Pérez
Al concatenar quedarían a si
Concatenación tabla1 =juanperez
Concatenación tabla2 =juanperez
En este caso como las 2 concatenaciones son iguales Debería eliminar el registro de la tabla1
Se puede hacer esto???
|
|
|
18
|
Programación / .NET (C#, VB.NET, ASP) / Enviar datos de una tabla a otra con vb.net
|
en: 3 Febrero 2011, 15:03 pm
|
Hola a todos, Necesito de su ayuda nuevamente, el problema es el siguiente, tengo una base de datos en SQLite la que trabaja en forma local en esta base tengo una tabla llamada inspección, también tengo esta misma tabla en una base de datos que está en otro equipo (servidor) esta última base de datos esta en SQL Server 2005, las conexiones a las 2 bases las realizo sin problemas, lo que necesito es que me ayuden a realizar es lo siguiente, en un formulario tengo un botón llamado “enviar” lo que quiero es que cuando pinche este botón, toda la información que está en la tabla inspecciones de la base de datos local se transmita a la tabla inspecciones de la base de datos del servidor, la idea es que vaya transmitiendo fila por fila y al terminar cada fila la borre de la base de datos local. Por favor ayuda!! Desde ya muchas gracias.
|
|
|
19
|
Programación / .NET (C#, VB.NET, ASP) / capturar el valor de un combobox
|
en: 21 Enero 2011, 14:23 pm
|
Hola amigos, de nuevo yo aqui preguntando lo que pasa es que tengo un combox el que cargo con datos obtenidos de una tabla de la base de datos, ahora lo que quiero es capturar el valor seleccionado en el combobox, en otras palabras quiero que cuando el valor del combobox vaya cambiando me vaya guardando este valor una variable o en un texbox. me podrian ayudar con esto por favor!! el codigo con el que lleno mi combobox con los datos de la base es: Dim adp As New SQLiteDataAdapter("select * from cmb_zona order by case zon_nombre when " & "'" & Module1.zona & "' then 1 else 99 end", cnnloc) adp.Fill(vds, "CMB_ZONA") ComboBox2.DataSource = vds.Tables("CMB_ZONA") ComboBox2.DisplayMember = "ZON_NOMBRE"
desde ya muchas gracias...
|
|
|
20
|
Programación / .NET (C#, VB.NET, ASP) / Pasar el valor de una variable de un formulario a otro
|
en: 18 Enero 2011, 17:27 pm
|
Hola a todos, tengo el siguiente problema, tengo un formulario que es un login de usuario cuando el usuario se autentifica este formulario se cierra y me abre un formulario2 hasta aquí todo bien , el problema es que necesito pasar el valor que tengo en una variable en el formulario 1 al formulario 2 pero no me toma a que se debe esto. codigo de mi primer formulario Imports System Imports System.Data Imports System.IO Imports System.Data.SQLite Public Class Form1 Dim cnn As New SQLiteConnection Public consulta As String Dim frm As Form2 Public ZONA As String Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load cnn = New SQLiteConnection("Data Source=\BACKUP\BD\CLAS_MOBILE.db;Version=3;") Try If (Not File. Exists("\BACKUP\BD\CLAS_MOBILE.db")) Then CrearTablas(cnn) End If Catch ex As Exception MessageBox.Show(ex.Message, "Error") End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cnn.Open() If USUARIO.Text = "" Or PASSWORD.Text = "" Then MessageBox.Show("Debe Ingresar Usuario y Contraseña") Else Try If (File. Exists("\BACKUP\BD\CLAS_MOBILE.db")) Then consulta = String.Format("SELECT count(USU_USUARIO) as cuenta, USU_ZONA FROM CMB_USUARIO WHERE USU_USUARIO='{0}'", USUARIO.Text) Dim Ada As New SQLiteDataAdapter() Dim Sqlstr As New SQLiteCommand(consulta, cnn) Dim dr As SQLiteDataReader = Sqlstr.ExecuteReader(CommandBehavior.CloseConnection) While dr.Read Dim value As Object = dr.Item("cuenta") Dim value2 As Object = dr.Item("USU_ZONA") ZONA = CStr(value2) ' ESTA ES LA VARIABLE QUE QUIERO PASAR If value = 1 Then ' EN ESTA PARTE UTILIZO UN MODULO PARA CERRAR UN FORM Y ABRIR OTRO Me.Close() Me.Dispose() Me.DialogResult = Windows.Forms.DialogResult.OK Else MessageBox.Show("Usuario o Contraseña Incorrectos...!!!", "Error") End If End While dr.Close() Else MessageBox.Show("No existe base de datos", "Error") End If Catch ex As Exception MessageBox.Show(ex.Message, "Error") End Try End If End Sub Private Sub CrearTablas(ByVal Cnn As SQLiteConnection) Using _Cmd As SQLiteCommand = Cnn.CreateCommand _Cmd.CommandText = "CREATE TABLE CMB_USUARIO (USU_USUARIO VARCHAR (8) NOT NULL,USU_PASS VARCHAR (8) NOT NULL,USU_ZONA VARCHAR (25) NOT NULL)" _Cmd.ExecuteNonQuery() _Cmd.CommandText = "INSERT INTO CMB_USUARIO VALUES('usu01','123456','peru')" _Cmd.ExecuteNonQuery() End Using End Sub End Class
este es el codigo del modulo para cerrar un fomulario y pasar al fomulario 2 Module Module1 Sub Main() Dim vResultado As New Form1 If vResultado.ShowDialog() = DialogResult.OK Then Dim frm As New Form2 frm.ShowDialog() End If End Sub End Module
Este es elcodigo de mi segundo formulario donde se supone que rescato la variable del primer formulario: Public Class Form2 Dim zona_frm2 = Form1.ZONA ' AQUI SE SUPONE QUE RESCATO LA VARIABLE Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.TextBox1.Text = zona_frm2 ' quiero que lo de la variable lo coloque en este texbox, pero no pasa nada :-S Form1.Close() End Sub Private Sub Label1_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.ParentChanged Label1.Text = FormatDateTime(Now(), DateFormat.GeneralDate) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Hide() Dim frm2 As New Form3 frm2.ShowDialog() End Sub End Class
Por favor ayuda... desde ya muchas gracias. PD: Gracias a IT que me ayudo hacer el codigo, para la conexion con SQLite
|
|
|
|
|
|
|