|
|
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 - zareth
1
« en: Miércoles 9 de Noviembre de 2005, 21:04 »
hola gente  alguno de ustedes ha podido jalar la fecha y hora del servidor donde se encuentra su aplicacion... mi caso es asi... tengo mi aplicacion en un server, las estaciones solo tienen el accesor directo, lo ke busco es que cuando registren datos al guardar les guarde la fecha y hora del servidor y no de la estacion... alguno lo ha hecho...  la verdad no tengo idea por donde comenzar...  a la espera de sus comentarios.... saludos retricom 
2
« en: Viernes 30 de Septiembre de 2005, 21:37 »
hola a todos kiero kontrolar los accesos a los usuarios con respecto a los menus se me ocurrio leerlos por medio del TreeView (akel componente tiene una opcion de CheckBox) y de ahi darles accesos alos menus habilitando/deshabilitando, pero no he podido lograr leer el menu, alguien tiene una idea de como hacerlo ????? gracias y saludos z4r3th
3
« en: Viernes 30 de Septiembre de 2005, 21:32 »
Pues la primera linea te indica con qu proveedor de BD te vas a conectar, por logica la segunda linea, depende de la primera, en cuanto a la tercera linea, ahi si me agarraste, esa no se para que es.
tiene razon, y si no mas me ekivoco la tercera te indica ke la conexion sea segura y verdadera = true, falsa = false cheka este link, Connectionstrings hablan de tipos de conexiones con VBasic, clasificado, detallado y muy buen (de ahi me sirvio para la mayoria de mis conexiones ke uso) salu2 z4r3th
4
« en: Viernes 30 de Septiembre de 2005, 21:20 »
5
« en: Viernes 30 de Septiembre de 2005, 21:12 »
aki tienes otra opcion, si te complicas con las comillas: rst1.Open "SELECT * FROM ControlHora WHERE ControlHora.Cedula = " & chrW(39) & getCedula & chrW(39) & ", db, adOpenDynamic, adLockOptimistic
salu2 z4r3th
6
« en: Viernes 30 de Septiembre de 2005, 21:05 »
de seguro te falta hacer referencia a los dlls ke el programa te pide, yo probe con este paquete de visual basic se llama Visual Installer, otra cosa ke puedes hacer si el caso no funca las referencias es ke te copies del server los dlls del sql2000 ke se encuentran en la carpeta donde se instalo el sql2000, ahora no recuerdo cuales son los archivos pero usa el search para ke averigues cuantos son (pagina de microsoft) suerte salu2 z4r3th
7
« en: Martes 20 de Septiembre de 2005, 03:14 »
holas a todos tengo dos consultas ke hacerles: 1. Como colocar un icono en movimiento dentro de un StatusBar? 2. Como copiar o capturar los titulos de una columna de un DataGrid? a la espera de sus comentarios, saludos -z4r3th-
8
« en: Sábado 17 de Septiembre de 2005, 19:01 »
hola a todos, como estan, tengo una consulta ke hacerles, en el proyecto ke hago genero reportes con los DataReports y los Enviroments, mi inconveniente es ke al momento de llamarlos, se demoran en cargar un poco mas de los normal, solo uso un Enviroment para hacer la conexion con la base, sera por eso???,y en la opcion de las sentencias uso varios campos de diferentes tablas, no creo ke sea eso,???? o si??? o de lo contrario alguien conoce una forma de acelerarlos o llamarlos de otro modo, o por ultimo utilizar vistas (view), a la espera de sus comentarios, saludos z4r3th
9
« en: Miércoles 7 de Septiembre de 2005, 03:02 »
hola gente como estan aki otra vez con una pekeña consulta, les cuento ke tengo un formulario ke kontiene una grilla (datagrid) ke la kargo mediante kodigo, por ser tantos registros demora en mostrarme el formulario, estuve pensando y llege a esto ... se podra hacer ke esa grilla (DATAGRID) solo kargue determinado numero de registros (por ejemplo 100 registros) y ke luego mediante un boton el cual indica siguiente me muestre los otros 100 registros y asi sucesivamente y obiamente tenga otro boton donde me indike anterior (claro esta  ), osea es la misma idea ke cuando uno tiene una cuenta de correo no e has percatado ke kuendo abres la bandeja te muestra los primeros 25 y presionas flecha siguiente y muestra el resto "manteniendo el numero de registros a mostrar" , al final se podra llegar a esto..... algun comentario o a alguien ke se puso esn este dilema... saludos cordiales y a la espera de sus comentarios z4r3th
10
« en: Sábado 3 de Septiembre de 2005, 19:25 »
hola arkantos tal vez te pueda ayudar este otro ejemplo ke encontre y lo uso... saludos z4r3th
11
« en: Sábado 3 de Septiembre de 2005, 18:52 »
holas sirespi mira la verdad, o mejor dicho en mi caso suelo ya kedarme acostumbrado al vb6 aunke me dijeron ke ya vea el vbNET pero en realidad me parece mas sistematico y un poco administrativo orientado ya a BD en cambio con el vb6 puedo hacer no solo mantenimiento y conexiones sino tambien puedo jugar con ventanas creando al estilo emergente, utilidades, juegos (tema muy interesante por cierto con uso de direct  ) y muchas cosas por el estilo... pienso ke todavia el vb6 tiene todavia pa rato aunke la version actual ya tiene tiempito pero igual sigue caÑon  en conclusion solo te dire una cosa si miras bien tu sistema operativo ya sea 95,98,Me,2000,Xp todo ello se basa en pantallas o formularios en base a objetos insertados y programados de eso se traba el VisualBasic... !!! , espero haberte orientado un poco (mas diria yo una opinion abierta ke puede ser discutible y ke no refuta a ninguna otra opinion de otros usuarios ke kieran intervenir, ke por cierto la invitacion esta hecha), bueno un saludo, bienvenido al foro si eres nuevo y suerte z4r3th
12
« en: Miércoles 24 de Agosto de 2005, 00:32 »
oe tio, pon como te salio pues, por que yo tengo un problema parecido,
gracias man HOLAS lo hice de esta manera: conexion.Open 'aki me conecta a mi base con los parametros ya dados al principio DoEvents animation_gift(verdadero) 'aki ejecuto el movimiento del grafico sqlstr="Update tabla set (campo1="valor") where IsNull(campo1)" conexion.Execute sqlstr animation_gift(false) 'desactivo el movimiento del grafico conexion.Close Set conexion = Nothing ...y listo.. por siaca te envio elprograma del gif animado.. usa un DLL ke encontre por ahi.. suerte y saludos z4r3th
13
« en: Viernes 19 de Agosto de 2005, 18:13 »
holas , gracias por los comentarios, ahora ke lo veo me salio mas simple de lo ke yo esperaba..... de veras gracias por su ayuda... , saludos z4r3th
14
« en: Viernes 19 de Agosto de 2005, 18:07 »
El problema está en que tienes como campo clave el codigo_prueba (el código de usuario) y al intentar hacer INSERT con el mismo codigo_prueba pues se actualiza (ya que ese es el código que identifica ese registro).
Para evitarlo yo pondría los siguientes campos:
CodRegistro -> Campo clave de la tabla Codigo_Prueba Nombre_Prueba
Saludos, holas te refieres a ke CodRegistro seria como un campo Item (unico y sin duplicados) ???  z4r3th
15
« en: Sábado 13 de Agosto de 2005, 19:47 »
holas Alterego la sentencia ke utilizas hace ke cada registro de la tabla1 deba asociarse por cada uno de los registro de la tabla2, asi tenemos ke en el ejemplo ke nos muestras (tienes 3 registro de tabla1 y 3 registros de tabla2, 3 por la 1ra, 3 por la 2da asi ... etc). A ver como te va cuando pruebes esto: select * from tabla1 union all select * from tabla2 espero haberte ayudado y sobre todo ke me hayas entendido en la explicacion de arriba  , saludos y suerte z4r3th
16
« en: Sábado 13 de Agosto de 2005, 19:13 »
17
« en: Sábado 13 de Agosto de 2005, 19:03 »
holas M3ASCOPE siguiendo con la misma idea de Widark, la cosa es ke ya no debe aparecerte akel registro ke ya modificastes, y es, en este ke debe tener un campo ke funcione como un switch (osea un valor digamos 1=procesado, 0=no procesado) digamos ke todos tus registro ke aparecen en el DataGrid inicial tiene el valor del swithc a 0; cosa ke en el form ke modificas o procesas un registro debas actualizar este campo a 1 (osea "update tabla set ....... switch="1" where ....")..... cosa ke cuando regreses nuevamente al DataGrid hagas un refresh a la conexion y ke en tu select deba ser algo asi... (select * from tabla where switch="0" ...) mas o menos Este ejemplo te propongo con un campo ke maneja valor char, pero puedes utilizar un valor boolean.....  a tu decision, suerte y saludos.... z4r3th
18
« en: Viernes 12 de Agosto de 2005, 19:17 »
Para tu idea por que no simplemente usas una animacion(GIF) en ves de un label parpadeante, mientras realizas la consulta  holas ArKaNtOs lo plantie con un grafico de esta manera: conexion.Open 'aki me conecta a mi base con los parametros ya dados al principio DoEvents Timer1.Enabled = True 'al principio esta deshabilitado, se habilita y debe ejecutar el movimiento del grafico sqlstr="Update tabla set (campo1="valor") where IsNull(campo1)" conexion.Execute sqlstr Timer1.Enabled = False 'desactivo el timer conexion.Close Set conexion = Nothing ...... pero no pasa nada, ejecuta bien la sintaxis ke le doy pero no se ejecuta nada lo del grafico.... por favor puedes indicarme si me falto algo o esta mal propuesto.... a la espera de tus comentarios z4r3th
19
« en: Viernes 12 de Agosto de 2005, 19:04 »
holas jodijo5 tal vez si lo puedes plantear de otra manera, mmmm necesariamente tiene ke ser un archivo script???? porke lo ke propuso Soultaker es buena.... haber si puedes cargarlo de otra manera cosa ke el VB lo haga en codigo...????? nos dices para haber ke se puede hacer..... suerte.. saludos z4r3th
20
« en: Viernes 12 de Agosto de 2005, 18:54 »
holas charly tal vez esto te pueda servir.... saludos z4r3th
21
« en: Viernes 12 de Agosto de 2005, 18:45 »
Gracias Zareth por el código, al final lo hize con:
lsMaquina = Trim(Environ$("COMPUTERNAME")) lsDominio = Trim(Environ$("USERDOMAIN"))
Pero gracias por contestar, y por lo de antes no pasa nada .
Saludos, holas Shiquilla te agradeceria ke me indicaras como le hicistes para sacar "el nombre del grupo de trabajo" porke probe el codigo y en ambos me sale "mi nombre de usuario".... saludos z4r3th
22
« en: Martes 9 de Agosto de 2005, 21:47 »
ooooooooooooopppppppppppppppssssssssssssssssss !!!!!!!!!!!!!!!!!!!!!!!!  perdona creo ke no entendi la pregunta o estuve distraido  (este es un foro de VB debi suponerlo) perdoname no me di cuenta , mira ya ke te conteste al principio y para ser todo un caballero  (no exactamente un jedi.. ) y no dejarte con la duda me puse a revizar algo ke tenia por alli... y aki esta: Private Const PLATFORM_ID_DOS = 300 Private Const PLATFORM_ID_OS2 = 400 Private Const PLATFORM_ID_NT = 500 Private Const PLATFORM_ID_OSF = 600 Private Const PLATFORM_ID_VMS = 700 Private Type WKSTA_INFO_102 wki100_platform_id As Long pwki100_computername As Long pwki100_langroup As Long wki100_ver_major As Long End Type Private Declare Function NetWkstaGetInfo Lib "netapi32" (ByVal servername As String, ByVal level As Long, lpBuf As Any) As Long Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long) Private Function StripTerminator(sInput As String) As String Dim ZeroPos As Integer ZeroPos = InStr(1, sInput, vbNullChar) If ZeroPos > 0 Then StripTerminator = Left$(sInput, ZeroPos - 1) Else StripTerminator = sInput End If End Function Function GetEnvironmentVar(sName As String) As String GetEnvironmentVar = String(255, 0) GetEnvironmentVariable sName, GetEnvironmentVar, Len(GetEnvironmentVar) If InStr(1, GetEnvironmentVar, Chr$(0)) > 0 Then GetEnvironmentVar = Left$(GetEnvironmentVar, InStr(1, GetEnvironmentVar, Chr$(0)) - 1) GetEnvironmentVar = GetEnvironmentVar End Function Private Sub Form_Load() Dim pWrkInfo As Long, WrkInfo(0) As WKSTA_INFO_102, lResult As Long MsgBox "Usuario de Dominio: " & GetEnvironmentVar("UserDomain") lResult = NetWkstaGetInfo(StrConv("\\" & GetEnvironmentVar("UserDomain"), vbUnicode), 102, pWrkInfo) If lResult = 0 Then Dim cname As String cname = String$(255, 0) CopyMemory WrkInfo(0), ByVal pWrkInfo, ByVal Len(WrkInfo(0)) CopyMemory ByVal cname, ByVal WrkInfo(0).pwki100_langroup, ByVal 255 MsgBox "Dominio: " & StripTerminator(StrConv(cname, vbFromUnicode)) Select Case WrkInfo(0).wki100_platform_id Case PLATFORM_ID_DOS: MsgBox "Sistema Operativo: " & "DOS" Case PLATFORM_ID_OS2: If WrkInfo(0).wki100_ver_major = "4" Then MsgBox "Sistema Operativo: " & "Win9x" Else MsgBox "Sistema Operativo: " & "OS2" End If Case PLATFORM_ID_NT: If WrkInfo(0).wki100_ver_major = "5" Then MsgBox "Sistema Operativo: " & "Win 2000" Else MsgBox "Sistema Operativo: " & "Win NT" End If Case PLATFORM_ID_OSF: MsgBox "Sistema Operativo: " & "OSF" Case PLATFORM_ID_VMS: MsgBox "Sistema Operativo: " & "VMS" End Select End If End Sub
espero ke se aproxime a lo ke buscas.... , saludos y pa la proxima tomare mas atencion suerte y saludos z4r3th
23
« en: Martes 9 de Agosto de 2005, 17:19 »
holas Windows 9x - clic derecho sobre icono Entorno de Red en el escritorio opcion Propiedades, segunda ficha Identificacion y ahi lo tienes... Windows 2000/xp - clic derecho sobre el icono de Mi PC en el escritorio opcion Propiedades, segunda ficha Identificacion Red y ahi lo tienes, puedes modificar presionando boton Propiedades... saludos z4r3th
24
« en: Martes 9 de Agosto de 2005, 02:03 »
holas gente como tan, me pueden ayudar a colocar dos procesos ke se ejecuten al mismo tiempo, algo oi hablar de DoEvents pero no he sabido plantearlo hasta ahora. Tengo un proceso ke hace carga datos a una tabla en SQL pero ke a la vez me indike ke lo estoy cargando entiende a lo ke me refiero , a ver se los pongo mas simple... tengo una conexion.execute "sentencia de instruccion (osea un INSERT INTO .....)" y al mismo tiempo en una parte del Form con una Label (tal vez) y un Timer donde me pinte el mensaje "Cargando datos, espere..." y el Timer haga el efecto de parpadeo o algo por el stilo, ese es la idea un poco del otro mundo  no lo se... creo ke si se puede , a la espera de sus comentarios z4r3th
25
« en: Jueves 4 de Agosto de 2005, 02:18 »
holas jodijo5 talvez esto te ayude en algo aki uso el ADO, es similar a lo ke yo hago: Dim cn As ADODB.Connection Dim strSQL As String Set cn = New ADODB.Connection 'Conectar a BASE_DE_DATOS cn.Open "Provider=SQLOLEDB;Data Source=SERVIDOR;" & _ "Initial Catalog=BASEDEDATOS;User ID=USUARIO;Password=PASSWORD" 'AKI PUEDES HACER EL METODO KE DESEES select, insert, update, delete... strSQL = "SELECT * FROM TABLA_DE_DATOS" ' ESTA PARTE EJECUTA EL METODO KE ESCOGISTES cn.Execute strSQL cn.Close Set cn = Nothing
tambien reviza este enlace si kieres saber como conectarse no solo con SQL sino tambien con ACCESS, EXCEL, etc... http://www.connectionstrings.com/espero ke te ayude, suerte nos vemos z4r3th
|
|
|
Mostrar Mensajes
