PREGUNTAS CONTESTADAS - PhotoShop

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	16859 - COMUNICAR CON EL PUERO 1433 DE SQL SERVER 6.5
Autor:	Alexis Alberto Aravena Silva
Hola amigos de la web Quiero hacer lo siguiente porque he escuchado que SQL Server abre un puerto por defecto que es el 1433 y uno se lo puede cambiar. Lo que quiero saber es como se hace para comunicarse desde visual basic a traves del puerto con SQL Server. Me dijieron que debia crear en el Win.Ini algo asi: [Base_de_datos] Base= wdbsktc.dll Nombre_servidor, puerto Si alguien sabe como hacerlo se lo agradeceria mucho.

Respuesta:	Cecilia Colalongo
Si queres manejar SQL Server a bajo nivel podes usar SQLDMO, pero sino usa ADO para conectarte. El puerto 1433 o el que se utilice se maneja como un puerto TCP común y corriente. Creo que si lo que necesitas es acceder a los datos con ADO no vas a tener problemas.

Contestar

Pregunta:	16860 - COMO ENCRIPTAR DATOS
Autor:	Sergio Neri Ponce
Hola saludos Mi duda es, como encripto los datos en el momento de capturarlos y al guardarlos en la Base de Datos (Access), y como los desencripto al momento de mostrarlos en un DBGrid. de antemano muchas gracias.

Respuesta:	SuNcO
Encriptarlos ? Eso es pegar los datos con otra cosa Codificarlos ? Eso es cambiar los datos para ke nadie los lea Comprimirlos ? Eso es compactarlos Creo ke encriptarlos no serviria, lo ke yo haria es codificarlos, para eso hay OCX's o yo utilizaria algun codigo propio

Contestar

Pregunta:	16863 - BACKUP DE TABLAS DESDE VISUAL BASIC
Autor:	ivan caceres soto
Como puedo hacer un backup desde visual basic pero por tablas y mi base de datos esta en access

Respuesta:	Juan Martín Micciarelli
Ivan, Se pueden hacer muchas cosas para resolver tu inquietud, pero, a mi modo de ver lo mas facil de hacer es hacer un back up trabajando con archivos Random, sino sabés como se hace avisame y lo vemos. Saludos,

Contestar

Pregunta:	16901 - ABRIR TABLA EN MODO EXCLUSIVO CON REMOTE DATA CONTROL
Autor:	Manuel Martinez
He tratado de abrir una tabla en modo exclusivo con el control Remote data control 2.0 (Vb50) y no se como hacerlo, agradezco a quien me pueda ayudar en esta tarea.

Respuesta:

Omar Alcides Guzman Morel

Hola Mnuel
Este es el codigo correspondiente

Indicamos lo siguiente

Dim strNombreBD As Integer
Dim strNombreTbl As Integer
Dim bolExclusivo As Integer

Acontinuacion le espesifica lo siguientes directorios donde esta ubicada la base de datos y le apuntamos la tabla que va a tener el modo exclusivo.

Este es un ejemplo asi es que yo tengo el mio el tuyo puede ser diferente.

strNombreBD = "C:\Archivos de Programas\Sistema Estudiantil \Sistema estudiantil.mdb"

En la linea anterior le epesifique la ubicación de la base de datos.

Ahora especifico la tabla y el modo que deseo que tenga recuerda le indicamos anteriormente: Dim bolExclusivo As Integer.

strNombreTbl = "Estudiantes" Aqui le indique la tabla
bolExclusivo = True

Ahora indica al remote data
Data1.DatabaseName.Refresh ' Aqui le indico que actualize la base de datos.

esto fue todo espero que te ayude.

Contestar

Pregunta:	16906 - ENVIO DE DATO EN WINDOWS2000 USANDO VB6 POR EL PUERTO PARALE
Autor:	Juan Carlos Hernandez Peñaloza
Estoy haciendo un Programa en Visual Basic 6 bajo Windows 2000, mi problema es que uso una libreria que se comunica con el Puerto paralelo enviandole un dato, en Windows 98 y 95 funciona muy bien me envia el dato y todo bien. Pero en Windows 2000 al tratar de enviar el dato truena el programa me envia un mensaje de error al parecer la dll no la soporta windows2000 esta libreria se llama inpout32.dll, Me URGE conseguir otra libreria o algo para poder enviar una señal por el puerto paralelo,,,,,,,,,,, Gracias.

Respuesta:	Javier López
Puedes acceder diréctamente al puerto paralelo abriéndolo como un dispositivo de la siguiente menera: Open "LPT1:" For Binary As 1 Por lo demás lo tratas como un archivo Para escribir strDatos = "Hola" Put 1, , strDatos Para cerrarlo: Close 1

