Iniciar sesi贸n
Crear cuenta
Crear cuentaCrear cuenta| Se han encontrado 2654 coincidencias. | << >> |
| Visual Basic |
| Pregunta: | 7960 - VISUAL BASIC 5.0 Y SQL 7.0 |
| Autor: | Juan Francisco Enriquez Pi帽a |
| Me gustar铆a saber como conectarme a la base de datos SQL 7.0(servidor)desde mi aplicaci贸n Visual basic 5.0 (cliente), o alguna p谩gina o libro donde pueda encontrar esta informaci贸n. | |
| Respuesta: | Irlanda Nu帽ez |
| Esta es una coneccion con RDO sin DSN
'gsUsuario_SQL = USUARIO DE SQL 'gsPassword_SQL = PASSWORD DEL USUARIO 'gsServidor = NOMBRE DEL SERVIDOR Function Abrirconnection() As Boolean On Error GoTo parr_error Abrirconnection = False Set db = rdoEnvironments(0).OpenConnection(dsname:="", Prompt:=rdDriverNoPrompt, _ Connect:="uid=" & gsUsuario_SQL & ";pwd=" & gsPassword_SQL _ & ";driver={sql server};rdoconnection=NOMBRE BASE DE DATOS;server=" & gsServidor & ";") db.QueryTimeout = 500 Abrirconnection = True Exit Function Error: Call siTypeError End parr_error: siTypeError End Function Sub siTypeError() Dim Mensaje As String MsgBox Mensaje & " " & Chr(vbKeyReturn) & "Se ha Producido el ERROR detallado a continuaci贸n", _ vbCritical, "Mensaje del Sistema" Debug.Print Err, Error For Each Errores In rdoErrors Debug.Print Errores.Description, Errores.Number Mensaje = "Descripcion : " & Errores.Description + " Codigo: " + Trim(Str(Errores.Number)) + Chr(vbKeyReturn) Next Errores MsgBox Mensaje, vbCritical, "Mensaje del Sistema" 'End End Sub | |
| Pregunta: | 7983 - ENEGRECER EL CURSOR DE UN CUADRO DE TEXTO |
| Autor: | Oscar Esteban Gilberto Fuentealba |
| Hola:
Quisiera saber si alguna persona sabe alguna forma de enegrecer el cursor que aparece en un cuadro de texto com煤n, ya que el que existe, para mi resulta no muy visible, un ejemplo claro es el cursor que manejan los cuadro de texto de Visual Fox Pro. Por favor si alguien sabe de alguna funci贸n, m茅todo, o instrucci贸n que me ayude, de antemano, gracias. | |
| Respuesta: | Jos茅 Ariel Limandri |
| Probate este codigo que te va a gustar, ya que no solo "ennegrece el cursor" sino que podes cambiar el cursor por una imagen!!!
'En el form1 pone 2 textbox Grandes 'Pone un picturebox con una imagen y autozise=true Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function GetFocus Lib "user32" () As Long Sub Text1_GotFocus() h& = GetFocus&() b& = Picture1.Picture Call CreateCaret(h&, b&, 10, 10) X& = ShowCaret&(h&) End Sub Private Sub Text2_GotFocus() h& = GetFocus&() Call CreateCaret(h&, 0, 30, 30) X& = ShowCaret&(h&) End Sub | |
| Pregunta: | 7984 - INSERTAR SALTO DE PAGINA EN EXCEL |
| Autor: | Leonardo Granata |
| Deseo abrir un archivo XLS con Visual Basic 6 utilizando el Excel Library 9 y poder insertarle un SALTO DE PAGINA.
Segui los ejemplos de Microsoft (MSDN.COM) pero me da el error "application-defined or object-defined error". Pude cambiar la tipografia, tama帽o de las letras y hasta la orientacion de la pagina pero no puedo con el salto de pagina y es muy importante ya que es algo para mi trabajo y andamos sin tiempo. Muchisimas Gracias | |
| Respuesta: | Victor Paredes |
| Lo que estas planteando tiene una solucion que es bastante efectiva, yo estoy manejando mucho Excel... pero desde Visual Fox. Lo que yo hago es abrir Excel y poner a grabar una Macro, despues hago en Excel lo que yo quiero hacer en Fox. Despues de esto dejo de grabar la macro y me fijo el codigo que me dejo la macro (Herramientas .... macros....macro... modificar). Este codigo que te deja Excel es Visual Basic. Yo tengo que tratar de pasarlo a Fox, pero vos tendrias que copiarlo tal como esta.
Espero que te sirva de ayuda... | |
| Pregunta: | 8022 - ACTUALIZAR IMPRESIONES CON DATAREPORTS |
| Autor: | Ramon Jaramillo |
| hola:
Tengo un problema con Visual Basic 6.0 y su nueva herranmienta, el Datareportes, ya logre ligar los datos de la tabla al data reports, y los imprime, pero el problema es que si mando otro, asi sean 5 nuevos reportes, siempre me manda el primero quisiera saber como actualizar el reporte, y que me envie el actual, no el primero. les agradecere mucho si alguien me lo puede solucionar. | |
| Respuesta: | Bases de Datos Sistemas C.A. |
| Si te entiendo el porblema es que envian a imprimir un lote y siempre te sale el primero si es asi, una solucion temporal es colocar una pausa y que le de enter al terminar de imprimir cada uno
ciclo Imprimir msgbox "Presione a lo que termine de imprimirse el reporte" end ciclo www.bdsca.com [email protected] [email protected] | |
| Pregunta: | 8053 - COMO USAR FUNCIONES DE BD DE ORACLE DESDE VISUAL BASIC ? |
| Autor: | Ricardo Manuel Asato Oyama |
| Por favor. Alguien podr铆a ayudarme con este problema.
驴Como puedo usar una funcion de base de datos de Oracle en Visual Basic.? | |
| Respuesta: | Patricio Garibaldi |
| A que te referis especificamente?
A ejecutar una funci贸n creada por vos en un package o una propia de Oracle. En ambos casos, utiliza DAO, ADO (conexi贸n a Base de Datos) y la ejecutas como siempre. Si tenes problemas, avisame.... | |
| Pregunta: | 8069 - BASE DE DATOS PARADOS CON CLAVE A TRAVES DE DAO |
| Autor: | Marcelo Hosan |
| Es posible ver una tabla Paradox que tiene clave en Visual Basic con Dao?. Hay alguna forma de leer los valores (no es necesario editarlos).
Desde ya muchas gracias!! | |
| Respuesta: | Sonia Calzada |
| Claro que si solamente tienes que agregar un DNS en la ODBC para poder accesar a la Base de datos de Paradox utilizando el controlador de Paradox.
En Visual Basic agregas un componente denominado ADO DataControl y un Data Grid Control y con eso puedes visualizar la tabla en una forma de Visual Basic. | |
| Pregunta: | 8100 - MANEJO DE FIRCHEROS EN VISUAL BASIC |
| Autor: | Michael Henry Cornejo Cuaquira |
| Holas a todos, Nesecito ayuda sobre Visual Basic en el tema de manejo de ficheros , leyendo varios manuales, cursos y foros de consulta me dieron ayuda de como mandar un fichero a la papelera de reciclaje y me resulto interesante pero sobre es instruccion al ejecutarla aparece el cuadro de consulta sobre si deseo mandar el fichero si/no, quisiera saber si me pueden ayudar en esto, quisiera que no aparesca el mensaje sin utilizar el kill.
Sobre manejo de ficheros desearia saber como puedo eliminar,mover,pegar o copiar un fichero en visual basic si tener que recibir el cuadro de consulta o verificacion. Estar茅 muy agradecido si pudiesen ayudarme.. | |
| Respuesta: | Xavi |
| Hola Michael, para ello, vb trae sus propias instrucciones para crear, eliminar, etc...
por ejemplo, para copiar un archivo es filecopy Kill, elimina un archivo del disco RmDir, elimina una carpeta o directorio del disco. ChDir, cambia el directorio o carpeta actual Mkdir, crea una nueva carpeta o directorio Rmdir, elimina una carpeta o directorio. Para crear un nuevo fichero, utiliza la instruccion Open(...) Espero que te sirva. | |
| Pregunta: | 8120 - MASCARAS DE EDICION |
| Autor: | Mariano Birba |
| Buenas Tardes.
Quisiera que me recomienden mascaras de edicion para datos como importes, porcentajes, etc. Considero que el Mask Edition de Visual es una porqueria. Muchas Gracias | |
| Respuesta: | Xavi |
| Hola Mariano, aqui te adjunto dos funciones que realice para ello...
'************************************************** '* InsertarPuntosMiles 12/07/99 * '* Inserta los puntos de miles en un valor * '* numerico. Detecta la coma de separaci贸n de * '* decimales * '* * '* Deve recibir el numero en formato string * '* * '* Devuelve el numero en formato string * '************************************************** Function InsertarPuntosMiles(Cadena As String, Pesetas1_Euros2 As Integer) As String Dim i As Long If Len(Cadena) = 0 Then InsertarPuntosMiles = "0" Exit Function End If Cadena = EliminarPuntosMiles(Cadena) 'colocamos las comas de los miles y punto de decimales If Pesetas1_Euros2 = 2 Then 'Mostrar Euros Cadena = Format(CCur(Cadena), "#,##0.000") Else 'Mostrar Pesetas Cadena = Format(CCur(Cadena), "#,##0") End If InsertarPuntosMiles = Cadena End Function '************************************************** '* EliminarPuntosMiles 12/07/99 * '* Elimina los puntos de miles en un valor * '* numerico. Detecta la coma de separaci贸n de * '* decimales. * '* * '* Deve recibir el numero en formato string * '* * '* Devuelve el numero en formato string * '************************************************** Function EliminarPuntosMiles(Cadena As String) As String Dim Posicion As Long Do Posicion = InStr(Cadena, ".") If Posicion <> 0 Then Cadena = Left(Cadena, Posicion - 1) & Right(Cadena, Len(Cadena) - Posicion) Loop While Not Posicion = 0 EliminarPuntosMiles = Cadena End Function En el evento GotFocus, tienes que colocar: text1.Text = EliminarPuntosMiles(txtPesetas.Text) En el evento LostFocus, tienes que colocar: text1.Text = InsertarPuntosMiles(txtPesetas.Text, 1) | |
| Pregunta: | 8156 - EJECUTAR .AVI DESDE UN .RES |
| Autor: | vampy |
| Por Fa... Tengo un AVI en un archivo de recursos .RES (en forma binaria) como lo ejecuto en visual Basic (NOTA: no me sirve el control Animation ya que este me solicita el archivo) | |
| Respuesta: | Paul Guerra |
| Podes utilizar la funci贸n LoadResData para cargar los datos en una matriz de bytes. Despu茅s lo guardas en un archivo temporal AVI y listo. | |
| Pregunta: | 8172 - ORACLE 8.0 CON VB 7.0 SENTENCIA UPDATE |
| Autor: | el Guille |
| Apelo a vuestros conocimientos pq los m铆os no dan para m谩s de todas formas gracias por adelantado.
Estoy haciendo un update contra una tabla de oracle, dentro de un bucle "do while not recordset.eof". La conexi贸n que utilizo es un servicio que he generado para conectarme a la BD de oracle la aplicaci贸n con esta conexion va bien, el caso es que el update he probado a hacerlo de varias formas y todas sin resultado satisfactorio. Con el "Con.execute sql", (con es la conexion activa en ese momento y la sql contiene el update) si lo hago de esta forma hace el update(de unos 500 registros) y al final el proceso da el error "fin de fichero en el canal de comunicaci贸n" y se "muere" el proceso. Despues del fiasco obtenido prob茅 de esta otra forma: Defino un recordset de tipo "New ADODB.CONNECTION" y la instrucci贸n que utilizo es "Rd.open,sql(la del update)con(que es la conexion activa en ese momento),adOpenDynamic,adLockPessimistic , con esto lo 煤nico que consigo es aumentar un poco el n潞 de registros actualizados (unos 1500 + 贸 -) pero al final el proceso se muere y no me da ning煤n error(se queda colgado visual y tengo q recurrir al famoso Ctrl-Alt-Supr) la verdad es que ya no se si es problema del tipo de conexi贸n , de la sql que utilizo, o de la base de datos Oracle. Si alguno de vosotros/as sabe porque ocurre esto y como solucionarlo os estar铆a eternamente agradecido. Un saludo, el Guille. | |
| Respuesta: | C茅sar |
| Yo he usado VB 6.0 contra Oracle 8 usando ado y para hacer los updates los hago utilizando el recordset:
Set res = New adodb.Recordset res.Open sql, conexion donde sql="UPDATE ...." | |
| |< << 159 160 161 162 163 164 165 166 167 168 169 >> >| |