Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| 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. | |
| 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 | |
| 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, | |
| 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. | |
| 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 | |
| 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 | |
| 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 | |
| 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. | |
| 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 | |
| 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 | |
| |< << 151 152 153 154 155 156 157 158 159 160 161 >> >| |