Contestar

Pregunta:	17002 - IDENTIFICAR NOMBRES DE ARCHIVOS EN UN COMMON DIALOG
Autor:	Brenda Viveros
Hola: Espero puedan ayudarme. Necesito identificar los nombres de archivos que se han elegido desde un common dialog y sinceramente no se como hacerla. Con el common dialog ya logre traer la direccion de los archivos.Por ejpl: "C:\Carpeta archivo1.txt archivo2.txt archivo3.txt" y asi hasta "n" archivos ahora lo que necesito es saber como puedo identificar cada nombre de archivo en una variable y poder manipularlos pues despues necesito poder abrirlos, leerlos y cerrarlos, sabiendo que el usuario no siempre elige el mismo numero y nombre de archivos. Espero que mi pregunta sea clara y puedan darme una solucion, pues no tengo a quien recurrir. De antemano Gracias.

Respuesta:

SuNcO

Aki esta lo ke buscas, se ve algo complicado pero no lo es, solo ocupas un texbox normal llamado text1 y cuatro text2, osea con index (comienza desde index 1)

Ah claro, ocupas el common dialog y un boton

Aunke no lo entiendas usalo y veraz ke si separa los nombres elegidos

Private Sub Command1_Click()
Dim nombre(10) ' pongo matriz
Com1.Flags = &H200 ' le digo ke acepte multiples archivos
Com1.ShowOpen ' mostrar dialogo
Text1 = Com1.filename ' poner el resultado en text1
i = 3 ' inicializar i
For x = 1 To 10
nombre(x) = "" ' inicializar a NULL las variables de nombre
Next x
cuantos = 1 ' contador de comienzo
Do ' aki reviso desde donde comenzar
letra = Mid(Com1.filename, cuantos, 1)
cuantos = cuantos + 1
Loop Until letra = " " ' salirse hasta ke encuentre un espacio en blanco
contador = cuantos ' inicializo el contador
Do
Do
letra = Mid(Com1.filename, contador, 1) ' leer caracter
If letra <> " " Then ' chekar ke no sea espacio en blanco
nombre(i) = nombre(i) + letra ' agregarlo al actual
End If
contador = contador + 1 ' aumentar contador
Loop Until (letra = " ") Or (contador > Len(Com1.filename))
Text2(i - 2) = nombre(i) ' ponerlo en un textbox con index
i = i + 1 ' aumentar el contador
Loop Until contador > Len(Com1.filename)
End Sub

Respuesta:

Oswaldo Monagas

El Common Dialog tiene una propiedad donde tu obtienes el nombre del archivo al cual se la a hecho click, aqui tienes un ejemplo:

'Declaraciones:
Dim Ruta2 as string

With CommonDialog3
.CancelError = True 'Causes error on Cancel
.Filter = "Access (*.mdb)|*.mdb|All Files (*.*)|*.*"
.FilterIndex = 1
.ShowOpen
txtFileName.Text = .FileName
ruta2 = txtFileName.Text
End With

Siendo CommonDialog3 el nombre del Common Dialog y lo que te interesa a ti particularmente es el .FileName o tambien puedes usarlo sin el With-End With donde el FileName debes ponerlo asi Nombre.FileName donde Nombre es el nombre del common dialog. Luego debes hacer que el archivo tenga una ruta y para eso debes declarar una variable que en le caso anterior en ruta2. Espero que lo entiendas si no puedes escribirme o usa la ayuda del VB, escribe Common Dialog en cualquier sitio de un proyecto, seleccionalo y pulsa F1 y te llevara a la ayuda MSDN donde encontraras un buen ejemplo.
Saludos

Contestar

Pregunta:	17005 - GRAFICAR EN VB
Autor:	freddy calle
como puedo pintar o rellenar un poligono regular y que el objeto tome la forma del grafico

Respuesta:	Hely
Solo con una o dos apis. FloodFill esta api recibe las coordenadas de un punto interior del Poligono y el relleno es el forecolor el form. Suerte Si tienes dudas Escribeme. No Problem

Contestar

Pregunta:	17012 - ABRIR VISTA ORACLE
Autor:	oscar diaz
hola foro tengo un aplicacion vb6 sobre oracle conectado con OO4O y objetos ole de oracle. quiero accesar a una vista y lo hago como si fuera una tabla peo no encuentra la vista . lo he probado en el dataenvironment y me funciona bien poniendo entre comillas la vista select * from "Mi_vista" pero como todos sabemos vb pone entre comillas sus cadenas esto es strsql= "select * from tabla " pero si es un vista como lo hago strsql="select * from "Mi_vista" " esto no funciona alguien que me oriente y me diga si alguien lo ha hecho de alguna manera

