Iniciar sesión
Crear cuenta
Crear cuentaCrear cuenta| Hay un total de 3030 Preguntas. | << >> |
| Pregunta: | 3645 - CREAR TABLAS EN UNA MISMA BASE EN ACCESS CON CODIGO VB |
| Autor: | jasan |
| Hola, mi pregunta es: ¿Cómo puedo crear distintas tablas de datos en una misma base, pudiendo variar el número de campos al igual que sus nombres, o simplemente replicarlas, utilizo access 97 y visual basic 6, ejemplo: mi base esta en c:\sistema\mibase.mdb, y las tablas serían tabla98, tabla99, tabla2000; mediente código, como sería? Agradeceré cualquier ayuda brindada... gracias. | |
| Respuesta: | Jacp99 |
| Tienes que Consultar la referencia de Access para la generación de Scripts SQL estandar ANSI. Debes invocar Create Table, Drop Table (Borrar tablas) ... en fin , debes armar tus cadenas sql y pasarlas al origen de datos ODBC que tienes conectado a tu base de datos. Espero que esto te de una buena idea de lo que necesitas ... si deseas conocer más solo escribeme. | |
| Respuesta: | Genaro Sanchez |
| Para crear tablas usando Sentencias SQL, el codigo es el siguiente: Dim rs, i, sql(12), sqlcmd Set rs = CreateObject("adoce.recordset") sql(0) = "create table allfields (" sql(1) = "f1 varchar ," ´adVarWChar sql(2) = "f2 varchar(30)," ´adVarWChar sql(3) = "f3 text ," ´adLongVarWChar sql(4) = "f4 varbinary ," ´adVarBinary sql(5) = "f5 varbinary (30) ," ´adVarBinary sql(6) = "f6 long varbinary ," ´adLongVarBinary sql(7) = "f7 int ," ´adInteger sql(8) = "f8 smallint ," ´adSmallInt sql(9) = "f9 float ," ´adDouble sql(10) = "f10 datetime ," ´adDate sql(11) = "f11 bit" ´adBoolean sql(12) = ")" For i = 0 To 12 sqlcmd = sqlcmd & sql(i) Next rs.Open sqlcmd rs.Open "allfields" MsgBox rs.Fields.Count, , "Fields" rs.Close Set rs = Nothing Espero que te sirva | |
| Respuesta: | sergio berte |
| Para hacer lo que necesitas desde VB6, primero necesitas crear una variable de base de datos, para eso necesitas tener seleccionada la referencia de microsoft dao 2.3/3.5, abrir la base de datos donde queres crear las tablas y a través de esa variable ejecutar una consulta de creación de tabla SQL.Ej: Dim base As Database Private Sub cmdCrearTabla_Click() base.Execute "CREATE TABLE Mitabla2 (nombre TEXT(25),numcli INTEGER CONSTRAINT indice PRIMARY KEY,apellido TEXT(30))" End Sub Private Sub Form_Load() Set base = OpenDatabase("c:\mis documentos\temp2.mdb") End Sub En el load abro la base y despues genero la consulta, CREATE TABLE que crea una nueva tabla, despues van los nombres de los campos, tipo y tamaño, entre paréntesis y la palabra CONSTRAINT crea un indice que será la llave primaria del campo numcli. Bueno espero que te haya sido útil lo poco que se sobre consultas SQL | |
| Pregunta: | 3647 - SCANNERS Y DEMAS FAUNA |
| Autor: | David Peláez |
| Necesito saber como manejar un scanner de forma avanzada, esto es: multipágina, grabar a disco, formatos...... estoy empleando los OCX de Imaging Gracias. | |
| Respuesta: | carlos sanchez |
| checate http://www.fpress.com/revista/Num9705/may97.htm ahi vienen unos ejemplos de visualfox, extrae el final de los enunciados y veras como se manipulan los formatos de imaging en los ocx. suerte | |
| Pregunta: | 3648 - DATAREPORT |
| Autor: | Renzo de las Casas Jaramillo |
| Quisiera saber cómo hago para enlazar un campo en una cabecera de grupo, lo estoy haciendo de igual forma como enlazo el detalle: With .Sections("Section1").Controls With .Item("txtcantidad") .DataMember = vbNullString .DataField = "cantidad" End With pero cuando lo hago con la cabecera de grupo me sale un mensaje como que no encuentra datasource a pesar que ya le he aignado a todo el reporte con este código: With rptcoti Set .DataSource = rsv_cotizacion .DataMember = vbNullString Estoy programando un reporte de cotizaciones y utiliza objetos ADO Gracias... | |
| Respuesta: | daniel cheuqueman |
| Te recomiendo te olvides del Datareport, que para mi es malísimo.- Utiliza en cambio el Crystal Report en versiones 7.0 u 8.0 y te aseguro que haras magia con los reportes. Atte | |
| Pregunta: | 3649 - FUNCION ELIMINAR LÍNEA. |
| Autor: | Ma. de los Angeles Moreno Jaramillo |
| Hola. Estoy buscando una función que elimine toda una linea de una archivo, o bien una rutina que me ayude hacer esto. Si uds. conocen una función o rutina agradecéría me puedan ayudar. De antemano gracias.. | |
| Respuesta: | Gerald Valdes |
| Tendria que hacer algo asi... (si te entendi bien) dim Linea as string open "archivo a utilizar" for input as #1 open "archivo de paso" for output as #2 do while not eof(1) Line Input #1, Linea if Linea <> "Linea que deseea borrar" then print #2, Linea endif loop close #1 close #2 kill "archivo a utilizar" name "archivo de paso" as "archivo a utilizar" <<entonces lo que harias seria abrir el archivo del que quieres borrar una linea y abrir otro solo de paso para escribir, creas un bucle en donde lees todas las lineas del archivo original y las vas escribiendo en el archivo de paso, evitando escribir solamente la linea que quieres eliminar, espero que esto sea lo que necesitas, chaop>> | |
| Respuesta: | Goku |
| Abri el archivo, eliminale la linea y despues guardalo...tendrias que explicar un poco mas que es exactamente lo que quieres hacer porque asi esta muy en el aire. cualquier cosa escribime | |
| Pregunta: | 3671 - PROBLEMAS AL CREAR .EXE EN VB6.0 |
| Autor: | Edgar Godoy Lopez |
| Hola a todos: De antemano doy las gracias, por cualquier orientación, ayuda ó recomendación que me puedan dar; en el momento estoy trabajando en Visual Basic 6.0 y Crystal Reports 8.0 y al generar el paquete (*.exe) en Visual Basic 6.0, me generó el siguiente error: “Archivos que faltan: Estos archivos son necesarios para que este paquete, pero no se encuentran. Haga clic en examinar para buscar los archivos o aceptar para continuar sin los archivos: Crystal P2SSTES.DLL U25STORE.DLL U25TOTAL.DLL U2LBAR.DLL ...” Y si busco estos archivos en el equipo no los encuentro, a pesar que efectúe una instalación completa de los dos softwares antes mencionados, y si le doy continuar al ejecutarlo no me instala la aplicación, también mire las dependencias, por si aparecía alguna que no estuviera utilizando, pero todas las seleccionadas se encuentran utilizadas. Por lo tanto necesito que me den una guía de que hacer en este caso y de que se tratan estos archivos o porque me los pide. Muchas Gracias. | |
| Respuesta: | Solange Contreras |
| Busca por el explorador los componentes que te faltan y en el caso de crystal, la debes terner como una carpeta adicional dentro de windows o windows\sistem, para que la indique completa a la hora de generar la instalación, si no te funciona, me escribes, chao | |
| Respuesta: | Daniel Cheuqueman |
| Mira, A mi también me ha pasado con la versión 7.0 del crystal, pero al pedirme los archivos, lo que hice fué irme al explorador y buscarlos, y los encontré y los cargué. Eso es todo lo que te puedo decir, y no tuve ningún problema despúes para instalar mi aplicación. Atte. | |
| Pregunta: | 3680 - EXPORTAR INFORME CRYSTAL REPORT POR CÓDIGO VB6 |
| Autor: | Luis Cáceres |
| Saludos. desarrollo una aplicación en visual 6 y necesito exportar un reporte generado en crystal report 7 por medio de código. Si alguien tiene aunque sea una noción de como hacerlo favor de contestar. de antemanos gracias | |
| Respuesta: | Alice Queen |
| hola, yo aún trabajo en VB5, pero exporto los reportes de CR con el siguiente código: CrystalReport1.destination = crptToFile CrystalReport1.PrintFileType = (tipo de archivo al cual queres exportar, de todas maneras te suguiere las opciones) CrystalReport1.PrintReport espero que te sirva saludos desde Uruguay | |
| Pregunta: | 3683 - CURSORES EN COLOR |
| Autor: | Manuel Peiró |
| Hola Programadores! Mi problema es el siguiente: Cuando trato de poner un cursor personalizaado en mis aplicaciones siempre se ven en blanco y negro, da igual que lo haga yo con un programa o que lo coja de los que trae Windows. Sin embargo, si pongo como cursor un icono ("*.ico" en vez de "*.cur") si que se ve en color, pero no puedo dejarlo ya que no puedo elegir su zona de accion, es decir, el punto que vale al clickear (ejemplo: la punta de la flecha en el cursor predetermindao de Windows). ¿Que puedo hacer? Gracias por vuestra atencion. | |
| Respuesta: | juan cecconi |
| Aqui tienes un codigo que te escribi utilizando APIs de windows para cambiar el puntero del mouse con cada click en el formulario.La logica del programa es sencilla y tiene algunos comentarios, espero no tengas inconvenientes. Option Explicit Const IDC_ARROW = 32512& Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long Private hArrow As Long, hCursor As Long, Cursor_Arrow As Boolean ´ Private Sub Form_Load() ´ hCursor = LoadCursorFromFile(App.Path & "\mi_cursor.cur") ´cargo cursor personalizado hArrow = LoadCursor(0, IDC_ARROW) ´cargo el cursor de flecha del sistema! ´ SetClassLong Me.hwnd, GCL_HCURSOR, hCursor ´la clase de la ventanas form1 tiene mousepointer hCursor SetClassLong Command1.hwnd, GCL_HCURSOR, hCursor ´la clase de la ventanas command1 (buttons) tiene mousepointer hCursor Cursor_Arrow = False ´cursor actual personalizado! End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then If Cursor_Arrow Then ´cursor actual es flecha? SetClassLong Me.hwnd, GCL_HCURSOR, hCursor ´si-> cambio al personalizado SetClassLong Command1.hwnd, GCL_HCURSOR, hCursor Else SetClassLong Me.hwnd, GCL_HCURSOR, hArrow ´no-> cambio del personalizado al de flecha SetClassLong Com | |
| Pregunta: | 3686 - ODBC - VISUAL BASIC Y MS SQL SERVER 7 |
| Autor: | Manuel Antonio Leva Jumilla |
| Necesito saber si hay alguna incompatibilidad entre el ODBC de SQL Server 6.5 y el del SQL Server 7. Me explico he creado una aplicación en Visual Basic 5 en un cliente/servidor con el motor SQL server 7, anteriormente tenia el 6.5 y todo funcionaba bien, pero ahora tengo en una maquina cliente un ODBC de la versión 3.60 .. que me funciona bien el programa, sin embargo en otros clientes que tienen el ODBC 2.65 .. no se conectan bien al Servidor. ¿Tengo que unificar las versiones del ODBC para que me funcione todo bien?. | |
| Respuesta: | Tito Velez |
| Entiendo claramente tu problema, y en teoria no deberias tener problemas si migras tus aplicaciones de 6.5 a 7.0; Creo que has acertado al referite al ODBC, debes tratar de obtener las ultimas versiones e instalarlas en los clientes porque siempre corrigen errores fantasmas que suelen ocurrir. Ahora, para que no tengas problemas en lo posterior, cambia el metodo de accesso a los datos y utiliza ADO que en teoria no necesita ODBC. | |
| Pregunta: | 3693 - OBJETOS OLE EN RICHTEXTBOX |
| Autor: | Jorge Garay |
| Tengo un control Rich TextBox al cual le pego imagenes bmp previamente almacenadas en el portapapeles. Estas aparecen luego en la coleccion OLEObjects del control. El problema es al seleccionar una imagen en el control, cuando quiero saber a que objeto de la coleccion OLEObjects corresponde. No encuentro la forma! Alguien tiene una solucion? Muchas gracias. | |
| Respuesta: | José Ariel Limandri |
| hE aqui la solucion a tu problema: ' pone en un formulario un RichText y un command Button '(Asegurate de instalar el service pack 4 de VStudio 'ya que el RichTXT tiene algunos problemitas Option Explicit Private Sub Command1_Click() Dim ST As Long Dim Pos As Long Dim Pos2 As Long Dim ObjName As String With RichTextBox1 Pos = InStr(1, .SelRTF, "}\objw", vbTextCompare) If Pos > 0 Then 'Objeto Seleccionado Pos2 = InStr(Pos + 3, .SelRTF, "\", vbTextCompare) ObjName = Mid(.SelRTF, Pos + 2, Pos2 - Pos - 2) ' tengo el nombre del objeto seleccionado. ' Primero busco la posicion absoluta de este y luego 'Busco cuantos Objetos hay antes del mismo Pos = InStr(1, .TextRTF, ObjName, vbTextCompare) MsgBox "Objeto Seleccionado: " & UBound(Split(Left(.TextRTF, Pos), "OBJDATA", , vbTextCompare)) End If End With End Sub EXPLICACION LOGICA (POR SI NO TE FUNCIONA): Lo que hace el codigo es buscar (en el texto seleccionado) el nombre del objeto (si es que hay uno) Luego busca en todo el texto la posicion del objeto Luego busca en Todo el texto(hasta la posicion del objeto seleccionado) cuantos otros objetos hay. y ete aqui que este nro es el nro correspondiente a oleobjects. Suerte. y cualquier dudad mandame un mail (no te olvides de mandarme la pregunta porque muchas veces no me acuerdo los nombre de todas las personas a las que respondo). | |
| Pregunta: | 3696 - TECNOLOGIA MICROFILM |
| Autor: | GONALO ANTONIO silva brito |
| Nesecito averiguar todo lo relacionado con tecnologia microfilm, para lectura y almacenamientos de datos en todos sus tipos de db de antemano agradesco todo tipo de informacion sobre esta tecnologia | |
| Respuesta: | Hector Volpe |
| No entiendo bien tu pregunta pero si te referis a almacenar imagens microfilmadas en una BD es lo mismo que almacenar cualquier otro tipo de imagen con la salvedad de que deberas pasar esta imagen a datos. Para ello existen escaneres especiales (de alto costo) que directamente generan desde el microfilm un archivo con cada toma (normalmente JPG); es decir que por cada toma de microfil tendras un archivo JPG. Estos escaneres incluyen Soft basico para almacenar directamente estas imagenes en BD (diferentes motores) inclusive creando indices automatica o manualmente. Existen tambien soft especifico muy potente que digitaliza, realiza OCR, permite determinar claves y/o campos de accesos y muchos chiches mas. Si precisas mas in formacion enviame un email con mas detalle. Salu2 | |
| |< << 56 57 58 59 60 61 62 63 64 65 66 >> >| |
