|
Mostrar Temas
|
Páginas: 1 2 [3] 4 5 6
|
21
|
Programación / .NET (C#, VB.NET, ASP) / Consulta dataset tipado, VS.NET 2010 VB.NET
|
en: 17 Octubre 2015, 19:52 pm
|
Buenas, Estoy realizando un crystal report, el crystal report se llena con un dataset, donde es un objeto xsd donde le defino previamente sus datatables, la cuestión es que realizo una consulta y el dataset debería en buena teoría llenarse con la misma, pero resulta que no lo hace sino que queda vacío, como hago para llenar ese dataset desde el código para luego simplemente pasarselo lleno al crystal report y generar la consulta?. Este es el código que tengo, el cuál recibe como parámetro un entero, este mismo retorna un dataset, el cuál según yo debería llenar al item xsd que definí con el diseñador de visual studio, porque el crystal jala ese datasource de ese dataset y de ahí simplemente debería desplegar los campos No lo hago desde el wizard poque queda completamente suspeditado a una ruta del archivo de access y bueno para hacer un datasource dinámico es un poco engorroso desde el wizard, entonces simplemente decidí hacerlo desde un dataset y que en tiempo de ejecución lo llene Public Function llenar_dataset(ByVal fact As Integer) As DataSet Dim cmd2 As OleDb.OleDbCommand = Nothing Dim ds As New DS_Tablas conn.Open() cmd = New OleDb.OleDbCommand("SELECT * FROM tbl_HEADER WHERE ID_CONSECUTIVO = @Id", conn) cmd.Parameters.AddWithValue("Id", fact) cmd.ExecuteNonQuery() Dim da As OleDbDataAdapter = New OleDbDataAdapter(cmd) cmd2 = New OleDb.OleDbCommand("SELECT * FROM tbl_DETAIL WHERE COD_FACTURA = @Id_det", conn) cmd2.Parameters.AddWithValue("Id_det", fact) cmd2.ExecuteNonQuery() Dim da2 As OleDbDataAdapter = New OleDbDataAdapter(cmd2) da.Fill(ds, "tbl_HEADER") da2.Fill(ds, "tbl_DETAIL") conn.Close() Return ds End Function
Acá el código que genera el crystal, el cuál la ruta y lo demás lo hace bien, simplemente sale vacío CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocument() ds = obj_data.llenar_dataset(Convert.ToInt32(lblConsecutivo.Text)) CrReport.FileName = "CrystalReport1.rpt" 'Ruta del reporte str_path_factura = System.Windows.Forms.Application.StartupPath & "\" & "CrystalReport1.rpt" CrReport.Load(str_path_factura) 'Esto es código provisional, simplemente es para saber si el dataset está lleno o no If ds.Tables("tbl_HEADER").Rows.Count() = 0 Or ds.Tables("tbl_DETAIL").Rows.Count() Then MsgBox("Tablas vacías") Else MsgBox("Tu dataset está lleno chico") MsgBox(ds.Tables("tbl_HEADER").Rows.Count().ToString) MsgBox(ds.Tables("tbl_DETAIL").Rows.Count().ToString) End If CrReport.SetDataSource(ds.Tables(0)) CrReport.SetDataSource(ds.Tables(1)) 'CrReport.PrintToPrinter(False, False, False, False)
Pues acá está el código pero le dataset sale vacío y por tanto el reporte igual. GRACIAS POR LEER
|
|
|
22
|
Programación / .NET (C#, VB.NET, ASP) / Imprimir report rdlc vs 2010 vb.net , Consulta
|
en: 12 Octubre 2015, 23:10 pm
|
Buenas, estoy tratando de realizar un POS y pues ya puedo meter los datos en la base de datos y ya tengo mi archivo rdlc con la personalización que necesito, pues como ustedes saben las impresoras POS tienen ciertas medidas, pues tengo el reporte con el formato definido y sus respectivos parámetros. Necesito agarrar ese reporte e imprimirlo directamente en la impresora sin vista previa, ya he visto varios enlaces como por ejemplo este https://msdn.microsoft.com/en-us/library/ms252091.aspxY pues me parece un poco engorroso ese código y sobretodo no me sirve, sólo errores. También veo en ese código que ellos definen los datos del tamaño y el formato, pues yo ya tengo el reporte hecho el diseñador del VS lo cuál creo que no necesito definirselo ahí. Necesito pasarle los parámetros al reporte para hacer correctamente la consulta, donde ya tengo mis datasets definidos, entonces sinceramente no se como hacer para llenar ese reporte y poder imprimirlo. Ya que antes simplemente ponía un control de report viewer y el me lanzaba el dialogo para imprimirlo, pero como es para facturas necesito que no se vea. Private Sub imprimir_reporte() Dim FACT As New ReportParameter("FACT", lbl_Consecutivo.Text) Dim deviceInfo As String = "<DeviceInfo><OutputFormat>EMF</OutputFormat><PageWidth>8.5in</PageWidth><PageHeight>11in</PageHeight><MarginTop>0.25in</MarginTop><MarginLeft>0.25in</MarginLeft><MarginRight>0.25in</MarginRight><MarginBottom>0.25in</MarginBottom></DeviceInfo>" Dim report As New LocalReport() Try Me.Tbl_DETAILTableAdapter1.Fill(Me.FacturacionDataSet1.tbl_DETAIL) Me.Tbl_HEADERTableAdapter1.Fill(Me.FacturacionDataSet11.tbl_HEADER) 'report.ReportPath = "..\..\Report2.rdlc" report.DataSources.Add(New ReportDataSource("HEADER", Me.Tbl_HEADERTableAdapter1.Fill(Me.FacturacionDataSet11.tbl_HEADER))) report.DataSources.Add(New ReportDataSource("DETAIL", Me.Tbl_HEADERTableAdapter1.Fill(Me.FacturacionDataSet11.tbl_HEADER))) report.SetParameters((New ReportParameter() {FACT})) report.ReportEmbeddedResource = "Report2.rdlc" Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub
Ese es el código que tengo, realmente yo tenía el código para imprimir y que a ese reporte le lleguen los datos del dataset les agradezco pero como les digo se hace realmente engorroso y da errores. Con respecto a los datos del dataset pues he visto que uno le define el datasource, y le mando por medio de parámetros el adapter, dataset pero en ninguna parte de mi rdlc necesito hacer eso y pues me tiene confundido. Si uds serían tan amables de darme una guía se los agradezco mucho GRACIAS POR LEER.
|
|
|
23
|
Programación / .NET (C#, VB.NET, ASP) / Consulta Escritorio Remoto VB.NET 2010
|
en: 2 Octubre 2015, 00:24 am
|
Buenas, Estoy haciendo una especie de team viewer, aunque sea pequeñito, esto con el fin de conectarme fácilmente, donde estoy usando vs 2010 con vb.net. Estoy usando la librería MSTSCLib y la referencia es AxInterop.MSTSCLib y también agregué esta Interop.MSTSCLib, en resumen agregué la referencia Microsoft Terminal Services Active Client 1.0 Type Library. Pues resulta que he visto el código y pues no he podido echarlo a andar pues no me conecta, el "panel" no hace nada. Try Dim secured As IMsTscNonScriptable Pnl_Remoto.Server = txtServidor.Text Pnl_Remoto.UserName = txt_Usuario.Text secured = CType(Pnl_Remoto.GetOcx(), IMsTscNonScriptable) secured.ClearTextPassword = txtContraseña.Text Pnl_Remoto.Connect() Catch ex As Exception MsgBox("No se pudo conectar" + vbCrLf + "Error:" + vbCrLf + ex.Message.ToString(), MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
Saben algo que tenga que agregarle, instalarle que estoy haciendo mal? Saludos, gracias por leer.
|
|
|
24
|
Programación / .NET (C#, VB.NET, ASP) / Consulta traslado de proyecto visual studio 2010 C#
|
en: 8 Agosto 2015, 06:02 am
|
Hola, me da pena consultar esto pero sinceramente no se porque no me funciona.
Hice un proyecto de c# en visual studio .net 2010 y necesito pasarlo a un compañero para que el lo continúe, el proyecto pues es algo muy básico y está hecho en capas, en buena teoría simplemente es pasarle todo el folder del proyecto y que el lo abra y lo continúe pero no se porque cuando el lo abre le aparece vacío y verdaderamente necesito que el lo continúe puesto que yo ya hice mi parte y no deseo seguirlo puesto que lo haría todo ¬¬.
Yo simplemente copio y pego el proyecto de la carpeta projects de visual studio y se lo paso, se supone que el con el visual studio lo abre y listo , no ?
El proyecto no lleva referencias, más que las mismas de las capas, es decir capa presentación, lógica y base de datos. Con respecto a los imports pues son de sql server y sqlserver data, nada que no traiga el visual studio.
Que más debo hacer???
GRACIAS POR LEER.
|
|
|
25
|
Programación / .NET (C#, VB.NET, ASP) / Duda Login SQL_Server 2008, Must_Change desde la aplicación
|
en: 25 Junio 2015, 06:56 am
|
Hola, Tengo una duda, estoy usando SQL SERVER 2008 y necesito desde la aplicación la cuál es un C# con visual studio 2010 realizar un login. Desde un principio no suena complicado, pero sinceramente no comprendo como realmente realizo un login desde el SQL SERVER y le pongo un MUST CHANGE para luego DESDE LA APLICACION averiguar que ese login tiene que cambiarse para poder entrar. Tengo este store procedure, el cual me genera bien el script desde el sql server Ahora bien, mi consulta, ¿ Como carajos hago para que cuando yo valide el login desde mi aplicación, mi aplicación sepa que ese login del SQL SERVER debe ser cambiado, y cómo lo hago o cómo lo cambio, con un update o con Transact SQL? CREATE PROCEDURE [dbo].[SP_CREAR_LOGIN_Password_MG] @pUsuario_Login NVarchar(255), @pPassword NVarchar(255), @pUser NVarchar(255), @pRol Nvarchar(255) AS BEGIN DECLARE @SQL AS NVarchar(200) DECLARE @sql2 AS NVarchar(200) SET @SQL='CREATE LOGIN ' + @pUsuario_Login + ' '+ 'WITH PASSWORD= '''+ @pPassword + '''' + '' + 'MUST_CHANGE, CHECK_EXPIRATION = ON' EXEC (@SQL) SET @sql2 = 'CREATE USER ' + @pUser + ' ' + 'FOR LOGIN ' + @pUsuario_Login Print @sql2 EXEC(@sql2) EXEC sp_addrolemember @pRol, @pUser END GO
Con respecto al login pues para saber si existe le realizo un select con un PWD y que me devuelva algo el sp, pero de ahí no se que más cuando valido lo siguiente. No se si me logré explicar. GRACIAS POR LEERME
|
|
|
27
|
Sistemas Operativos / Windows / DUDA monitor se apagó, no daba señal, teclado y mouse bloqueados
|
en: 15 Abril 2015, 22:48 pm
|
Hola, Disculpen no se si esto va en esta sección o si va en la de hardware, mi duda es esta: Tengo un computador con windows 7, de repente el monitor se apagó y no podía hacer nada puesto que no transmitía señal como que parecía , lo curioso que el ordenador permanecía encendido y cuando presionaba teclas y el mouse estos emitían luces. ¿Cuál fue la causa? , ¿ Fue el SO o el hardware?. Me gustaría que me instruyan gracias y de SO si tienen algún manual de como funcionan mejor, quiero aprender más a fondo
|
|
|
28
|
Programación / ASM / Consulta ASM
|
en: 16 Marzo 2015, 16:31 pm
|
Tengo una consulta
¿Cómo hago en ensamblador para comparar coincidencias de una palabra?
Se que con el registro CMP puedo comparar, pero digamos si tengo esto : "LA CASA ES ROJA"
y tengo estas palabras
CASASOLA ROJAVERDE
Estas no son iguales pero tienen coincidencias, ¿cómo lo hago?
Uso Emu8086, saludos!!.
GRACIAS POR TOMARSE LA MOLESTIA DE LEER
|
|
|
29
|
Programación / ASM / Duda ASM
|
en: 26 Febrero 2015, 06:44 am
|
Hola, soy bastante nuevo con esto del ensamblador y se me ha hecho un lio horrendo ;************************************************************ ;Realiza un ordenamiento de un array con 20 numeros ************************************************************ .MODEL SMALL ; Modelo de memoria para el programa .DATA ; Declaracion de variables Mensaje1 db 'Array sin ordenar',0Ah,24h ;declaracion de mensajes,0AH,24h es un salto de linea Mensaje2 db 'Array ordenado',0Ah,24h Mensaje3 db 'Array con multiplos del 3',0Ah,24h .CODE INICIO: ; Cuerpo del programa mov dx,OFFSET Mensaje1 ; Direccion de la cadena de texto mov ah,9 ; Funcion para imprimir cadenas int 21h ; Llamada al sistema operativo INICIALIZACION: mov si,offset tabla_o mov cx,19 mov cambio,0 mov temp, 0 ciclo: mov ah,[si] ;elemento 1 mov al,[si+1] ;elemento 2 cmp al,ah ;Realiza la comparacion del elemento 1 con el 2 jg mayor ;Salta si es mayor fciclo: inc si loop ciclo ;ciclar hasta 20 elementos cmp cambio,1 je INICIALIZACION salir: mov ah,4ch ; servicio del DOS para regresar int 21h ; el control al procesador de comandos msdos ; Funcion para imprimir cadenas ; el control al procesador de comandos msdos cambio db 0 ; variable de estado 1=mayor 0=menor tabla_o db 2,9,16,1,4,5,6,32,17,10,60,63,90,12,33,45,99,100,80 temp db 0; Variable temporal mayor: mov cambio,1 ;T temp = list[i + 1]; ; list[i + 1] = list[i]; ; list[i] = temp; ; madeChanges = true; mov temp, al mov [si + 1] ,ah mov al, temp mov [si],al jmp fciclo END INICIO CODE ENDS END
Emulador 8086, x86 Tengo ese codigo, me gustaria imprimir lo que ordeno a la salida del array o lo que mal ordeno (porque ni siquiera se si lo ordene bien, pero bueno la idea es hacerlo yo si tienen alguna guia o algo que me ayude pues seria genial pero es adicional!). Y es que si utilizo el 21h con el 4ch pues me vuelve a tirar el mensaje de arriba!!. Me ha costado bastante entenderlo, les agradeceria una guia nada mas, GRACIAS POR LEER.
|
|
|
30
|
Programación / .NET (C#, VB.NET, ASP) / No puedo exportar una tabla de access 2007 a Excel con VB.NET 2010
|
en: 26 Enero 2015, 18:26 pm
|
Buenas, Estoy intentando exportar una tabla desde access a una hoja en excel y tengo este código: Private Sub BtnExportar_Click(sender As System.Object, e As System.EventArgs) Handles BtnExportar.Click Dim fichero As String = String.Empty Dim ext As String = String.Empty If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then ' fichero = SaveFileDialog1.FileName Dim AccessConn As New System.Data.OleDb.OleDbConnection(frmLogin.constring) If AccessConn.State = ConnectionState.Open Then AccessConn.Close() Else 'New sheet in Workbook Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT * INTO [Excel 12.0 Xml;DATABASE=" & fichero & ";HDR=Yes;].[CUENTAS] from [CUENTAS]", AccessConn) AccessConn.Open() AccessCommand.ExecuteNonQuery() AccessConn.Close() MsgBox("Archivo exportado con éxito.") End If Catch MsgBox("No se pudo exportar el archivo.") End Try End If End Sub
Resulta que no puedo exportarlo a excel por la siguiente excepción: "No puede registrar los cambios porque uno de los valores que ha especificado infringe la configuración definida para esta tabla o lista (por ejemplo, un valor es inferior al mínimo o superior al máximo). Corrija el error e inténtelo de nuevo." Y lo puedo hacer con otras tablas SIN NINGÚN PROBLEMA, lo curioso es que si uso fechas EN ESTA TABLA me lanza esa excepción pero si le quito el campo de las fechas SI ME FUNCIONA, en otras tablas usando fechas me funciona!!. Gracias por leer.
|
|
|
|
|
|
|