Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
Ayuda para quien la quiera
Enviado por Chen Li el día 14 de junio de 2004
Ofrezco ayuda para quien la quiera, tengo manuales, y se mucho de visual basic.
hola si puedes ayudarme con el codigo para calcular el seno y coseno de un angulo te lo agradesco mucho,
que el lenguaje sea vb.net preferiblemente gracias
hola chen li lo que pasa esque tengo una consulta cargada en un dbgrid y necesito obtener los datos de todas las filas de una columna para hacer una operacion y colocarlos en las mismas filas de otra columna. te agradezco si me puedes ayudar
Mira estoy aprendiendo a hacer librerias dinamicas en vb, se genera normal el dll, el problema es que aparece en la ficha de componentes y cuando cargo manualmente sale un mensaje de que no puede cargar el dll.
que puedo hacer?...
Enviado por rando_mize el día 7 de febrero de 2006
tan simple como AGREGAR REFERENCIA, la selecciona y la adjuntas directamente ahi, eso en tiempo de diseño, si lo k kieres es dinamikamente, es otra historia
Private Sub cmdComprobar_Click()
Dim a As String
a = Trim(Me.txtPolidromo.Text)
polidromo a
If Trim(Me.txt438Polidromo.Text) = a Then
MsgBox \"Si es Polidromo\", vbOKOnly + vbExclamation, \"Polídromo\"
Else
MsgBox \"NO es Polidromo\", vbOKOnly + vbCritical, \"ERROR\"
End If
Me.lblResPol.Caption = a
End Sub
Sub polidromo(ByRef B As String)
Dim ix As Integer, strcont As String
For ix = Len(B) To 1 Step -1
strcont = strcont + Mid(B, ix, 1)
Next
B = strcont
End Sub
Deja CHEN LI, no es hombre Chen LI es mujer y es mi mamacita asi que dejala en paz
por que es la reyna de mi verga y con ella no te metas
pinche perro
me la voy a coger hoy y le dire que ya no te ayude
Por que no le haces un favor a la humanidad y te retiras del foro.... o hacete coger por un perro.... va en realidad no va a poder... porque el perro se esta cogiendo a tu vieja GILLLLLL !!!!!!!!!!! sos un puto tragaleche !!!!!
Enviado por programador01 el día 26 de junio de 2006
me vas a disculpar pero sos un reverendo salvage no tenes conocimientos de lo que es ser educado y te mostras como una persona ingnorante y malcriada a leguas se hecha de ver que TU MADRE Y TU PADRE SE HAN DE SENTIR MUY ORGULLOSOS DEL ASCO QUE TUBIERON COMO HIJO APRENDE A EXPRESARTE COMO UN HOMRE EDUCADO Y NO COMO UN RETROGRADA
NO TE MOLESTES EN RESPONDERME NO LEERE TU SUCIA RESPUESTA.
necesito un reloj de ajedrez para mi pequeño campeonato derapidas.
¿como podria conseguir uno por lo menos?¿alguna subvencion,e.t.c...?"comprar"¿cuanto mas o menos?
muchas gracias un saludo
estimar el numerode paginas de un textoque puede almacenarce en la memoria de un computador,considerando un promedio de 300 palabras por pagina y 10 caracterespor palabra.asumir que un caracter ocupa un byte.
Mañana a las cuatro se me termina el tiempo para entregar un codigo de programacion. Se trata de una funcion que determine si dos numeros introducidos en la hoja de EXCEL son Coprimos-(distintos y su Maximo Comun Divisor es 1),devolviendo el resultado como VERDADERO o FALSO.
El codico tiene que estar en el eitor de visual basic abriendo des de EXCEL en la barra de herramientas->macro->editor de VB...
LOCO SI TE RASCASTES LAS BOLAS ES PROBLEMA TUYO... SE UN POCO MAS RESPONSABLE.... Y EN VEZ DE TOCARTE TODO EL DIA HACIENDOTE LA PAJA PONETE A TRABAJAR TRAGALECHE !!!!!
mira, estoy haciendo un exportacion de datos de un datagrid a una hoja de excel, todo funciona ok cuando, hago la consulta y quiero exportarlo me da el mensaje de error invalid row number, Gracias espero tu ayuda
hola chen li necesito que me ayudes con cualquier informacion de basic punto net
Tengo una aplicacion q me permite cargar informacion de unos archivos texto q bajo de una pocket pc esta informacion la mando a tablas de sql server ahora necesito que esta informacion q esta en sql mandarla a unas tablas de visual fox q necesito para poder hacer esta transferencia Mil gracias de antemano y si puedes ayudame lo mas pronto posible es de urgencia
Hola chen li. Mi problema es que estoy desarrollando un programita para ppc en vb 3.0. Ya lo tengo casi terminado pero ahora me gustaria protegerlo de manera que cada copia del programa solo pueda ejecutarse en un solo pocket. Me explico. Yo tengo el pocket, instalo el programa y quiero evitar que el comprador ponga ese programa en otro pocket que tenga, evitando de esa manera pagarme dos licencias. Como podria proteger mi software? alguna idea? Gracias.
necesito ayuda....
quiero agregar un registro en una base de datos acces por medio de un formulario de visual basic.net
usando el form asp.net y no he podido agregar un registro me puedes ayudar?
hola te he visto en un foro, y me gustaria que me ayudaras... pues mira esque estoy haciendo un programa en el que necesito imprimir unas picturebox, pero no se como hacer para que la grafica salga en toda la hoja , siendo el tamaño DIN A3 y DIN A4... por favor si sabes contestame a este correo linachona@yahoo.es
Enviado por jmorales el día 10 de septiembre de 2004
BUENOS DIAS MI PROBLEMA ES QUE NO SE COMO GENERAR UN DATA REPORT SI ME PUEDEN AYUDAR,
O POR LO MENOS QUE ME DIGAN COMO SE IMPRIME UN MSFLXGRID
MIL GRACIAS
Printing in visual basic can be a hassle and confusing to the beginner. Printing topics on books are common but usually they are too generic and superficial. I thought that a detailed tutorial regarding printing a dbgrid (or a grid) might be useful to someone. I suggest that one should make some reading on printing before attempting to read this page especially if the reader has no experience in printing. Some programming experience such as creating loops is also assumed. A good chapter on printing can be obtained from this site: Printing with Visual Basic (from Teach Yourself Visual Basic 5 in 24 Hours by Greg Perry).
Figure 1
Build a Form with a dbgrid control, a data control, and a command button. Connect the data control to a database (use property Datasource: Authors and property Databasename: Biblio.mdb). Name command button caption “Print.” Set the form to your desire. Make only about 10 rows only visible for future demonstrations. As the third column “Year Born” are nearly all empty, enter some dates (1990,1991,1992, and so on to have some data in the third column “Year Born” One can remove them later.). Don’t forget to retrieve the fields in the dbgrid by right click on the the dbgrid and choose Retrieve Fields . The form should look something like figure one.
Ok, then let’s go. Consider the grid as a number of text boxes joined together. When one prints a text box, the following command works:
Private Sub Command1_Click()
Printer.Print Text1.Text
End Sub
However one have to declare a position to start with, for example:
Private Sub Command1_Click()
Printer.CurrentX = 10
Printer.CurrentY = 10
Printer.Print Text1.Text
End Sub
Lets go to our dbgrid then:
Private Sub Command1_Click()
Printer.Scalemode = 6 ‘declare units of measurement, i.e. millimeters
Printer.CurrentX = 10 ‘declare position of X
Printer.CurrentY = 10 ‘declare position of Y
DBGrid1.Col = 0 ‘Select first row to be printed
DBGrid1.Row = 0 ‘Select first column to be printed
Printer.Print DBGrid1.Text
Printer.EndDoc
End Sub
Try to print out this. You will find that “1” is printed at the position you requested. Note the Scale-
mode property now is millimeters and has been declared. Now we have to print the next word and the next. Again we have to declare new positions and new cells. This process might be confusing but don’t give up yet. Look closely and try to understand this code:
Private Sub Command1_Click()
Printer.ScaleMode = 6 'declare measurement units
'
Printer.CurrentX = 10 'declare position of X
Printer.CurrentY = 10 'declare position of Y
DBGrid1.Col = 0 'identify column number to print
DBGrid1.Row = 0 'identify row number to print
Printer.Print DBGrid1.Text
'
DBGrid1.Col = 1 'identify column number to print, no need to repeat row if it is the same.
Printer.CurrentX = 15 'declare new position of Y
Printer.CurrentY = 10 'declare same position of Y. Note that Y position is repeated.
Printer.Print DBGrid1.Text
‘
DBGrid1.Col = 2 'identify again next column number to print, no need to repeat row
Printer.CurrentX = 50 'declare new position of Y
Printer.CurrentY = 10 'declare same position of Y. Position of Y is to be repeated.
Printer.Print DBGrid1.Text
‘
Printer.EndDoc
End Sub
OK, try to print out this now and see the result. Well we have the first line. Note, that if one does not repeat the Y axis position, the Printer.Print command creates a new line. Therefore if we want to print near the next previous word and remain on the same line, we have to specify the Y axis again. Try and remove the Y axis as experiment for yourself.
Now we go for more lines to print. The For....Next Loop will be used. Look closely at the following code. Note how the row number, the Y value number are increased every time the loop repeats itself.
Private Sub Command1_Click()
Dim i As Integer 'to be used for the for...next loop
Dim R As Integer 'to be used to increment the row number
Dim IncreaseY As Integer 'to be used to increase Y co-ordinate
‘
Printer.ScaleMode = 6 'declare measurement units
‘Print First Row
Printer.CurrentX = 10 'declare first position of X
Printer.CurrentY = 10 'declare first position of Y
DBGrid1.Col = 0 'identify column number to print
DBGrid1.Row = 0 'identify row number to print
Printer.Print DBGrid1.Text
'
DBGrid1.Col = 1 'identify column number to print
Printer.CurrentX = 15 'declare new position of Y
Printer.CurrentY = 10 'declare position of Y
Printer.Print DBGrid1.Text
DBGrid1.Col = 2 'identify column number to print
Printer.CurrentX = 50 'declare new position of Y
Printer.CurrentY = 10 'declare position of Y
Printer.Print DBGrid1.Text
'
'Print NINE more Rows, leave first row alone
For i = 1 To 9
R = R + 1 'row number by increase by one with every loop
IncreaseY = IncreaseY + 5 'increaseY by 5 with every loop
‘
DBGrid1.Row = R 'identify row number to print
Printer.CurrentX = 10 'declare same position of X
Printer.CurrentY = 10 + IncreaseY 'declare new position of Y
DBGrid1.Col = 0 'identify column number to print
Printer.Print DBGrid1.Text
'
DBGrid1.Col = 1 'identify column number to print
Printer.CurrentX = 15 'declare position of Y
Printer.CurrentY = 10 + IncreaseY 'declare new position of Y
Printer.Print DBGrid1.Text
DBGrid1.Col = 2 'identify column number to print
Printer.CurrentX = 50 'declare new position of Y
Printer.CurrentY = 10 + IncreaseY 'declare position of Y
Printer.Print DBGrid1.Text
Next i
Printer.EndDoc
End Sub
Hope that the code above is self explanatory and you are not lost. What about if I want to print the visible rows on the screen. Easy, amend the above code as follows:
For i = 1 To DBGrid1.VisibleRows
Now, try to print more than 12 rows, that is rows that are not visible on the screen. Try it and note the error number of 6148 indicating an invalid row number is displayed. To over come this, amend the code in the For…Next loop as follows; when the error displays that there is an invalid row number
CONT……….
'Print NINE more Rows
For i = 1 To 20 'or use DBGrid1.VisibleRows to print all the visible rows
R = R + 1 'row number by increase one with every loop
IncreaseY = IncreaseY + 5 'increaseY by 5 with every loop
'
On Error Resume Next
DBGrid1.Row = R 'identify row number to print
If Err.Number = 6148 Then
Data1.Recordset.MoveNext
End If
Printer.CurrentX = 10 'declare same position of X
Printer.CurrentY = 10 + IncreaseY 'declare position of Y
DBGrid1.Col = 0 'identify column number to print
CONT ……….
This code causes the grid to scroll down.
Ok, suppose we want to print the grid now. Well, let us start with the vertical lines. Vertical lines can be coded when the first row that was coded. Therefore to print the first vertical line give the code following code:
Printer.Line (9, 10)-(9, 10 + 20 * 5) 'vertical line 1
just after the code the print the first word, in our case “1” is printed first word. Let give some explanation. The Line command takes these parameters:
In our case, X1 is 10 minus 1, to print one millimeter before the word, and that goes for X2. The value of X does not change in a vertical line, no. Now Y1 is 10, same as the CurrentY (initial value of Y) and Y2 is 10 +20*5 (10, the initial value of Y, plus 20, the number of rows to be printed times and 5, the width of the printed row, the incremental of Y remember.) Put and amend vertical lines in the second and third word.
Finally lets us go to the horizontal line. We have to create another loop here. Look at this code carefully.
CONT.............
'Print Horizontal Lines
Dim j As Integer 'to be used for the For…Next Loop to draw horizontal line
Dim Counter As Integer 'to increase the value of Y
For j = 1 To 20
Counter = Counter + 5
Printer.Line (9, 5 + Counter)-(85, 5 + Counter)
Next j
CONT...........
One has to be patient here and calculate positions as desired
The Printer.Line follows the same rules for the vertical lines. Ok the tutorial is finished. Now use your brains and adjust and amend to your desire. The concept behind this tutorial is to give an idea to the confused beginner how to print a dbgrid. I hope that I did not confused further After all I just a newbie in VB programming
Here is the final code:
Private Sub Command1_Click()
Printer.PrintQuality = -4
Dim i As Integer 'to be used for the for...next loop
Dim R As Integer 'to be used to increment the row number
Dim IncreaseY As Integer 'to be used to increase Y co-ordinate
'
Printer.ScaleMode = 6 'declare measurement units
'
Printer.CurrentX = 10 'declare position of X
Printer.CurrentY = 10 'declare position of Y
DBGrid1.Col = 0 'identify column number to print
DBGrid1.Row = 0 'identify row number to print
Printer.Print DBGrid1.Text
Printer.Line (9, 10)-(9, 10 + 20 * 5) 'vertical line 1
'
DBGrid1.Col = 1 'identify column number to print
Printer.CurrentX = 20 'declare new position of Y
Printer.CurrentY = 10 'declare position of Y
Printer.Print DBGrid1.Text
Printer.Line (19, 10)-(19, 10 + 20 * 5) 'vertical line 2
'
DBGrid1.Col = 2 'identify column number to print
Printer.CurrentX = 70 'declare new position of Y
Printer.CurrentY = 10 'declare position of Y
Printer.Print DBGrid1.Text
Printer.Line (69, 10)-(69, 10 + 20 * 5) 'vertical line 3
Printer.Line (85, 10)-(85, 10 + 20 * 5) 'vertical line 4
'
'Print NINE more Rows
For i = 1 To 20 'or DBGrid1.VisibleRows
R = R + 1 'row number by increase one with every loop
IncreaseY = IncreaseY + 5 'increaseY by 5 with every loop
'
On Error Resume Next
DBGrid1.Row = R 'identify row number to print
If Err.Number = 6148 Then
Data1.Recordset.MoveNext
End If
Printer.CurrentX = 10 'declare same position of X
Printer.CurrentY = 10 + IncreaseY 'declare position of Y
DBGrid1.Col = 0 'identify column number to print
Printer.Print DBGrid1.Text
'
DBGrid1.Col = 1 'identify column number to print
Printer.CurrentX = 20 'declare new position of Y
Printer.CurrentY = 10 + IncreaseY 'declare position of Y
Printer.Print DBGrid1.Text
'
DBGrid1.Col = 2 'identify column number to print
Printer.CurrentX = 70 'declare new position of Y
Printer.CurrentY = 10 + IncreaseY 'declare position of Y
Printer.Print DBGrid1.Text
Next
'Print Horizontal Lines
Dim j As Integer 'to be used to draw horizontal line
Dim Counter As Integer 'to increase the value of Y
For j = 1 To 20
Counter = Counter + 5
Printer.Line (9, 5 + Counter)-(85, 5 + Counter)
Next j
Printer.EndDoc
End Sub
Enviado por Jogi24_4 el día 5 de septiembre de 2005
Es sencillo.
1.-Agrega un Data Environment y Luego Agrega Un dataReport(Con el boton derecho en el explorador del proyecto).
2.-El DataEnvironment es el que va a hacer el enlace a tu base de datos. Doble clic en el y crea una nueva coneccion(puedes seleccionar una tabla directamente o puedes generar una consulta SQL)
Si tu consulta esta bien te mostrara una lista de campos en la consulta si asi lo seleccionaste.
2.-El datareport lo tienes que conectar a tu base de datos, mediante el dataenvironment. Liga el Data report al dataenvironment mediante la propiedad Datamember y despues en DataSource.
3.-En el data report con el boton derecho da clic en Obtener Estructura, se crearan las secciones de tu consulta respectivamente. Ya solo basta con arrastrar los campos del dataenvironment al data report y listo.
Para mostrar tu reporte:
dataenvironment1.coneccion1.open App.path + "\Mibase.mdb"
datareport1.refresh
datareport1.show
dataenvironment1.coneccion1.close
-********************************************************************-
He tenido muchas dudas como tu, y me han ayudado en mucho estos foros, agradezco a las personas que con sus comentarios me han sacado de dudas.........
Espero te sirva....mi comentario
hola pero adonde se programa lo sgte:
dataenvironment1.coneccion1.open App.path + "\Mibase.mdb"
datareport1.refresh
datareport1.show
dataenvironment1.coneccion1.close
bueno hay muchas formas de imprimir un flexgrid pero la que yo utilizo y me parece muy facil es que crees un tabla temporal con los campos del flexgrid a guardar y le programas en el evento imprimir que primero revise que cuando la tabla temporal que los elimine todo y recien que permite ingresar datos y despues lo llamas a lmomento a los camposque desees mostra en tu data report pero bueno te aconsejo que dejes de usar daa report mejor usa crystalreport
hola, q sabes de activex y dcom???
es q tengo una aplicacion con un exe activex. otra, exe normal, q utiliza al activex. Cuando estan las dos en el mismo pc todo va de maravilla. pero cuando intento ejecutar la aplicacion cliente en una maquina remota, no funciona na de na
puedes ayudarme por favor?????
hola chen li quisiera tu ayuda por favor, mi problema es el siguiente estoy desarrollando una aplicacion en visual basic y sql server, ttodo iba bien hasta que al final de una captura tengo que imprimir la información actualizada en un documento de word, es decir la salida es un oficio que ya existe....
Ya logré enlazar visual con el documento de word, pero lo que no tengo idea es como jalar algunos datos de la captura e incrustarlos en el documento, sin que pierda su contenido. (algo asi como lo que hace word para combinar correspondencia con una fuente de datos; un documento X que puedes ir modificando con muchos registros de una tabla)
Ojalá puedas ayudarme, según yo con esto finalizó el módulo...gracias
Hola Amigo, ojala me pudieras ayudar en lo siguiente, te lo agradecería mucho, mi problema es el siguiente:
tengo una base de datos (tablas hechas en fox) y lo he enlazado con un data y un msflexgrid en Visual basic 6.0 para visualizar y revisar sus datos y lo que necesitos es el codigo para que cuando busque un valor en una columna determinada me arroje el numero de registros que contiene ese valor, si quieres te mando la aplicación para que tengas un mayor idea de lo que quiero
Enviado por franciscociria el día 21 de junio de 2004
Hola.Esta duda es facil.
Tengo un libro excel con 6 hojas. Lo que quiero es hacer una séptima hoja
en
la que se pueda ver en unas casillas, la cantidad de celdas de las
anteriores hojas que coinciden. Por no estar a contarlo a manopla.
Por ejemplo, las seis hojas son iguales, en columnas y filas, pero con
diferentes datos en las celdas. Yo quiero saber cuantas hojas de la columna
B, entre la fila 3 y la 28, han tenido valor 123 en la totalidad de las
hojas.
Esto es posible? Y si el valor que han de tener en vez de ser 123, es un
valor alfanumérico?
he probado con esta funcion pero no me ha salido
=CONTAR(Hoja1:Hoja6!B3:B28;123)
Hola! A ver si me puedes ayudar.. Necesito ordenar una lista alfabeticamente, como lo hago... Y lo otro necesito registrar las horas de entrada y salida de los empleados de una empresa, como puedo hacer?? Gracias
hola tengo una manera de hacerlo mas facil por que no declaras una variable de tipo ADODB.Recordset
y haces lo siguiente:
variable.open"INSERT INTO nombre tabla(datos de la tabla separados por comas)values(datos o combos del formulario separados por comas )";base
y base es un objeto que lo vasa declarar asi en un modulo tu ves que nombre le das en mi caso es inicio
Public base As ADODB.Connection
Public Sub conectar()
Set base = New ADODB.Connection
base.Provider = "Microsoft.Jet.OLEDB.4.0"
base.Open "c:\bd_consultorio.mdb", "Admin", ""
End Sub
y luego al correr el programa conectas a base
asi: inicio.conectar donde conectar el la funcion que te escribi mas arriba,de esta manera los insert,select,update o delete los haces asi y te ahorras lineas de codigo
por ejemplo
dim insertar as ADODB.RECORDSET
insertar.open"inset into tabla1(campo1,campo2,campo3) values(dato1,dato2,dato3)",base
y es igual para modificar,eliminar o consultar
Enviado por NELSON FERMIN el día 19 de enero de 2005
CREO QUE ESTAS COLOCANDO DEMACIADAS COMILLAS
POR EJEMPLO
SQL = ""
SQL = " select * from cliente where nombre = '" & txtnombre & "'"
NO HAY NECESIDAD
DEBES COLOCAR
SQL = " select * from cliente where nombre =" ' & txtnombre
Enviado por blackiecito el día 17 de junio de 2005
Mira...lo que pasa es que cuando vas a concatenar variables alfanumericas tienes que colocarlas entre ' '...Me imagino que las veces que te resultan es porque ingresaste puros numeros...
Hola Chen Li: me dirijo a tí porque he leído que ofreces ayuda a quién quiera. Si pudieras ayudarme te estaría muy agradecido. Mi problema es que tengo una aplicación que utiliza 2 formularios con un control CommonDialog y cuando voy a imprimirlos en un folio a doble cara me imprime cada formulario en una hoja distinta. Mi impresora admite la impresión por ambas caras, pero con la aplicación no lo consigo. Aunque no pudieras ayudarme, te envío de todas formas un cordial saludo. Juan Luis. España.
TENGO UN PROBLEMA, NECESITO HACER UNA APLICACION QUE ME MANEJE PUERTOS, PERO EN ESPECIAL LOS DE INTERNET, NECESITO BLOQUEAR Y DESBLOQUEAR EL INTERNET, SE QUE NECESITO USAR UN WINSOCK, PERO LA VERDA NO SE COMO HACERLO, NO SE SI SERA MUCHA MOLESTIA QUE ME ORIENTES COMO HACERLO, POR FAVOR.
Pero que ILUSOS que sois, os creeis que alguien va a enviaros por email soluciones a todas esas cosas que preguntais, os podeis morir de viejos esperando...
Chen Li debería llamarse tacañin. Acaso quiere tener a la gente arrodillada a sus pies rogandole un poco de ayuda cuando la necesitan. No son ilusos al creer que existe alguién que les podría facilitar sus manuales de VB o de lo qiue seap orque si los hay con migo. Envienme un correo quienes los necesiten y podré enviar les manuales y ejemlos de códigos gratuitos (Nada de piratería) para que conozcan funciones avanzadas de VB6. Tacañin no es el unico que sabe VB.
Hola, quisiera pedirte que por favor me enviaras los manuales que tienes de visual y si tenes algun manual de Data Report te agradeceria muchisimo si me lo enviaras a esta direccion: patriciabeth21@hotmail.com.....
Gracias....Patricia
Enviado por CHRISTIAN el día 30 de octubre de 2005
SABES LO QUE TE PUEDO DECIR QUE EL VISUAL 6.0 ES SOFTWARE QUE ES COMPATIBLE CON TODOS LOS SISTEMAS OPERATIVOS POR ESE SOFTWARE ES MUY ANTIGUO Y NO VAS A TENER NINGUN PROBLEMA ...
Enviado por freddy guerrero el día 19 de mayo de 2006
necesito un programa donde use la sentencia do-whilepero el mas simple q tengan porfavor es para mis clases y aun no se hacer nada de eso es en visual basic el programita ok espero su ayuda!!
Enviado por Nelson Zavaleta el día 22 de julio de 2004
Estimado Chen:
En un formulario muestro datos de una tabla Access, con un control ADO, el usuario elige modificar un registro o agregar uno nuevo y necesito realizar la carga de los nuevos datos en otro formulario con otro control ADO. En el 2do. formulario tengo una instrucción del tipo SET Form2.ADO2 = Form1.ADO1 y esto funciona y muestra bien los datos existentes, pero al momento de grabar me da un error que dice : "El controlador de eventos del cliente, llamó a un método no reentrante en el proveedor", y me parece que es porque le paso un recordset de un formulario a otro y lo manejo con dos controles ADO. Si tenés idea de como solucionar esto, te lo agradeceré.
Nelson
hola necesito tu ayuda, te cuento que estoy haciendo un proyecto, en el cual en visual basic necesito que cuando ejecute el programa, pueda crear objetos , por ejjemplo si tengo un dibujo, poder arrastrarlo y crear uno nuevo, pero al mismo tiempo poder realizar una acción cuando pulse en nuevo objeto, porfavor si puedes ayudame
tengo una aplicacion en visual que usa una base de datos SQL pero me falla la conexion. Al intentar ver el contenido de las tablas desde la aplicacion me sale el msje Puede que no tenga permisos para realizar esta operacion o que ya no exista el objeto 'nomTabla' en la bbdd.
necesito estos significados me urgen para hoy mismo ayudame un trabajo universitario
status bar
tool bar
progress bar
tree view
list view
imagen list
slider
image combo
ha ademas necesito un ejemplode cada uno todo esto en viual basic
No sean ingenuos. Ustedes creen que este charlatan se va a dar el trabajo de leerlos uno por uno y contestar sus dudas? Que falta de sentido comun tienen. Es el colmo.
me parece estupido q hay personas q digan q es po gusto hacen consultas hasta donde eh leido chen li les a brindado informacion y pues de paso tambien me estoy informando de algunas cosas nuevas para mi tambien estudio visual.net pero yo estoy el lo basico sin envargo pues me esta ayudando mucho leer esta pag y me da mucho gusto de ver apersonas como chen li q les trata de dar informacion a las personas q se lo piden.
Te hago una consulta, tengo un proceso que habre muchas tablas, aparte en tra en un for y hace un select de una tabla varias veces.
El proseso funciona bien, pero cuando termina vuelvo al menu y quiero volver a entrar se cuelga,
Sera por la cantidad de Select que tengo?
Si es asi como puedo solucionarlo?
Desce ya muchas gracias
Muchas gracias por tu ayuda. Voy un poco despistado, pues necesito controlar el puerto LPT1 y segun me parece en mi VB 6.0 no tiene las intrucciones OUT/INP. He cogido algun ejemplo (.exe) que contiene estas instrucciones y funciona, pero parece que el compilar no las tiene?
Grácias.
Pero por la mierda pendejos, por favor, lean antes de preguntar!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
No sean ingenuos. Ustedes creen que este charlatan se va a dar el trabajo de leerlos uno por uno y contestar sus dudas? Que falta de sentido comun tienen. Es el colmo.
Hice programa en la que trabajan en 5 PCs y trabajo con access 2000 y la base esta compuesta de una tabla master y 4 relacionadas, el problemas es que cuando guarda los datos a veces no me guarda los datos correctos o icmpletos en las otras tablas, de la 4 tablas 2 utilizo el control ado para actualizar, guardo los datos con recorset utilizando addnew y update tabla por tabla
El Access es una mierda si lo utilizas en red. Se va al garete y hace cosas como esa o peores. intenta mandarle intrucciones SQL de insert en ver de ulilizar el addnew de ADO para a ver que pasa. ¿Utilizas datos autonumericos para realizar las relaciones?
Hola, te agradecería que me contestaras la siguiente duda, tengo un formulario con un msflexgrid, lo que quiero hacer es que al cerrar dicho formulario, se guarden algunas celdas en una base de datos, o algo por el estilo, el chiste es que las pueda usar mas adelante.
Enviado por Ricardo Suarez el día 29 de diciembre de 2005
Angel te envio como puedes guardar la informacion en un MSHFlexGrid te envio un ejemplo:
Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
On Error Resume Next
Me.Adodc1.Caption = "Registro Actual :" & pRecordset.AbsolutePosition
If Err Or pRecordset.BOF Or pRecordset.EOF Then
Me.Adodc1.Caption = "No hay Regostros Nuevos"
End If
Err = 0
End Sub
Private Sub Command2_Click()
If MsgBox("Desea agregar un Registro Nuevo", vbInformation + vbYesNo) = vbYes Then
Adodc1.Recordset.AddNew
' Añadimos algún texto, para que no se pierda este registro
Text1(1) = "Nuevo"
' Actualizamos los datos
Adodc1.Recordset.Update
' Hacemos que se "recargue" los datos del recordset
Adodc1.Refresh
' Movemos al último registro para que los cambios se hagan permanentes
' y se muestre el nuevo registro
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub Command3_Click()
On Error GoTo ER
Adodc1.Recordset.Update
Adodc1.Recordset.UpdateBatch adAffectCurrent
ER:
End Sub
Private Sub Command4_Click()
' Borrar el registro actual
' Se comprueba que haya algún registro activo,
' para ello se comprueba que no hayamos pasado del principio o el final del Recordset
'
' Comprobar que hay registros, porque si no hay, dará error
If MsgBox("Desea Eliminar este Registro?", vbExclamation + vbYesNo) = vbYes Then
If (Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF) Then
' Avisar de que no hay registros
Adodc1.Caption = "Ningún registro activo"
Else
' Eliminar el registro actual
Adodc1.Recordset.Delete
'
' Movemos al primer registro para que los cambios se hagan permanentes
' (también podriamos haberlo movido al último registro)
Adodc1.Recordset.MoveFirst
End If
End If
End Sub
Private Sub Form_Load()
Const sPathBase As String = "C:\Documents and Settings\ENCANTO JUVENIL\Mis documentos\YO\Clientes.mdb"
With Me.Adodc1
.ConnectionString = _
"Provider=Microsoft.JET.OLEDB.4.0 ; " & _
"Data Source = " & sPathBase & ";"
.RecordSource = "Clientes"
Dim I As Long
For I = 0 To 10
Set Text1(I).DataSource = Adodc1
Next
' Asignar los campos
Text1(0).DataField = "ID_TABLA"
Text1(1).DataField = "NOMBRES"
Text1(2).DataField = "APELLIDOS"
Text1(3).DataField = "DIRECCION"
Text1(4).DataField = "TEL_CASA"
Text1(5).DataField = "TEL_CELULAR"
Text1(6).DataField = "TEL_OFICINA"
Text1(7).DataField = "EMAIL"
Text1(8).DataField = "EMPRESA"
Text1(9).DataField = "CIUDAD"
Text1(10).DataField = "ESTADO_CIVIL"
'Text1(11).DataField = "ESTADO_CIVIL"
' Me.Check1(0).DataField = "SEXO"
'Me.Check1(1).DataField = "SEXO"
'Text1(6).DataField = "DETALLE"
'Text1(6).DataField = "DETALLE"
' Mostrar en las etiquetas el campo a usar
For I = 0 To 10
Label1(I).Caption = Text1(I).DataField & ":"
Next
'Label1(6).Caption = Me.Text1(6).DataField & ":"
'Set Me.Combo1.DataField = "NOMBRE"
Set Me.MSHFlexGrid1.DataSource = Adodc1
End With
End Sub
ojo que la connexion y la direccion en donde se encuentre tu base tu la tienes que direcconar chao y ojala te sirva
Hola, necesito ayuda, estoy desarrollando una aplicación y necesito importar un archivo de texto delimitado por tabulaciones a una tabla SQL por medio de Visual Basic.
Gracias de antemano.
Enviado por noelia jimenez el día 4 de noviembre de 2004
te escribi un mensaje la semana pasada pero no me contestaste, no se si porque no sabias resolverlo o por otro motivo. Todavía sigo buscando ayuda, en el caso de que me quieras echar una mano contesta a mi correo, el error era<el servidor aun no ha sido abierto> visual 6 crystal8
Enviado por Alejandro Villa el día 20 de septiembre de 2005
Observa esto en la conexion con eso quitas ese problema es una propiedad del reporte
.SetLogOnInfo NombredelaConexion, NombredelaConexion, usuario, password
Actualizo un registro del datagrid con dataenvironment y al imprimirlo no me saca la actualizacion. si me salgo del programa y vuelvo a entrar sí me coge la actualizacion.
Para que te pueda mostrar en cuanto haces la actualización sin necesidad de cerrar y hasta despues volver a entrar para que se actualice tenes que refrescar con un refresh
nombreobjeto.refresh
Enviado por coe_7_zab el día 4 de noviembre de 2004
GRACIAS DE ANTEMANO
Necesito abrir una Hoja Excel desde VBasic 6 y el problema es que cuando la cierro me deja en memoria una tarea Excel. Necesito que no se quede dicha tarea.
El código que uso y me deja la tarea es:
Dim xlsMiFichero As Excel.Application
Set xlsMiFichero = New Excel.Application
xlsMiFichero.Workbooks.OpenText "LOQUESEA.XLS"
.
.
. (aqui trato los datos)
.
.
ActiveWorkbook.Close savechanges:=False
xlsMiFichero.Quit
Set xlsMiFichero = Nothing
Enviado por Fray Moya el día 23 de febrero de 2005
Con la siguiente rutina en VB.NET, averiguamos el identificador de proceso de la Excel que hemos abierto. Para llamarla solo tenemos que escribir:
Dim Mi_PID as integer
Mi_Pid = Calcula_PID("EXCEL")
Después, para eliminar el proceso haremos lo siguente:
Dim Mi_Proceso As System.Diagnostics.Process
Mi_Proceso = System.Diagnostics.Process.GetProcessById(Vrl_PID)
Mi_Proceso.Kill()
Private Function Calcula_PID(ByVal Nombre_Proceso As String) As Integer
'Esta función calculará el identificador de proceso que corresponderá al Excel que
'tenemos nosotros abierto. Buscará entre las versiones de Excel que hay abiertas e
'identificará como la nuestra aquella que no tiene ventana principal. Ya que mi aplicación no hace visible el Excel
Dim Conjunto_Procesos As System.Diagnostics.Process()
Dim Mi_Proceso As System.Diagnostics.Process
Try
Conjunto_Procesos = System.Diagnostics.Process.GetProcessesByName(Nombre_Proceso)
For Each Mi_Proceso In Conjunto_Procesos
If Mi_Proceso.MainWindowTitle = "" Then
Calcula_PID = Mi_Proceso.Id
Exit For
End If
Next
Catch Error_PID As System.Exception
MsgBox("Error al calcular el PID de Proceso: " & Error_PID.Message)
Finally
Mi_Proceso = Nothing
Conjunto_Procesos = Nothing
End Try
End Function
Sigo intentado buscar la forma de que se cierre solo, pero esto funciona de momento. Espero que te haya sido de ayuda.
Amigo Chen, te agradecerìa muchìsimo si tuvieras el manual de Fermì Vila que se titula "Visual Basic para Aplicaciones del Access 2000", pero en su versiòn completa: 3)Formularios y Controles 4)Objeto de Acceso a Datos (DAO). A.Programaciòn en SQL B.Tratamiento de errores y Depuraciòn C.Los "otros" VBA.
Por favor envìamelo en un archivo de Microsoft Word con tu mensaje y direcciòn de correo electrònico
Enviado por mamerto el día 24 de noviembre de 2004
chen li, no tienes una computadora que haga todo por mi, me he vuelto igual de guevon que esto gueyes que no quieren estudiar nada, no tienes el libro "sientate y yo trabajo", me urge, bye
Enviado por mercedes el día 24 de noviembre de 2004
hola Chen Li ya que te ofreces tomare tu palabra. necesito ayuda con lo siguiente: tengo un sistema desarrolado en ASP, utilizando bases de datos Oracle y que llama DLL para ejecutar transacciones en Mainframe. EL problema es que hay un modulo llamado Consultas de movimientos que hace un llamado a la DLL para ejecutar una transacción enviandole varios parametros entre ellos las fechas desde - hasta, y la cantidad de registros a recuperar, lo cierto es que la ejecución de la transacción no tarda mas de 3 segundos extrayendo los primeros 50 registros, estos quedan en un buffer temporal que, luego es pasado a un modulo donde se analiza el registro, se formatea para extraer ciertos campos y por ultimo insertarlos en una tabla, en este proceso de analisis del movimiento es donde se tarda 2 minutos 40 seg. trayendo como consecuencia que al finalizar el proceso la pagina que lo invoca halla finalizado por timeout. Aumente el tiempo de espera pero, igual falla y, no es lo correcto ya que degradaria los tiempos de respuestas hacia el cliente. ¿Podrías acaso sugerirme alguna alternativa para optimizar esta DLL?..
Te lo agradecería mucho.
salu2. mm
Comprueba tus consultas de acceso a datos. se pueden tener mejoreas de un 1000%. ¿Has utilizado indices en el campo de fecha por el cual se filtra?. ¿Pudes relaizar todo el proceso en la base de datos sin usar una dll mediante un prodedimiento almacenado?. Intenta no usar cursores en el caso de que los uses.
Enviado por Antonio Arranz Ramonet el día 24 de noviembre de 2004
Desearía me pudieran ayudar en las siguientes cuestiones:
1- A veces tengo necesidad de incorporar en un nuevo proyecto de Visual Basic formularios que pertenecen a un proyecto viejo. Como lo hago ahora es incorporando una por una cada formulario de la siguiente manera. Toco el icono “Agregar formulario”, escojo “Formulario”, escojo “Existente”, busco el formulario y toco “Abrir”. Como puede apreciarse es un proceso muy lento cuando hay que incorporar muchos formularios, mi pregunta es ¿existe alguna manera de incorporar múltiples formularios a la vez?
2- Trabajo en PowerPoint ciertas cosas, las copio y las inserto dentro de un Picturebox de un proyecto de Visual Basic. La configuración de mi pantalla la pongo en 800x600 píxeles y un tamaño de fuente grande. Cuando mando ejecutar el proyecto de Visual Basic veo las cosas como yo deseo, pero si cambio la configuración de la pantalla poniendo un tamaño de fuente pequeño, entonces al ejecutar el proyecto me sale todo encogido. ¿Hay alguna instrucción para el Visual Basic que haga que cuando se ejecuta el proyecto siempre se vea de la misma forma, independientemente de la configuración de la pantalla? He observado que trabajos hechos en PowerePoint no importa la configuración de la pantalla, siempre se ven como originalmente fueron hechos.
3- Cuando trabajo con Office 2003 y Visual Basic 6, y copio una cosa hecha en PowerPoint en un Picturebox de Visual Basic, lo hace como mapa de bits que rebasa el tamaño del Picturebox. Cuando trabajaba con Visual Basic 6 y anteriores Office, la misma operación la hacía como metarchivo que cabía en el Picturebox. ¿Cómo puedo lograr que empleando Office 2003 logre copias en metarchivo?
4- Desearía utilizar directamente Visual Basic en el PowerPoint y la ayuda de este no dice claramente cómo se hace. ¿Dónde puedo encontrar en la red un lugar que me enseñe a trabajar las instrucciones de Visual Basic incorporadas en PowerPoint?
para usar directamente VB desde powerpoint, la cosa va mediante macros.
El editor de VB se abre con \"Alt + F11\" desde Powerpoint. Puedes crear una macro, por ejemplo, que a partir de un hiperviculo en un objeto o en un texto ejecute el codigo de Visual que quieras, genere objetos nuevos, transiciones, animaciones, etc etc etc. La ayuda del editor de visual basic puede servirte mucho. vienen muchos ejemplos. Dices que \"la ayuda de este no dice cleremente como se hace\"... que es lo que no entiendes exactamente?
Yo no se de ningun lugar en la red pero a mi, la verdad, no se me dio del todo mal aprenderlo a base de ir probando y mirando la ayuda. 1 saludo.
Hola soy nuevo para enlazar las tablas con VisualBasic2005 .Net, pues cree las tablas desde visual pero como las enlazo con SQL 2000 Ayuda por favor de antemano muchas gracias
Enviado por Lizzetex el día 25 de noviembre de 2004
Hola Chen Li, me ayudarias mucho si supieras como generar en Informe mediante un Data Report, ya agregue un DataEnviroment, pero no se como enlazar a la tabla, ni como seleccionar los datos para ponerlos en el Data Report... Por Favor, Ayuda....
Gracias
Enviado por America el día 25 de noviembre de 2004
Hola me llamo AMerica, podrias ayudarme con un problema que tengo al tratar de leer con un lectord e codigo de barras serial, mira yo habia hecho ya algo parecido, leia la informacion que tenia en una bascula que estaba conectadaal serial peor tenia que presionar una tecla para que me capturar lod e la bascula y en este caso es un puntod e venta donde se supone debo capturard e forma directa la clave del producto que quiero vender, ya estuve batallando basntante y no he encointrado la solucion, tal vez tu podrias ayudarme :d te lo agraderia mucho
Para quitarte problemas usa un lector de codigo de barras por simulacion de teclado en vez de uno serie en el caso de programar con el control de comunicaciones serie te parece complicado. Ya que en este caso el codigo sale en pantalla directamente.
Estoy realizando una BD en Access pero debo hacer una consulta, ya la tngo hecha pero no se como tener acceso a ella desde visual basic. Podrias ayudarme
Hola necesito un control similar al listview, datagrid... pero que me permita introducir datos no recuperados de la DB sino en ejecucion, como sifuera una tabla excel.
Como puedo hacerlo, hay alguna propiedad?
Gracias
Enviado por Nelson Javier el día 30 de noviembre de 2004
Nesecito saber como enlazar las tablas creadas en SQL server 2000 con Visual basic, para seguir con mi proyecto.
Por favor espero una respuesta lo mas antes posible.
Gracias atte: Nelson Javier
Hola! necesito ayuda
Lo que pasa es que necesito realizar una aplicacion para que me muestre una consulta en un grid, pero tambien necesito que me permita insertar filas para capturar datos en ellas y asi elaborar un reporte si me pudieras ayudar te lo agradceria mucho.
Necesito, configurar una factura con el DbGrid, de tal manera como se hacia con el DbEdit de Clipper, o sea tener un dominio sobre como activar filas etc....
si me contestas tratare de especificar un poco mas
Enviado por MARIPOSA el día 9 de diciembre de 2004
hola
mi problema es que estoy haciendo una imitacion de paint y necesito saber como hacer el efecto de la lupa les agradeceria mucho si me pueden ayudar y saben como realizar alguna otra herramienta de este programa. gracias por su atencion y espero su respuesta
Hola.. te molesto por lo siguiente, necesito ayuda en access, si puedes ayudarme porfavor contacta conmigo.. te adelanto algo una vez que hago las tablas y las consultas, ademas de los formularios, pasa lo siguiente no me traslada los datos del formulario hacia la tabla entonces no me resuelve las operaciones de suma..
Gracias
Enviado por necesito ayuda el día 20 de diciembre de 2004
me gustaria saber si puedo hacer que en un documento de word mediante unos textbox de visual basic pueda insertar texto, lo que pasa es que quiero vincular algunos campos de access pero no quiero que salgan todos, solo quiero que el usuario seleccione el registro y pueda imprimirlo junto con un escrito en lugares designados.
mi pregunta es ¿es posible hacer esto?
Antes ke nada, gracias x ofrecer ayuda a los sakados de onda komo yo. Mi problema esta en un Msgbox de un proyekto. Aki esta el kodigo:
MsgBox resp = MsgBox("¿Seguro de borrar entrada?", vbYesNo, "Llamada de Sistema")
If resp = 1 Then
RS.Delete
RS.MovePrevious
Call visualiza
Call destxt
franav.Visible = False
Call habcmdp
'Call mnuborrar_false
Else
Call destxt
franav.Visible = True
Call habcmdp
End If
End Sub
El problema esta en ke al momento de dar klik en Si o en No, me sale otro msgbox ke dice "Falso" y Aceptar...
¿Alguna idea sobre ke pasa? Gracias.
Enviado por Te ayudo el día 26 de diciembre de 2004
MsgBox resp = MsgBox("¿Seguro de borrar entrada?", vbYesNo, "Llamada de Sistema")
If resp = 1 Then
el problema aqui es el primer msgbox que le escribes
seria asi:
resp = MsgBox("¿Seguro de borrar entrada?", vbYesNo, "Llamada de Sistema")=vbyes
If resp then ' resp es un boolean
estoy de vacaciones y necesito el programa para estudiar xq me examino despues de navidad,el visual basic6.0,agegame al msn y me lo pasas si pueds gracis anticipadas
Gracias de antemano
Tengo un problema muy curioso y no se a que se debe.
Trabajo con una base de datos en ACCESS con una consulta y un informe. Desde VB llamo al informe según el codigo de abajo y me funciona correctamente. Pero a veces si realizo modificaciones en la base de datos desde ACCESS al volver a trabajar con el VB sin realizarle cambio me dice que "No se encuentra o está bloqueada". Cuando la llamo desde ACCESS tengo que convertirla a 2000 y luego salvarla otra vez en 97 pero me funciona correctamente salvo cuando me sale ese mensaje que no se a que es debido
CODIGO
EN EL LOAD
Dim MSAccess As Access.Application
PARA LLAMAR AL INFORME
Set MSAccess = New Access.Application
MSAccess.OpenCurrentDatabase "c:\trabajos\trabajos.mdb"
Aqui se produce el error
Hola compañero soy nuevo en esto y keria algun manual basico de vb pk no se hacer una consulta con un datagrd i un combo en mi bd gracias espero tu ayuda.
hasta pronto.
hola Chen Li, te tomo la palabra, necesito si me puedes enviar material de lectura (manuales) tengo que aprender en dos semanas o pierdo el cliente y eso si es grave...de antemano gracias.
Foros de debate
Visual Basic
