PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	11178 - BLOQUEAR UN REGISTRO CON ORACLE8 Y VISUAL BASIC
Autor:	Jaime sanchez
Hola, me gustaria saber como puedo bloquear una fila concreta de una tabla de Oracle con el control ORADC que uso en Visual Basic. Quiero que quede bloqueada de manera que los otros usuarios solo tengan acceso de lectura a esa fila. Posteriormente se deberia desbloquear dicha fila. Como se puede bloquear y desbloquar una fila con el control ORADC? Gracias.

Respuesta:

Jorge Mario Correal Bustamante

Haber Jaime primero recibe un cordial saludo , mira te estás preocupando por algo que es realmente trivial, cuando actualices las BD lo puedes hacer con recordsets y/o con Procedimientos Almacenados (Store Procedure) que son más eficientes.
Si lo haces con recordsets debes tener en cuenta que si estás trabajando con BD multiusuario, debes como tú dices controlar la concurrencia o bloquear el registro implicado en la actualización, existen dos tipos de bloqueo a saber: Optimista y Pesimista en el primero se bloquea el registro sólo en el momento del Update, mientras que el pesimista lo bloquea desde que tú llamas el registro, este es menos eficiente por razones obvias. Observar ejemplo:

\'Bloqueo Optimista:
Rst1.Open "SELECT IDENTIFICADOR_ID, FROM IDENTIFICADORES", Cn.ConnectionString, adOpenStatic, adLockOptimistic

\'Bloqueo Pesimista:
Rst1.Open "SELECT IDENTIFICADOR_ID, FROM IDENTIFICADORES", Cn.ConnectionString, adOpenStatic, adLockPessimistic

Ahora bien te mencioné los procedimientos almacenados, con estos no tienes que preocuparte por bloqueos, pues es el motor quein se encarga de esa tarea, aparte de que son más veloces, eficientes, seguros y la actualización se lleva a cabo directamente en el servidor, un Proc. Alm. no es más que una instrucción SQL ya compilada y que reside en la BD o motor y al cual sólo le debes enviar los parámetros requeridos, te recomiendo que trabajes así pues es muy bueno, observa el ejemplo:

\'Este es un PA que reisde en una BD en Oracle
CREATE OR REPLACE PROCEDURE MCLAVES(TxtCed in varchar2,TxtCla in varchar2)
as

begin
UPDATE USUARIOS SET CLAVE=TxtCla
WHERE CEDULA=TxtCed
;
end MCLAVES;
\'Hasta aquí

\'Ahora como lo invocas desde VB así:
Dim cmd As New Command
Set cmd.ActiveConnection = Cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "MODUSUARIOS"\'Este es el nombre del PA
cmd!TxtCed = UCase$(TxtCed)
cmd!TxtNom = UCase$(TxtNom)
cmd!TxtPer = CboPer
cmd!TxtCla = UCase$(Encript)
cmd.Execute
Set cmd = Nothing \'Liberar Memoria

La tabla tienes los campos: Cédula, Clave, Nombre y Perfil.

Espero te sirva...

Contestar

Pregunta:	11201 - ABRIR ARCHIVO .MSG DESDE VISUAL BASIC
Autor:	Mónica Cresencio Martínez
Hola, intento abrir un archivo .msg con el VB6 sin referenciar la libreria de Outlook, pero no lo consigo: Set MSApp = CreateObject("Outlook.Application") Set MSSpace = MSApp.GetNameSpace("MAPI") Set MSMailMsg = MSApp.????? Gracias.

Respuesta:

Alma Rocio Gomez Orozco

Hola Monica, te envío esto.....

Primero debes de declara el objeto para notas, y puede ser de la siguiente manera:

Dim s As NoteItem
Dim TheItems As Items 'Para cargar en esta variable todas tus notas
Dim Folder As Outlook.MAPIFolder 'Variable para acceder al buzón de Notes
Dim objOL As Outlook.Application

' Aquí creas una instancia de OutLook
Set objOL = New Outlook.Application
Set objns = Outlook.Application.GetNamespace("MAPI")
' Aqui estoy accediendo al buzón de las Notas
Set Folder = objns.GetDefaultFolder(olFolderNotes)

' Cargo todos los items de la Carpeta Notes para verificar si estás accediendo

Set TheItems = Folder.Items

Espero que te sirva.
Saludos

Contestar

Pregunta:	11208 - GUARDAR UN ARCHIVO CON UN ICONO DETERMINADO
Autor:	Frank Deivid Bolívar Acevedo
Hola, quisiera saber como salvar un archivo y que quede con un icono determinado ejemplo “Cuaquiercosa.abc”.