Respuesta:	cesar illich senmache espinoza
por que no pruebas de la siguiente forma : dim x x="mi vista" pero si es un vista como lo hago strsql="select * from x " enviame un mail si tienes algun problema.

Contestar

Pregunta:	17041 - COMO COMPRIMIR BASE DE DATOS ACCESS EN VISUAL BASIC
Autor:	melina palino
como puedo comprimir base de datos de access en visual basic, pidiendo al usuario que elija la unidad donde almacenará la base de datos por lo general se utilizarían disquete. desde ya muchas gracias.

Respuesta:

Oswaldo Monagas

Aqui te envio un pequeño codigo en ingles, pero esta bien sencillo de facil aplicacion.
Saludos

Oswaldo

Compact An Access Database From VB

This code will show you how to compact an access database (As you can do from Microsoft Access Application) from Visual Basic using code.
Preparations

Add reference to DAO:
from the menu choose Project-> References, mark the Microsoft DAO 3.6 (or 3.51) Object Library check box, and press OK.

Add 1 Command Button to your form.
Press the button to compact the database.

If you got "Unrecognized Database format" error message:

If you using database that made in Access 2000 and you don't have Microsoft DAO 3.6 Object Library reference, click on browse, and select the file C:\Program Files\Common Files\Microsoft Shared\Dao\dao360.dll (If you have Access 2000 installed in your computer you have this file.)
This will add Microsoft DAO 3.6 Object Library reference to your project. Now mark it and press OK.

Form Code
Private Sub Command1_Click()
' this line will compact the "c:\myDir\db1.mdb" database to "c:\myDir\db2.mdb".
' after this line had been called you will have the original
' uncompacted database in "c:\myDir\db1.mdb"
' and the new compacted database in "c:\myDir\db2.mdb".
DBEngine.CompactDatabase "c:\myDir\db1.mdb", "c:\myDir\db2.mdb"
End Sub

Contestar

Pregunta:	17052 - NO PERMITIR LA COPIA DE MIS APLICACIONES
Autor:	Damián Hernandez
Hola ! .Me gustaria saber como puedo hacer para que luego de ser instaladas mis aplicaciones en vb, no puedan ser copiadas . Si alguien me pudiera ayudar en cuanto al codigo a utilizar estare muy agradecido ya que mis conocimientos en vb no son amplios .gracias

Respuesta:	Oswaldo Monagas
tal vez te sirva utilizando el serial o numero del HDD y lo estableces en un if condicional asi: If serial = "6635983" then 'inicia el programa else msgbox "Ud. esta usando una copia de mi programa por favor dirijase a fulano de tal", ,"atencion" ' etc end end if end sub Aqui te mando un programita para obtener el serial del hdd y otras cosas. Descargar Espero que te sirva

Respuesta:

SuNcO

Lo ke yo hago para eso es esto :

Mi programa lee el numero de serie del disco duro, de ahi lo guarda en un archivo pero codificado (eso es facil) y luego lo envia por mail a mi cuenta o la persona me envia el archivo por el mirc o lo ke sea, el caso es ke yo lo decodifico y en base a eso lo codifico de nuevo pero usando otro algoritmo, y se lo envio

Ejemplo :

iqj29jysru97ju
ko909jnft66hy

Eso es lo ke se veria en el archivo, es lo mismo para mi, pero se ve diferente, asi ke mi programa leeria de nuevo el archivo ke se genera al ejecutarlo la primera vez y lee las 2 lineas y las decodifica y las compara, y si son iguales pues ya funciona

Para leer el numero de serie es :

Private Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

NVolSize = 0: NVolNumber = 0: NMaxCompLength = 0
NFileSFlags = 0: NFileSBuffer = 0: NFileSNames = 0
ruta = "c:\"
ChDrive ruta
Nombre = Dir(ruta, vbVolume)
ret = GetVolumeInformation(ruta, Nombre, NVolSize, NVolNumber, NMaxCompLength, NFileSFlags, NFileSBuffer, NFileSNames)

If ret = 0 Then Label2.Caption = Left(Hex(NVolNumber), 4) & "-" & Right(Hex(NVolNumber), 4)

Aki mete el numero de serie en Label2

Cualkier duda con gusto te ayudo de nuevo

Contestar

|< << 151 152 153 154 155 156 157 158 159 160 161 >> >|