Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 27469 - REGISTRAR DBGRID ?? |
| Autor: | Juan Miguel Esposito |
| Ayuda por favor .., hasta ahora no he tenido problemas para generar discos de instalacion de VB6 y funcionan perfectamente. Me he encontrado con una pc que tuve que formatear e instalar de nuevo mi programa en vb6 con los disco de instalacion pero ahora me dice que no tengo licencia para dbgrid ,y por mas que intento registrarlo a mano no puedo.Inclusive instale el vb6 completo y tampoco pero si genero un proyecto nuevo si me muestra el dbgrid. que puedo hacer.. agradeceria porque es urgente muchas gracias | |
| Respuesta: | Fernando Moran |
| En los discos de instalacion de VB6 busca y copia a tu escritorio un archivo llamado DBGRIG.REG. Despues , haz doble click sobre el para ejecutarlo. con esto, quedará en el registro y podras usar DBGRID en ambiente de desarrollo. Entiendo que el DBGRID ya lo tienes en tu PC, pero no te permite usarlo. Salu2 | |
| Pregunta: | 27477 - ICONO DEL RATÓN |
| Autor: | David Martínez |
| ¿Sabeis cambiar el icono del ratón con API para que se vea reflejado tb en el escritorio de windows?, con mousepointer solo se ve reflejado en la ventana de la aplicación. Gracias. | |
| Respuesta: | Le_Chuck Yop |
| Este es el codigo que use para cambiar el icono y lo cambia tanto como para windows como para el formulario en ejecucion, tambien sirve para cursores animados: USO: Private Sub Command1_Click() ' Algunproceso.... CambiaCursor("C:\WINDOWS\Cursor.Cur") 'Algunproceso RestCursor End Sub 'Para inclur en un modulo Declare Function LoadCursorFromFile Lib "user32" Alias _ "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Declare Function SetSystemCursor Lib "user32" _ (ByVal hcur As Long, ByVal id As Long) As Long Declare Function GetCursor Lib "user32" () As Long Declare Function CopyIcon Lib "user32" (ByVal hcur As Long) As Long Const OCR_NORMAL = 32512 Public lngOldCursor As Long, lngNewCursor As Long Public Sub CambiaCursor(CursorPath As String) 'Copia el icono para compatibilidad con Win NT lngOldCursor = CopyIcon(GetCursor()) 'Carga el icono desde el archivo lngNewCursor = LoadCursorFromFile(CursorPath) 'Activa el cursor SetSystemCursor lngNewCursor, OCR_NORMAL End Sub Public Sub RestCursor() 'Reestablece el cursor SetSystemCursor lngOldCursor, OCR_NORMAL End Sub | |
| Pregunta: | 27519 - ERROR 20534 |
| Autor: | Rosalia Guido |
| Hola: Trabajo con Visual basic 6.0 y crystal 8.0 con acceso a bases de datos access2000 Mi problema es que al momento de querer activar un repote por codigo visual basic me marca el error 20534 "La dll de base de datos ha detectado un error". en la propiedad action del control de crystal report Esto sucede en tiempo de diseño y sucedio de repente creo que fue porque en las referencias de visual basic agregue la de "Microsoft DAO 3.6 Object Lybrary" y yo estoy trabajando con ADO. ya quite la referencia de DAO, poro sigo teniendo el mismo problema Gracias por la ayuda que puedan brindarme al respecto Saludos a todos los integrantes de esta web. | |
| Respuesta: | Mauricio Leyzaola |
| ¿Por qué no pruebas un odbc que apunte a tu base de datos en access y después, este odbc lo utilizas desde Crystal para seleccionar las tablas? No creo que tu problema sea el DAO, nada que ver. Saludos. | |
| Pregunta: | 27543 - DESDE VB CONEXION AL MOTOR ORACLE SOBRE LINUX |
| Autor: | Marcelo Durán |
| Actualmente estoy en un proyecto de la universidad relacionado a las conexiones, tengo Oracle personal 8i sobre un equipo Window98 y visual basic 6.0 empresarial, ademas contamos con un servidor linux en el cual funciona Oracle 8i, mi pregunta es, que pasos debo seguir para configurar la conexion a Oracle personal y server, además que conexión rápida utilizo en lugar de ODBC asi como lo es OLEDB?, gracias por ayudarme... | |
| Respuesta: | Eider Mauricio Aristizabal Erazo |
| Te recomiendo utilizar la tecnología ADO que es más rapida que ODBC, RDO, DAO y OLEDB consulta en el siguiente URL http://www.w3schools.com/ado/prop_conn_connectionstring.asp 'podrías crear una cadena de conexion set conn=Server.CreateObject("ADODB.Connection") 'Supongamos que el servidor Oracle/Linux es 192.168.110.123 conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Remote server=192.168.110.123" conn.open server.mappath("database.mdb") 'operaciones a realizar conn.close | |
| Pregunta: | 27562 - ¿PORQUE AUMENTA DE MB UNA BD AL COMPACTARLA? |
| Autor: | Paco |
| Alguien me puede decir algun método efieciente para compactar y reparar una BD de Access 97 desde Visual Basic 5, ya lo he intentado con las instrucciones DBEngine.RepairDatabase "ruta" y DBEngine.CompactDatabase "ruta, pero ocurre que me la dejó con mas megas de los q tenia en principio, ¿como puede ser esto si al compactarla desde Access se fue a menos megas? Un saludo y gracias. | |
| Respuesta: | Dante Cantone |
| Paco: La sentencia "DBEngine.RepairDatabase " siempre te aumenta la db de un 10 a un 25 % de volumen, segùn los tipos de datos que contenga y cuàn indexada estè. Sucede que en vez de trabajar con un temporal en disco (como la mayorìa de las aplicaciones windows) lo hace sobre el mismo archivo, lo cual hace que aumente su volumen. Luego al ejecutar la sentencia "DBEngine.CompactDatabase " se reordena la DB en "OTRO" archivo sin copiar la info redundante... Es decir... al realizar ABM sobre las tablas estas modificaciones se van guardando siempre "al final" con punteros que indican a que tabla, registro, indice, etc corresponde. informaciòn que desaparece al aplicar las ABM sobre los registros involucrados. Sospecho que en la rutina de compactaciòn que utilizas hay un error y solo se ejecuta la de reparaciòn(y por eso aumenta de volumen, en vez de disminuir). Prueba (si es que lo tienes en el còdigo) quitando la sentencia - On Error Resume Next y ejecutando paso a paso.... Dim DB As Database Dim RS As Recordset Dim StrRuta As String '//Ruta de la DB Dim StrDBCompactada As String '//ruta donde ubicar la DB compactada '//Generamos un nombre, puede ser en cualquier Path '//Puede ser tambien un UNC (por ejemplo : \\server\carpeta) StrDBCompactada = App.Path & "\" & Format(Now, "hhmmss") On Error Resume Next 'Siempre conviene '//REPARAMOS DBEngine.RepairDatabase StrRuta '//Compactamos DBEngine.CompactDatabase StrRuta, StrDBCompactada If Err Then '// Aviso de error // Exit Sub End If 'Y cambiamos la VIEJA DB por la NUEVA Kill StrRuta FileCopy StrDBCompactada, StrRuta Perdona si he sido muy explìcito en mi explicaciòn, quizàs haya temas que ya los sabìas... cualquier duda que tengas mandame un mail... | |
| Pregunta: | 27604 - ANEXAR ARCHIVO AL ENVIAR E-MAIL CON WINSOCK |
| Autor: | Luis Argelio Lopez Sanchez |
| Hola a todos... Tengo una aplicación que se utiliza para enviar e-mail atraves de Winsock, pero ho eh podido enviar archivos anexos. Como se pueden enviar archivos anexos utilizando winsock. Me gustaria mucho un pequeño ejemplo, de antemano muchas gracias a quien me pueda ayudar Hasta pronto... | |
| Respuesta: | SuNcO |
| El ejemplo que pides lo puse en esta pagina : www.chakasteam.n3.net/winsock.html Muchas personas lo han bajado y utilizado sin problemas | |
| Pregunta: | 27608 - INGLES-ESPAñOL |
| Autor: | john fredy rincon ramirez |
| es verdad que codigo de programa de visua basic en ingles me puede poner problema al ejecutarlo una version de visual basic en español gracias espero una pronta respuesta | |
| Respuesta: | Alejandro Samayoa Corona |
| Falso, el codigo generado en una version en ingles es exactamente igual al generado en una version en espanol, por lo tanto, esto no te traera ningun problema. | |
| Pregunta: | 27620 - FECHAS EN CONSULTA SQL SOBRE ACCESS |
| Autor: | jote man |
| necesito una lista de registros entre 2 fechas determinadas trato: select * from tabla where fecha between 22/01/02 and 23/04/02 pero parece que el between (vb - sql access 97) es solo para datos numericos y no de fechas, ¿es así? pregunta ¿como lo hago? - help me please! nota: el tipo de dato de access es fecha corta: dd/mm/yy en vb lo guardo como date: dd/mm/yy | |
| Respuesta: | Juan Alvarez Garcia |
| Prueba con esto: Set Tabla = Datos.OpenRecordset("SELECT SUM(recibo.cantidad) as total FROM recibo WHERE DateValue(recibo.fecha) BETWEEN DateValue('" + Text1.Text + "') AND DateValue('" + Text2.Text + "')" Bueno tu le cambias tus datos ok. Mira yo lo tengo asi y me funciona perfectamente, alguna duda me mandas un mail ok, y claro hay que validar que en las cajas de texto, pues efectivamente tenga datos validos para una fecha ok Bueno bye | |
| Respuesta: | Max Báez |
| Intenta SELECT * FROM tabla WHERE fecha BETWEEN '020122' AND '020423' donde '220102' es aammdd (año, mes, dia) ó SELECT * FROM tabla WHERE fecha BETWEEN '220102' AND '230402' con el formato ddmmaa | |
| Respuesta: | Julio Cesar Arango Cubillos |
| Encierra las fechas entre # #, ejemplo: select * from tabla where fecha between #22/01/02# and #23/04/02# De todas formas, asegurate que las fechas tengan el mismo formato entre las fechas almacenadas y las fechas de consulta. Espero te sirva | |
| Pregunta: | 27634 - VARIABLES EN EL ORDER BY |
| Autor: | Sergio Brillo |
| Intento hacer una sentencia sql en Visual Basic agrupando con el "order by" por varios campos a la vez, mi problema es q esos varios campos son variables y yo querría hacer algo por el estilo a: select * from talba order by valor1,valor2 donde valor1 y valor2 se han llenado previamente, como puedo hacer para que me lo haga. | |
| Respuesta: | Genaro N. Condori Estaca |
| Puedes proceder de la siguiente forma: qbe = "select * from talba " 'Consulta a una tabla Valor1 = "Codigo" ' Tiene el nombre del campo Codigo Valor2 = "Origen" ' Tiene el nombre del campo Origen qbe = qbe & " order by " & Valor1 & ", " & Valor2 ..tendras cuidado en asignar valores adecuados a las variables Valor1 y Valor2 | |
| Respuesta: | Mauricio Leyzaola |
| puedes hacerlo con numeros, en lugar de con letras. Algo así: SELECT Nombre, ApPaterno,ApMaterno FROM DatosPersonales WHERE ApPaterno LIKE '%za%' ORDER BY 2,1 En este caso te lo ordenerá por ApPaterno y luego por nombre. Saludos y suerte. | |
| Pregunta: | 27681 - CONEXION REMOTA CON ORACLE |
| Autor: | Moises Pinto |
| Deseo saber si existen API's para conexion de aplicaciones en Visual Basic con Base de Datos Remotas (ORACLE). y si es necesario el incluir componentes para este efecto. Cuento con un win Proxy 2.1, es necesario el mapear puertos. | |
| Respuesta: | Leonel Zenil Aguilar |
| Pues mira no se si sea lo que quieres pero yo te doy este codigo para conectar VB con ORACLE...... Para hacerlo necesitas: * 3 cajas de texto ("text1") * 4 botones de comando ("Command1") el 1º para ir al inicio de tus datos (nombre "cmd_primero") el 2º para avanzar (nombre "cmd_siguiente") el 3º para retroceder (nombre "cmd_anterior") el 4º para ir al final. (nombre "cmd_ultimo") esto es todo lo que vas a utilizar, por que por el lado de la BD esa bd ya va incluida en ORACLE. ah! y esta pedaso de codigo va en una solo linea, aun que ya esta incluido en la parte de abajo solo es por si ocurre un error cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott" Y SOLO COPIA EL CODIGO DE AQUI EN ADELANTE Y PEGALO EN TU FORMULARIO, PERO ANTES DE PEGARLO BORRA TODO EN CODIGO QUE CONTENGA TU FORMULARIO. Private cnn As Connection Dim rst As ADODB.Recordset Private Sub Mostrar_Datos() Text1.Text = rst.Fields("deptno") Text2.Text = rst.Fields("dname") Text3.Text = rst.Fields("loc") End Sub Private Sub cmd_anterior_Click() rst.MovePrevious cmd_siguiente.Enabled = True If rst.BOF = False Then Call Mostrar_Datos Else MsgBox "Estas en el primer registro" rst.MoveFirst Call Mostrar_Datos End If End Sub Private Sub cmd_primero_Click() rst.MoveFirst Call Mostrar_Datos cmd_anterior.Enabled = False cmd_siguiente.Enabled = True cmd_ultimo.Enabled = True End Sub Private Sub cmd_siguiente_Click() rst.MoveNext cmd_anterior.Enabled = True If rst.EOF = False Then Call Mostrar_Datos Else MsgBox "Se ha llegado al último registro" cmd_siguiente.Enabled = False cmd_ultimo.Enabled = False rst.MoveLast Call Mostrar_Datos End If End Sub Private Sub cmd_ultimo_Click() rst.MoveLast cmd_siguiente.Enabled = False cmd_anterior.Enabled = True Call Mostrar_Datos End Sub Private Sub Form_Load() Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset cnn.ConnectionString = "Provider=OraOLEDB.Oracle.1;Password=tiger;Persist Security Info=True;User ID=scott" cnn.Open rst.Source = "select * from dept" rst.CursorType = adOpenStatic rst.LockType = adLockOptimistic rst.ActiveConnection = cnn rst.Open Call Mostrar_Datos End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) rst.Close Set rst = Nothing cnn.Close Set cnn = Nothing End Sub | |
| |< << 202 203 204 205 206 207 208 209 210 211 212 >> >| |
