|
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 - Majuhemo
51
« en: Miércoles 21 de Mayo de 2003, 20:00 »
Hola: Punto 1: no he trabajado de la forma como explicas, pero, si quieres hacer 2 consultas sobre un mismo recordset, porque no haces la consulta directa?, tal si defines bien tu inconveniente te podremos ayudar mejor. Punto 2: puedes hacerlo de la siguiente forma:
SELECT TB1.*, TB2.* FROM BD1.dbo.Tabla1 TB1, BD2.dbo.Tabla2 TB2 WHERE TB1.Id=TB2.Id
espero te ayude en algo. Saludos;
52
« en: Martes 20 de Mayo de 2003, 22:39 »
Hola: mas o menos de lo que entiendo es que el select que le aplicas te trae mas de 1 fila, en ese caso puedes aplicarle un DO WHILE:
... Set MEDICOD = charitas.OpenRecordset("SELECT * FROM medicod WHERE nombre ='" & COBMEDICO.Text & "'") do while not MEDICOD.EOF msgbox MEDICOD!ESPECIALIDAD MEDICOD.movenext loop
ahi podras ver en un mensaje los valores de especialidad.
Suerte;
53
« en: Martes 13 de Mayo de 2003, 18:29 »
Buenas: trabajo con VS.NET y con proyecto ASP.NET y tengo un problemita: inserte un DataGrid en mi Web Form para mostrar datos de una tabla, hasta ahi todo funciona bien, el problema es cuando le quiero poner paginacion al DataGrid. Fui a propiedades del datagrid y active casilla "permitir paginacion" y en el evento: PageIndexChanged puse lo siguiente: DataGrid1.CurrentPageIndex = e.NewPageIndex DataGrid1.DataBind() y me marca error en "DataGrid1.DataBind()" y dice: "...Valor CurrentPageIndex no válido. Debe ser >= 0 y < PageCount... " esto es cuando le doy click en una pagina diferente de 1. ah, el DataGrid, me muestra informacion solo en la pagina 1, que puede estar pasando.?  Muchas gracias por su ayuda.. Saludos;
55
« en: Viernes 9 de Mayo de 2003, 00:13 »
Hola: he revisado y tendrias que hacerlo lo sgte.: Dim i As Byte Dim MyRuta As String Dim FileSys As New FileSystemObject ' tienes que hacer referencia a "Microsoft Scripting Runtime" MyRuta = "C:Archivos" ' ruta de los archivos origen. 'MSFlexGrid1 (columna 0): ej. "listado.xls" ' se supone que en el MSFlexGrid1 (columna 1) tienes la ruta hacia donde lo llevas.: ej. "C:Demo" With MSFlexGrid1 For i = 0 To .Rows - 1 FileSys.CopyFile MyRuta & .TextMatrix(i, 0), .TextMatrix(i, 1) Next End With si deseas mas ayuda busca "FileSystemObject", hay varias cositas, como mover, crear archivos. Saludos;
57
« en: Viernes 2 de Mayo de 2003, 16:50 »
Hola: existe un programita llamado "Anigif", que me parece bueno, lo puedes bajar de: http://www.jcomsoft.com/anigif.htmSi no lo puedes ubicar, mandame tu correo para pasartelo. Saludos;
58
« en: Viernes 2 de Mayo de 2003, 16:46 »
Hola: en ves de:
If .Fields("Grupo_Codigo") = Null Then txtGrupo = "" Else txtGrupo = .Fields("Grupo_Codigo") End If
que usas 5 lineas lo puedes hacer en 1:
txtGrupo = iif(IsNull(.Fields("Grupo_Codigo")),"",.Fields("Grupo_Codigo"))
Saludos;
59
« en: Miércoles 30 de Abril de 2003, 17:19 »
Hola: puedes obtener la fecha y hora de un servidor NT/2000 (utilizando el puerto UDP 13); en un formulario con un control Winsock, coloca el siguiente código: Private Sub btnObtenerHora_Click() With Winsock1 .Protocol = sckUDPProtocol .Connect txtNombreServidor.Text, 13 End With End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim strHoraServidor As String With Winsock1 .GetData strHoraServidor, vbString .Close End With MsgBox "Hora servidor " & txtNombreServidor.Text & ": " & strHoraServidor End Sub Tambien te adjunto un ejemplo de otra forma de poder saberlo. Saludos;
60
« en: Martes 29 de Abril de 2003, 18:19 »
J.M.: CN es un ADODB.Connection he preguntado a unos amigos y me dicen que ponga el cursor del lado del cliente y pruebe con eso, pero, como se hace? he intentado con: rs.CursorLocation = adUseCliente pero me sale el mismo error, creo que el error viene por el "cmd" Command. Gracias; J.M. ya solucione el problema... era como sigue... cmd.Execute rs.CursorLocation = adUseClient rs.Open cmd cmd.ActiveConnection = Nothing Set cmd = Nothing Set Retornar_Datos = rs rs.ActiveConnection = Nothing Set rs = Nothing Gracias por todo.
61
« en: Martes 29 de Abril de 2003, 16:51 »
Hola Grupo: Estoy tratando de retornar datos a un DataGrid no enlazado, utilizo un storedprocedure mediante una funcion que me retorna un recordset, pero me sale error en la siguiente linea:
DataGrid1.DataSource = Retornar_Datos("1")
Error : "Error: 7004 , el conjunto de filas no admite marcadores".
Muchas gracias por todo, aqui esta mi funcion a ver que esta mal.
Public Function Retornar_Datos(xDato As String) As ADODB.Recordset Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim cmd As ADODB.Command Dim prm As ADODB.Parameter Set cmd = New ADODB.Command cmd.CommandText = "sp_RetornaDatos" cmd.CommandType = adCmdStoredProc cmd.ActiveConnection = CN Set prm = cmd.CreateParameter("TipoFiltro", adChar, adParamInput, 1) cmd.Parameters.Append prm cmd.Parameters("TipoFiltro").Value = xDato Set rs = cmd.Execute Set cmd = Nothing Set Retornar_Datos = rs Set rs = Nothing End Function
Saludos;
63
« en: Miércoles 23 de Abril de 2003, 21:40 »
Hola: he revisado y el codigo anterior no serviria, con este codigo si se puede, ya he intentado, prueba.. '*******codigo ********* Dim appAccess As Access.Application Const strConPathToSamples = "C:BD3.mdb" Set appAccess = _ CreateObject("Access.Application") appAccess.OpenCurrentDatabase strConPathToSamples, False, "DEMO" appAccess.Visible = True appAccess.UserControl = True Set appAccess = Nothing '========= Recuerda: - tienes que hacer referencia a "Microsft Access 10.0 Object Library" - en appAccess.OpenCurrentDatabase : "False" es si quieres abrir en modo exclusivo o no la BD. "DEMO" seria la clave de la BD. Avisas como vas.... Saludos;
65
« en: Martes 22 de Abril de 2003, 23:50 »
Hola: estoy suponiendo que trabajas con access, la verdad no lo conozco mucho. Con el siguiente codigo puedes abrir cualquier tipo de archivo, pero, si tu BD esta abierta por ahi te dira que solo lo puedes abrir de solo lectura. En la seccion de declaraciones pon: Option Explicit Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long en un boton pega lo sgte.: ShellExecute hwnd, "Open", "C:MEDICAMENTO.MDB", vbNullString, vbNullString, 1 y listo. Espero te ayude, sino, no dudes en escribir. Saludos;
66
« en: Lunes 21 de Abril de 2003, 21:22 »
Hola: empezare por decirte que hice una prueba y si se puede. tienes "Dim campo_ancho() As Integer" que veo que no la usas, trabajemos con esa variable. tendrias que agregar un Dim Dato as String Dim Linea as String y agregas lo sgte.:
campos = rs.Fields.Count Do While Not rs.EOF contador = contador + 1 For i = 0 To campos - 1 ' *****Agregarias esto **** if i=0 then campo_ancho=25 if i=1 then campo_ancho=2 if i=2 then campo_ancho=10 if i=3 then campo_ancho=8
Dato = rs(i).Value+ Space(campo_ancho - Len(rs(i))
Linea = Linea + Chr(9) + Dato '****************** Next i
Print #fnum, Linea '==== esto tambien ==
rs.MoveNext Loop
Para considerar: campo_ancho es la longitud maxima de tu campo, estoy considerando 4 porque en tu Select solo muestras 4, definitivamente si son mas tendrias que agregar mas.
Prueba y luego cuentas como te fue. Saludos;
67
« en: Lunes 21 de Abril de 2003, 16:36 »
Hola Miguel: cuando he tenido que desarrollar un programa de facturacion, lo he hecho insertando TEXTBOX, uno por cada campo, es decir 1 x codigo, 1 por descripcion, 1 x cantidad y ..... luego con un boton los insertaba en un MSFLEXGRID, luego con un boton Grabar, mediante un procedimiento grababa los datos del MSFLEXGRID a la tabla. De esta forma se trabaja muy bien, puede parecer un poco lenta, pero, en mi caso, el usuario modificaba los datos, eliminaba, insertaba y no tenia problema. Ahora, estoy trabajando con un MSFLEXGRID "Editable", como sabras el MSFLEXGRID es de solo lectura, para tener ese efecto he tenido que insertarle un TEXTBOX y lo voy moviendo dentro del MSFLEXGRID. Te envio un ejemplo, solo permite numeros y segun el turno que estoy, tal ves te pueda servir, esta adecuado a lo que necesitaba en su momento, seria cuestion que lo adecues a lo que quieres. Cualquier duda escribe nomas. Saludos;
68
« en: Lunes 21 de Abril de 2003, 16:02 »
Hola: yo solucione ese problema con la siguiente linea:
digamos que:
Text1.text = "Hola todo ' el mundo ' loco"
Text2.Text = Replace(Text1.Text, "'", "?")
tendrias: Text2.text = "Hola todo ? el mundo ? loco"
y eso si te permite grabar.., desde luego que para leer y grabar tendrias que aplicarle el REPLACE. Suerte;
70
« en: Sábado 19 de Abril de 2003, 15:57 »
Que tal J.M.M.: creo que planteas un tema muy importante, tienes toda la razon cuando dices que la persona que hace la pregunta deberia concluirla con una respuesta favorable o no. En lo personal he intentado realizarlo, pero, estoy de acuerdo a tu planteamiento solo espero que el grupo de su opinion a ver que dicen los demas. Saludos;
71
« en: Lunes 14 de Abril de 2003, 19:36 »
Hola: yo tenia algo parecido con una pc, el reloj se retrasaba, por la pila, o a veces lo adelantaban, por no decir jugaban. Este inconveniente lo solucione tomando la hora del servidor, que desde luego tiene la hora y fecha actual, y ahi nadie mete mano... y como dice J.M.Movilla, de mil aplicaciones se puede cambiar la hora. Saludos;
72
« en: Lunes 14 de Abril de 2003, 15:53 »
hola: puedes chequear: http://guille.costasol.net/hhw/indice.htmal final hay un link para descargar la ayuda. No he utilizado este tipo de ayuda, seria cuestion de que lo veas y nos cuentes que tal te va. Saludos;
75
« en: Martes 8 de Abril de 2003, 21:25 »
muchas gracias,.... es lo que necesitaba.... saludos;
|
|
|