• Lunes 12 de Mayo de 2025, 09:53

Mostrar Mensajes

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

Páginas: 1 2 [3] 4
51
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
Visual Basic 6.0 e inferiores / Combobox
« 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
ASP / DataGrid....
« 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.?:think:
Muchas gracias por su ayuda..
Saludos;

54
Visual Basic 6.0 e inferiores / ConnectionString
« en: Lunes 12 de Mayo de 2003, 21:37 »
Hola:
chequea esta pagina:

http://www.able-consulting.com/ADO_Conn.htm

pero, como dice angelescj tienes que proporcionar mas datos para saber cual es el problema.

Saludos;

55
Visual Basic 6.0 e inferiores / Necesito una mano
« 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;


:good:

56
Visual Basic 6.0 e inferiores / Nesesito ayuda plizzzzzzz
« en: Lunes 5 de Mayo de 2003, 21:24 »
Hola:
dias atras el amigo FER_LUCAS publico su inconveniente, igual al tuyo, chequealo:

http://foros.solocodigo.com/viewthread.php?tid=3249

saludos;

57
Visual Basic 6.0 e inferiores / ayuda con gif en vb
« 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.htm

Si no lo puedes ubicar, mandame tu correo para pasartelo.
Saludos;

58
Visual Basic 6.0 e inferiores / Campos de una BD con valores Null
« 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
Visual Basic 6.0 e inferiores / Fecha del servidor
« 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;:adios:

60
Visual Basic 6.0 e inferiores / DataGrid no enlazado...
« 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.:adios:

61
Visual Basic 6.0 e inferiores / Re: DataGrid no enlazado...
« 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;

62
Visual Basic 6.0 e inferiores / Re: ABRIR BASE DE DATOS EN TIEMPO DE EJECUCIÒN
« en: Viernes 25 de Abril de 2003, 21:15 »
Hola:
creo haber encontrado la solucion a tu problema....
chequea...

http://support.microsoft.com/default.as ... -us;235422

saludos;

:good:

63
Visual Basic 6.0 e inferiores / Re: ABRIR BASE DE DATOS EN TIEMPO DE EJECUCIÒN
« 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;

:comp:

64
Visual Basic 6.0 e inferiores / Ayuda con ADO y una DB
« en: Miércoles 23 de Abril de 2003, 18:05 »
Hola:
puedes chequear esta direccion, aqui hay un mil formas de conectarse a una BD y del forma que quieras.

http://www.able-consulting.com/ADO_Conn.htm

saludos;

65
Visual Basic 6.0 e inferiores / Re: ABRIR BASE DE DATOS EN TIEMPO DE EJECUCIÒN
« 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;
:adios:

66
Visual Basic 6.0 e inferiores / Re: Convertir a archivo de texto
« 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
Visual Basic 6.0 e inferiores / Re: Control para aplicación de facturación
« 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
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;

69
Hola Jac:
chequea este enlace:

http://guille.costasol.net/NET/cursoVB.NET/indice.htm

lo poco que he revisado me parece muy bueno, esta entendible.

tambien puedes ver este:
http://www.microsoft.com/spanish/msdn/c ... efault.asp

los temas los tienes en ppt, tambien me parece interesante.

Chequea y de ahi avisas como te va.

Saludos;

70
Dudas informáticas / Re: Por un foro mejor
« 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 :yes:
solo espero que el grupo de su opinion a ver que dicen los demas.

Saludos;

71
Visual Basic 6.0 e inferiores / Reloj intocable...
« 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
Visual Basic 6.0 e inferiores / Re: Alguién tiene un Manual de Help Workshop
« en: Lunes 14 de Abril de 2003, 15:53 »
hola:
puedes chequear:

http://guille.costasol.net/hhw/indice.htm

al 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;

73
Visual Basic 6.0 e inferiores / Re: SEARCH
« en: Jueves 10 de Abril de 2003, 15:50 »
Hola:
puedes chequear esto, es mas o menos lo que quieres, creo.

http://www.mvps.org/vbnet/index.html?co ... ursive.htm

otro:

http://www.mvps.org/vbnet/code/fileapi/ ... ltiple.htm

Saludos;

pd. Ok.Jose, las disculpas del caso, por publicar dos veces... :losiento:

74
Visual Basic 6.0 e inferiores / Accesos a Bases de Datos de Interbase
« en: Miércoles 9 de Abril de 2003, 18:40 »
Hola:

revisa esta link:

http://www.able-consulting.com/ADO_Conn.htm

por ahi esta lo que quieres....
Suerte;

75
Visual Basic 6.0 e inferiores / Hacer Pausa...
« en: Martes 8 de Abril de 2003, 21:25 »
muchas gracias,....
es lo que necesitaba....

saludos;:good:

Páginas: 1 2 [3] 4