Respuesta:

SuNcO

Bueno, esto ya lo habia respondido antes, pero pues ahi te va de nuevo la respuesta

Para hacer so ke dices ocupas entrar al registro de Windows y hacer unos movimientos, no es nada complicado

Por ejemplo la extencion .ZIP ke es del Winzip, te vas al registro de win y buscas en HKEY_CLASSES_ROOT y ahi esta una llamada .zip, en la parte de la derecha en la de Predeterminado dice WinZip, entonces te vas un poco mas abajo y buscas la ke diga WinZip, la abres y ves una ke dice DefaultIcon, a pues a la derecha en Predeterminado dice cual es el icono ke se va a ver

Tu lo ke tienes ke hacer es poner tu extension (.zip) ahi y enlazarla con la clave (WinZip) y leer el predeterminado aunke en este caso escribirlo, yo tengo un .OCX ke te oermite ler y guardar en el registro de Win, solo escribeme un mail y preguntame lo mismo ke aki para recordar

Contestar

Pregunta:	11210 - COMO USAR LA SEGURIDAD DE WIN NT(USUARIO Y PASSWORD)
Autor:	Azucena Rodriguez
Estoy haciendo una aplicacion en VB en la que presento al inicio una ventana para logearse donde pone el nombre del usuario que esta logeado a la red NT(para esto utilizo la funcion GETUSERNAME de las api's de windows) y luego pide el password. Lo que deseo saber es como hacerle para que una vez que tecleen el password este sea validado contra el password que este usuario tiene en la red NT, en pocas palabras deseo manejar los usuarios y la seguridad de NT para la aplicacion , e intentado con la funcion LOGONUSER tambien de las Api's pero no me ha funcionado, tal vez la este usando de forma incorrecta, si alguien puede ayudarme con la estructura y funcionalidad de esta funcion o tiene alguna otra manera de realizar esta operacion se los agradeceria

Respuesta:

Aplinfor Aplimfor

No entiendo mucho tu pregunta. Pero para conectarse a una bases de Datos SQLSERVER y verificar usuario y Password, lo puedes hacer de la siguiente forma, si son validos el usuario y el Password se realiza la coneccion.

Sub cmdConnect_Click()

Dim sUsername As string
Dim sPassword As string
Dim cnStateUBookstore As Connection

Set cnStateUBookstore = New Connection
sUsername = InputBox("Please enter your user name:")
sPassword = InputBox("Please enter your password:")
With cnStateUBookstore
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=" & sUsername & _
";Password=" & sPassword & _
";Data Source=MSERIES1;" & _
"Initial Catalog=StateUBookstore"
.Open
End With

End Sub
Provider=Proveedor de Base de Datos
DataSource=Nombre del servidor de base de datos
Initial Catalog=Nombre de la base de datos

Contestar

Pregunta:	*11219 - GUARDAR ARCHIVOS CON FORMATO DE WORD (.RTF)**
Autor:	Diego Rivera
Estoy desarrollando una aplicación y necesito saber lo siguiente. Esta aplicación permite crear documentos, pero necesito que estos se guarden en formato de word *.doc NO en formato rtf He buscado información pero no tengo la menor idea de como hacerlo. Por favor si alguien sabe como hacerlo o si tiene alguna idea de donde buscar información se lo agradecería muchísimo

Respuesta:

Carolina Melul

hola diego, yo en mi aplicacion baro un archivo e word y lo guardo como . doc, por que yo mando el formato. es decir:
'iniciar word y hacerlo visible
Set objword = New Word.Application

' crear un nuevo documento
Set objdoc = objword.Documents.Add

'convertirlo en documento activo
objdoc.Activate
objdoc.ActiveWindow.Selection.InsertAfter espacio
objdoc.ActiveWindow.Selection.InsertAfter Preguntas.Text
objdoc.ActiveWindow.Selection.InsertParagraphAfter

'quitar la seleccion del texto
objdoc.ActiveWindow.Selection.EndOf

'para guardar
Codigo = text_codigo.Text
objdoc.SaveAs (Codigo + "." + "doc")
objdoc.Saved = True

'cerrar word guardar cambios
objword.Quit True
'destruir referncia de objetos
Set objword = Nothing

espero que te sirva
Saludos
Carolina

Contestar

Pregunta:	11226 - ENLAZAR SQL SERVER DESDE WORD CON VBA
Autor:	alberto vilches
bueno mi pregunta es la siguiente, estoy realizando un sistema en visual con sql server 7.0, lo que ocurre es lo siguiente tengo varios campos rut, nombre, etc ademas tengo un campo memo . resumiendo deseo poder usar un texto escrito en word y poder enlasarlo con el rut cada vez que lo desee me han dicho que se hace con macros pero no tengo idea como se hace si alguien sabe hacerlo y me lo pueda explicar detalladamente se lo agradeceria.

Respuesta:	ilp ilp
create una bd vinculada a SQL Server en access, pincha grabar macro, y dale en la bd a vinculos con msword, podras extraer los datos q quieras de la bd... y finalmente en acces paras la macro y el código generado te dará una idea de como hacerlo.

Contestar

Pregunta:	11279 - EDICIÓN DE UN FLEXGRID COMO UN TEXTBOX
Autor:	Agustín Dávila Martín
PUEDO HACER MEDIANTE LOS EVENTOS KEYPRESS Y KEYDOWN PODER ESCRIBIR EN UNA CELDA DEL MSFLEXGRID, PERO LO QUE ME GUSTARÍA ES PODER TRATAR EL TEXTO COMO SI ESTUVIERA EN UN TEXTBOX. SI PUEDES SOLUCIONARME EL PROBLEMA TE LO AGRADACERÍA MUCHO.

Respuesta:

José Ariel Limandri

Utilizando las sigtes propiedades, métodos y eventos poder lograr posicionar un TextBox Standard sobre una celda de una flex para simular que estas editando dicha celda cuando en realidad trabajas sobre un textbox:

Entercell: Evento disparado cuando ingresas en una celda
flx.cellleft + flx.left te indica el left donde deberia estar el textbox
Celltop+top: item para el top...

bueno. trata de resolverlo vos. sino te mando un ejemplo mas concreto

Contestar

Pregunta:	11300 - ACTUALIZAR DATAREPORT
Autor:	Toyo Maldonado
Quisiera saber como actualizar un reporte hecho con data Report con un SQL, porque al hacerlo solo me muestra lo que se grabo cuando diseñe el reporte y no se actualiza con los nuevos datos del SQL la consulta.

Respuesta:	Ivan de Jesus Deras Tabora
Sinceramente a mi parece que debe una especie de bug, asi que lo que te recomiendo es que le apliques el service pack a tu Visual Basic, si no lo tenes lo pode bajar de la pagina de Microsoft. Despues de pasarle el service pack proba tu reporte y es muy probable que funcione, ese es el problema de usar cosas Mocosoft. Cualquier duda escribime...

Contestar

Pregunta:	11302 - EXCLUIR COMILLAS A UNA CADENA DE FóRMULA
Autor:	Donaldo Ramirez
Tengo una formula en una cadena de texto, y quisiera eliminar las comillas para hacer la operación de la fórmula, Como le hago? Muchisimas gracias de antemano

Respuesta:

Gere

Mediante la instruccion Replace puede sustituir lo que quieras de cualquier string de tal forma que si pones:

texto1.text = Replace(texto1.text, "'", "")

esto eliminara las comillas del texto.

En los select que lleven textos que incluyan comillas, deberas duplicarlas para que el visual te permita hacer el select sin problemas de tal forma que si comparas una poblacion como l'hospitalet quedaria tal que asi.

"select * from tabla where poblacion = '" & replace("l'hospitalet", "'","''") & "'"

Espero haber ayudado a alguien.

Respuesta:	SuNcO
Eso lo puedes hacer asi : var2 = "" for i = 1 to len(texto) var1 = mid(texto,i,1) if var1 <> chr(34) then var2 = var2 + var1 endif next Osea, vas poniendo cada caracter en otra variable pero exeptuando las " osea el caracter 34

Contestar

Pregunta:	11352 - CONVERSION DE CARACTERES OEM A ANSI Y VICEVERSA
Autor:	Alejandro
Hola, soy bastante novato en esto de programar en Visual Basic y quisiera saber si hay algun método u otra manera de convertir los caracteres de un archivo .txt de OEM a ANSI y viceversa. Gracias por su ayuda!

Respuesta:

Tayla Corrales

Yo también soy un poco novata, pero creo que hay una función que convierte el texto en codigo ANSI:
FUNCION CHR

Da como resultado el carácter ANSI correspondiente al código especificado.

Su sintaxis es:

nombre_variable = Chr (Código_caracter)

donde codigo_caracter es una expresion entre 0-255 y nombre de la variable es un variable de caracteres.

Hay otra funcion que hace lo contrario, pero no me acuerdo.

Espero haberte ayudado

Contestar

|< << 117 118 119 120 121 122 123 124 125 126 127 >> >|