PREGUNTAS CONTESTADAS - Visual Basic

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

Contestar

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

Contestar

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

Contestar

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

Contestar

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.

Contestar

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

Contestar

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

Contestar

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.

Contestar

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).

Contestar

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

Contestar

|< << 56 57 58 59 60 61 62 63 64 65 66 >> >|