Iniciar sesi贸n
Crear cuenta
Crear cuentaCrear cuenta| Se han encontrado 2654 coincidencias. | << >> |
| Visual Basic |
| Pregunta: | 36813 - COMO COMPARTIR CARPETAS |
| Autor: | javier flores |
| alguien puede decimre por favor como puedo compartir una carpeta, desde el visual basic. Tal vez se pueda hacer con apis necesito ideas o tal vez ejemplos ya hechos gracias | |
| Respuesta: | rafita123 noc |
| si se hace con la api NetShareAddNT para winxp win 2000 nt
y NetShareAdd9x para win 98. la NetShareAdd9x damuchos problemas | |
| Pregunta: | 36856 - UN OPTION BUTTON SE PUEDE HACER TRANSPARENTE??? |
| Autor: | ismael moreno |
| Pues eso,que si se puede hacer un option button transparente para que no quede un pegote encima de un fondo que no es ninguno de los colores que trae visual basic 6
| |
| Respuesta: | Hector Romero |
| No se a lo que te refieres con hacer el option button transparente, pero lo que si te puedo decir es que puedes hacerlo visible o invisible mediante codigo en el momento en que tu quieras, haciendo:
optionbutton.Visible=False ' Se hace invisible el boton optionbutton.Visible=True ' Se hace visible el boton | |
| Pregunta: | 36896 - COMO INSERTAR UN ICONO EN EL COMBO O LISTBOX |
| Autor: | Jorge Eduardo Prado M. |
| Bueno amigos espero me ayuden en conseguir insertsar en un listbox o combobox un icono (Visual Basic 6.0 studio) pues me urge...
agradecer茅 me respondan... | |
| Respuesta: | Vino T |
| Primero que nada, debes tener instalado el Service Pack 4 (por lo menos) de Visual Basic... dentro de los componentes que incorpora este Service Pack, debes encontrar los "Mocrosoft Windows Common Controls 6.0 (SP4)" que aparecer谩 en el di谩logo de "Agregar Componente"... el control se llama ImageCombo (si no me equivoco) y es tan f谩cil de ocupar como el comboBox com煤n... | |
| Pregunta: | 36965 - IMAGENES ORACLE VISUAL BASIC |
| Autor: | pedro damico |
| si es posible que me exoliquen como inserto una imagen desde visual basic a un campo blob de la base de datos ceada en oracle | |
| Respuesta: | Cecilia Colalongo |
| Si usas ADO con los m茅todos AppendChunk y GetChunk supongo que vas a poder.
Igual fijate en 茅ste link http://www.mvps.org/vexpert/articles/adoImages.htm que est谩 bastante detallado. | |
| Pregunta: | 37000 - REPARAR BASE D ACCESS 97 DESDE VISUAL AUTOMATICAMENTE |
| Autor: | Jorge |
| Hola, estoy haciendo una aplicaci贸n en VB que trabaja con bases de datos access 97, tengo una opci贸n que revisa que todas las bases esten bien pero me gustaria hacer que si detecta que alguna esta rota el programa automaticamente la repare.
Agradeceria muchisimo si alguien me pudiese ayudar. Gracias. | |
| Respuesta: | Oswaldo Monagas |
| Una vez que revisas las bases de datos si alguna esta corrupta debe generate un error, porque me imagino que esa rutina que las chequea, detecta que alguna esta mal. Cuando se genere este error puedes generar una rutina de error y dentro de ella hacer que repare la base de datos, si lo puede hacer entonces continua de nuevo con tu rutina y chequea de nuevo todo, si no, ya sabes no se puede hacer la reparacion y ahi tomas tu propia decicion.
Aqui te envio dos rutinas para reparar las bases de datos. Case ... RepairDatabase Curentdatabasename Case .... On Error Resume Next Kill "temp.MDB" Name curentdatabasename as "temp.mdb" On Error Goto errcompact compactdatabase "temp.mdb", Currentdatabasename kill "temp.mbd" Exit Sub errcompact: MsgBox "compaction failed" name "temp.mdb" as Currentdatabasename Case ... Fijate que aqui esta la rutina si no se puede reparar la base de datos. Aqui tienes otra con la rutina de errores: Public Function DAO_RepairDataBase(ByVal pvStrDataBaseName _ As String) As String '---------------------------------------------------- ' Purpose: ' Repairs any DataBase ' ' Parmaters: ' 1 - pvStrDataBaseName ' The database Path and Name ' ' Return Value: ' Empty string if successful ' String with err number(s) & "|" & Err description(s) ' ' Notes: ' This routine uses the Database Engine's error collection ' to notify the user of exactly what's gone wrong during the ' repair process. '-------------------------------------------------- Dim lErrDataBaseErrors As DAO.Error Dim lStrErrors As String Const lcIntNoErrors = 0 Const lcStrErrorDivider = "|" lStrErrors = "" On Error Resume Next ' Attempt to repair the database DBEngine.RepairDatabase pvStrDataBaseName ' If an ERROR occured then show the user all of the errors ' in the database engine's error collection If Err <> lcIntNoErrors Then For Each lErrDataBaseErrors In DBEngine.Errors lStrErrors = lStrErrors & lErrDataBaseErrors.Number _ & lcStrErrorDivider & lErrDataBaseErrors.Description _ & Chr(9) Next lErrDataBaseErrors End If On Error GoTo 0 DAO_RepairDataBase = lStrErrors End Function Saludos | |
| Pregunta: | 37011 - COMO OBTENGO UN RECORDSET DE DOS BASES DE DATOS DISTINTAS? |
| Autor: | Carlos Aguilar |
| 驴C贸mo puedo hacer para generar un s贸lo recordset en Visual Basic 6 con la informacion de una tabla en Oracle 8i, comparada con una tabla similar, solo que en Interbase 6?
Ejemplo: Tabla: STOCK Campos: Articulo numerico Existencia numerico Necesito presentar las existencias por articulo segun Oracle y segun Interbase 6 Ejemplo de un recordset resultante: Articulo Existencia_Oracle Existencia_InterBase | |
| Respuesta: | Eyes |
| En VB 6.0 No puedes hacer una consulta a dos BD simultaneas, la solucion que te propongo es que te hagas un componente .Net con VB.Net ya que este nuevo entorno si permite interactuar con varias conexiones incluso relacionar las tablas de diferente BD. Un Saludo y suerte. | |
| Respuesta: | Brais Courel G贸mez |
| Creo que vas a tener que hacer dos consultas separadas para saber si existe ese art铆culo en las dos BdDs, ya que el objeto Database que es el que realiza las conexiones con las BdDs y proporciona la informaci贸n que almacena el recordset s贸lo se puede conectar con un servidor. S贸lo h茅 probado a enlazar una consulta a dos BdDs desde visual una vez, y en ese caso las dos bases de datos trabajaban bajo informix y estaban en el mismo servidor por lo que s贸lo tuve que referenciar cada una a la hora de consultar. | |
| Pregunta: | 37122 - LEER REGISTRO DE WINDOWS CON VISUAL BASIC 6 |
| Autor: | Edgar Alberto Morales Rojas |
| Debo leer el registro de windows como lo hace getsetting pero debo especificarle el pat (Necesito leerlo de HKEY_LOCAL_MACHINE\SOFTWARE\VB and VBA Program Setting\Aplicacion.....
Si alguien me puede ayudar Gracias | |
| Respuesta: | Luis M. Mora. |
| Saludos aqui tienes el Codigo:
' Este Programa necesita 3 botones Const REG_SZ = 1 ' Unicode nul terminated string Const REG_BINARY = 3 ' Free form binary Const HKEY_CURRENT_USER = &H80000001 Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long 'retrieve nformation about the key lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize) If lResult = 0 Then If lValueType = REG_SZ Then 'Create a buffer strBuf = String(lDataBufSize, Chr$(0)) 'retrieve the key's content lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize) If lResult = 0 Then 'Remove the unnecessary chr$(0)'s RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1) End If ElseIf lValueType = REG_BINARY Then Dim strData As Integer 'retrieve the key's value lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize) If lResult = 0 Then RegQueryStringValue = strData End If End If End If End Function Function GetString(hKey As Long, strPath As String, strValue As String) Dim Ret 'Open the key RegOpenKey hKey, strPath, Ret 'Get the key's content GetString = RegQueryStringValue(Ret, strValue) 'Close the key RegCloseKey Ret End Function Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String) Dim Ret 'Create a new key RegCreateKey hKey, strPath, Ret 'Save a string to the key RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData) 'close the key RegCloseKey Ret End Sub Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String) Dim Ret 'Create a new key RegCreateKey hKey, strPath, Ret 'Set the key's value RegSetValueEx Ret, strValue, 0, REG_BINARY, CByte(strData), 4 'close the key RegCloseKey Ret End Sub Sub DelSetting(hKey As Long, strPath As String, strValue As String) Dim Ret 'Create a new key RegCreateKey hKey, strPath, Ret 'Delete the key's value RegDeleteValue Ret, strValue 'close the key RegCloseKey Ret End Sub Private Sub Command1_Click() Dim strString As String 'Ask for a value strString = InputBox("Please enter a value between 0 and 255 to be saved as a binary value in the registry.", App.Title) If strString = "" Or Val(strString) > 255 Or Val(strString) < 0 Then MsgBox "Invalid value entered ...", vbExclamation + vbOKOnly, App.Title Exit Sub End If 'Save the value to the registry SaveStringLong HKEY_CURRENT_USER, "KPD-Team", "BinaryValue", CByte(strString) End Sub Private Sub Command2_Click() 'Get a string from the registry Ret = GetString(HKEY_CURRENT_USER, "KPD-Team", "BinaryValue") If Ret = "" Then MsgBox "No value found !", vbExclamation + vbOKOnly, App.Title: Exit Sub MsgBox "The value is " + Ret, vbOKOnly + vbInformation, App.Title End Sub Private Sub Command3_Click() 'Delete the setting from the registry DelSetting HKEY_CURRENT_USER, "KPD-Team", "BinaryValue" MsgBox "The value was deleted ...", vbInformation + vbOKOnly, App.Title End Sub Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ Command1.Caption = "Agregar Valor" Command2.Caption = "Leer Valor" Command3.Caption = "Borrar Valor" End Sub Lo saque de http://www.allapi.net/ si quieres me ecribes y te envio el programa ;-) .. Saludos | |
| Pregunta: | 37137 - DE UNIX A VB |
| Autor: | Adalberto Polanco |
| Hola senores, tengo unas bases de datos hechas bajo informix en unix, pero necesito trabajarlas desde visual basic, o convertirlos a windows | |
| Respuesta: | Felipe Ortega |
| Lo que tienes que hacer es usar el driver ODBC para Informix mediante ADO.
Puedes encontrar el string de conexi贸n correspondiente en : http://www.able-consulting.com/MDAC/ADO/Connection/ODBC_DSNLess.htm#ODBCDriverForInformix Para poder trabajar con ADO debes agregar a las referencias de tu Proyecto (Men煤 Proyecto > Referencias) "Microsoft Active Data Objects" que sea de preferencia 2.6 o superior. Ejemplos de como acceder a una base de datos usando ADO existen varios en internet, espero que esta peque帽a ayuda te haya servido de algo. | |
| Pregunta: | 37165 - SUSPENDER LA EJECUCION DE UN PROGRAMA TEMPORALMENTE |
| Autor: | Andres Pag |
| Me gustaria saber si existe alguna instruccion en VB6 para suspender temporalmente la ejecucion del programa durante algunas fracciones de segundo. Y si no existe como puedo hacer para lograr esto.
(En QBasic por ejemplo existe "sleep" que suspende por x segundos y luego continua con la ejecucion de la instruccion siguiente.) Gracias | |
| Respuesta: | Joan Carles Sansano Belso |
| Visita en la direccion http://guille.costasol.net/vb_api02.htm la seccion
16.- Esperar a que un programa termine (incluso si es de MS-DOS) (32 bits) (31/Oct) Hay una API SLEEP | |
| Pregunta: | 37273 - SIGNOS RAROS EN VISUAL BASIC CON TABLAS FOX PRO |
| Autor: | Cristian Parra Moya |
| Tengo el siguiente problema:
Por que cuando me conecto con un control data (DAO), hacia una tabla de fox pro (*.dbf) con el contrlador Fox Pro 3.0, todas las letras con acentos me sales con signos raros: Ejemplo Canci贸n Sale como Canci*n porque??? me dicen que hay un problema de codificacion de los datos como arreglo todo esto???? Saludos | |
| Respuesta: | alex kk |
| bueno amigo, ver谩s, fox pro maneja un formato de caracteres de tipo ansi DOS, asi que al trabajar bajo windows (oem), los caracteres salen mal. para solucionar esto puedes usar una api llamada oemtochar u otra llamada chartooem
Private Declare Function OemToChar Lib "user32" Alias "OemToCharA" _ (ByVal lpszSrc As String, ByVal lpszDst As String) As Long Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" _(ByVal lpszSrc As String, ByVal lpszDst As String) As Long Dim FraseOriginal As String Dim FraseModificada As String FraseOriginal = "楼" 'La que sea 'Haces espacio en el buffer para contener una cadena igual que la original FraseModificada = Space$(Len(FraseOriginal)) OemToChar FraseOriginal, FraseModificada MsgBox FraseModificada 'debe devolver "帽" | |
| |< << 212 213 214 215 216 217 218 219 220 221 222 >> >| |