|
|
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Temas - _vgt_
Páginas: [1]
1
« en: Miércoles 7 de Diciembre de 2005, 10:25 »
Buenas!!, tengo un problema tremendo con outlook express a ver si pueden ayudarme ... el caso es que lo ejecuto y directamente se me keda frito... sin mensaje de error ni nada, simplemente se keda frito... Saludos y muxas gracias gente!! 
2
« en: Lunes 26 de Septiembre de 2005, 13:15 »
Hola!!, tengo un problema con una webcam y el isa server... el caso es k no me deja funcionar con la webcam y necesitaria algo de ayuda  Muxas gracias !!
3
« en: Viernes 12 de Agosto de 2005, 10:50 »
hola!!,estoy metido a fondo con esto pero me da un error un poco extraño... a ver si podeis darme alguna pistilla :-) a la hora de abrir la conexion me dice k no se pudo encontrar el ISAM instalable  y como k me ha descuadrado un poco... esto es lo k he hexo... x cierto tengo un dataset ya creado en ese formulario pero imagino k da igual no?...(es k vengo de visual basic 6 y alli podia crearme varios recordset y tal) aki va lo k he hexo: Private Sub CreateDataSet_Grid() Dim cnGrid As New OleDb.OleDbConnection(cadenaConexion) Try cnGrid.Open() Dim daGrid As New OleDb.OleDbDataAdapter("SELECT idCliente,Nombre,Telefono,TelefonoMovil FROM Clientes", cnGrid) Dim dsGrid As New DataSet daGrid.Fill(dsGrid, "Clientes") 'enlazo el grid con el daGrid DataGrid.DataSource = dsGrid 'ya tengo los datos cierro la conexion cnGrid.Close() Catch ex As Exception MsgBox(ex.Message) 'aki me dice k no puede encontrar el ISAM End Try End Sub
Muxas gracias
4
« en: Miércoles 10 de Agosto de 2005, 11:06 »
Buenas!!!, tengo un par de dudas sobre esto del visual.net a ver... es normal que se tire "un rato" (mas o menos entre 30 y 60 seg) en cargar el proyecto cuando se pone a ejecutarlo... tengo un p4 a 3000 con 1gb de RAM... otra cosilla tengo creada mi conexion, mi oledbdataAdapter y mi dataset... lo hice arrastrando la tabla al form y a correr... hasta ahi todo bien , pille los textBox y les cambie el databinding y les asigne en la propiedad text los campos... con esa forma yo en el form load le pongo Private Sub frmClientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call BloqueaCajas_Clientes(True) daClientes.Fill(DsClientes1) End Sub Private Sub BloqueaCajas_Clientes(ByVal bVal As Boolean) txtNombreCliente.Locked = bVal txtFecha.Locked = bVal txtDireccion.Locked = bVal txtLocalidad.Locked = bVal txtObservaciones.Locked = bVal txtProvincia.Locked = bVal txtTelefono.Locked = bVal txtTelefonoMovil.Locked = bVal End Sub Private Sub btnAnterior_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAnterior.ClickEvent Me.BindingContext(DsClientes1, "Clientes").Position -= 1 End Sub Private Sub btnSiguiente_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSiguiente.ClickEvent Me.BindingContext(DsClientes1, "Clientes").Position += 1 End Sub
pero no me muestra nada de nada en las cajas de texto xD ... a ver si me podeis dar alguna pistilla... os pongo las cosillas k he puesto cualkier ayuda se agradece Muxas gracias !!! ultima cosilla uff, k pesao estoy hoy xDDD a ver, como vereis en el codigo he puesto un private sub BloqueaCajas_Clientes y es k como vengo del vb 6 estoy acostumbrado a hacer procedimientos y tal ... es correcto meter procedimientos x ahi en medio o deberia meterlo en un modulo o algo asi? muxas gracias de nuevo !!!!!!!!!!11111
5
« en: Martes 12 de Julio de 2005, 13:27 »
madre mia, a ver si alguien me da un poco de ayuda k sino me pego un tiro  a mos a ver... estaba programando en visual y en una de las veces k le di a guardar el proyecto de visual se me colgo el ordenador... reinicié el ekipo y al volver abrirlo me da un error en el vbp... he intentando crear un nuevo proyecto y asignarle los frm pero uno de ellos tambien me peta (precisamente en el k estaba currando  y k estaba cantidad de adelantado si tengo k empezar de nuevo me da algo a ver si podeis ayudarme x favor!! saludos
6
« en: Miércoles 8 de Junio de 2005, 11:52 »
Holaa!!!,tengo una duda existencial con el dataSet... yo vengo de visual basic 6.0 y ahora estoy migrando a visual .net ... entonces vale, tengo un dataset creado, con los datos de la tabla y tal... ahora me gustaria saber como puedo moverme a traves de la tabla... tanto para adelante como para atras... en visual era .movenext, moveprevious, movelast y movefirst pero me parece k todo eso ha desaparecido... cualkier ayuda es bienvenida :-) Muxas gracias gente !!
7
« en: Miércoles 25 de Mayo de 2005, 17:22 »
Holas!!, x aki sigo aunk parezca k no xD .... bueno vamos a ver si alguien puede darme una pistilla de como hacer esto... tengo una bd con un campo de fecha, hora y cantidad de dinerillo... y kiero hacer una grafica con los valores de la fecha y la hora... el tema va sobre reparto a domicilio y kiero mostrale graficamente al cliente la evolucion de los pedidos en una linea de tiempo :-) aguita !!!  , a ver si podeis ayudarme a utilizar el mschart ese xk no me hace ni puñetero caso o si conoceis otro control mejor pos xaxi... Muxisimas gracias a todos !!
8
« en: Martes 17 de Mayo de 2005, 17:21 »
como creo un instalador con el cristal reports incluido?, es k no me fufa en el ekipo en el k tengo k instalar el programa...
Muxas gracias
9
« en: Viernes 6 de Mayo de 2005, 19:44 »
vale, esta si k es dificil... Tengo un codigo de barras de la lotería primitiva por ejemplo y kiero interpretar dixo codigo para mantener un control sobre los boletos para que al final del dia yo pueda saber cuantos he vendido y cuanto he recaudado... Despues de un rato mirando boletos, mi jefe ha conseguido descifrar los 3 primeros números del codigo pero el resto no tiene ningun sentido aparente... Muxas gracias x cualkier ayuda u opinion socios/as !!!
10
« en: Miércoles 27 de Abril de 2005, 19:34 »
HolaaaS!!, k tal?, pues eso, me gustaria k alguien me dijera como al añadir varios proyectos a un proyecto de visual puedo llamar a uno u otro ... es como si un programa principal tuviera pekeños programitas y tal... Muxas gracias x la info !! 
11
« en: Miércoles 2 de Marzo de 2005, 21:07 »
Holaaa!!!, ya estoy aki de nuevo xD ... tengo un problema con una consulta SQL que me da mal el resultado... a ver si vosotros podeis ayudarme, os explico un poco: kiero comparar dos fechas para que todos los albaranes k se encuentren entre esas dos fechas me los liste en otro sitio y he comprobado k los campos esten bien, k las fechas k le pido esten en la bd y aun asi me dice k no tiene nada k mostrar... aki os pongo lo k he hexo a ver si alguien puede ayudarme... Dim busqueda1 As Date, busqueda2 As Date Dim tRs As Recordset Dim db As Connection Dim a& Dim sBuscar As String sBuscar = "Select NumeroAlbaran,FechaAlbaran,Nombre,Apellidos,Telefono,Direccion,Provincia,Dni,Concepto,FechaEntrada,NumeroHoras,IVA,TotalIva,TotalDia,TotalCobrado,ImporteHora From Albaranes WHERE FechaAlbaran BETWEEN " & busqueda1 & " AND " & busqueda2 & " ORDER BY FechaAlbaran ASC"
Muxas gracias a todos!!! Saludos
12
« en: Sábado 15 de Enero de 2005, 16:38 »
Holaa!!, me ha surgido un problema con una busqueda en ADO... el caso es que tengo un formulario con una lista de clientes en la k el usuario puede seleccionar a mano el k kiere y asi se ahorra el tener k escribirlos k es un coñazo... vale, hasta ahi bien, el problema viene cuando pensé en poner un textbox para k hiciera una busqueda... os pongo el codigo... Private Sub txtBusqueda_KeyPress(KeyAscii As Integer) Dim cadena_Buscada As String, criterio As String Dim sBuscar As String Dim tRs As Recordset Dim tLi As ListItem ' Comprobar si tiene caracteres "no válidos" para ADO: sBuscar = Chr(KeyAscii) sBuscar = Replace(sBuscar, "*", "%") sBuscar = Replace(sBuscar, "?", "_") ' Formo la cadena de la consulta: sBuscar = "SELECT CodCliente,Nombre,Modelo FROM Clientes WHERE Cliente LIKE '" & sBuscar & "' ORDER BY CodCliente" Set tRs = db.Execute(sBuscar) :argh: :fire: ' Comprobar que hay datos en el recordset With tRs ' Si no hay datos... If (.BOF And .EOF) Then MsgBox "No se han encontrado los datos buscados" Else ' Mostrar los datos hallados ListView1.ListItems.Clear .MoveFirst Do While Not .EOF Set tLi = ListView1.ListItems.Add(, , .Fields("CodCliente") & "") tLi.SubItems(1) = .Fields("Nombre") & "" tLi.SubItems(2) = .Fields("Modelo") & "" .MoveNext Loop End If End With End sub
el problema es k cuando va hacer la consulta en esta linea Set tRs = db.Execute(sBuscar) me dice k "no se han especificado valores para algunos de los parámetros requeridos" y como k no consigo hacer k haga la consulta... ¿podriais orientarme un poco? Muxisimas gracias a todos/as
13
« en: Miércoles 12 de Enero de 2005, 09:05 »
Hola!!, tengo un problemilla con la importacion de datos de excel a access... alguien me podría decir algun método para importar los datos... los datos son una especie de fichas de clientes...
Muchas gracias !!!
Saludos !!
14
« en: Martes 11 de Enero de 2005, 22:17 »
Hola!!, estoy pasando datos de unas hojas excel a mi base de datos access pero me da un problema en el INSERT INTO y me saca un mensaje k me dice: "No se pudo encontrar el archivo ISAM instalable" y la verdad es k me tiene descuadrado... os pongo el codigo y lo veis a ver k os parece... este es el procedimiento con el k introduzco los datos: Dim RS As Recordset Public Sub Envia_Datos_Access() Dim db As Connection Set db = New Connection db.CursorLocation = adUseClient db.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\Nerv.vgt;" Set RS = New Recordset RS.Open "INSERT INTO Contabilidad IN 'Z:\Nerv.vgt' SELECT * FROM [datos$] IN 'Z:\excel\datos.xls'[EXCEL 6.0;]", db, adOpenStatic, adLockOptimistic Unload frmContabilidad frmContabilidad.Show End Sub cualkier ayuda se agradece un monton !!  Muchas gracias y saludos a todos/as !!
15
« en: Jueves 6 de Enero de 2005, 09:55 »
Hola!!, k tal ?!, me he dado una vueltecilla por la page de soporte tecnico para visual y he visto un nuevo service pack, van x el 6, para Visual Basic y me gustaría saber si lo habeis probado y tal... mas k nada xk no tengo ganas de hacer experimentos ya k a mi con el SP 5 me va de #### madre... bueno aki os dejo la page de soporte tecnico... esta bien, tiene articulos con trucos, recomendaciones ect... Saludos a todos!! [ http://support.microsoft.com/default.aspx?...fh;es-es;vbbint ]
16
« en: Domingo 26 de Diciembre de 2004, 21:39 »
hola!!, aki estoy de nuevo a ver si me pueden ayudar... Tengo un formulario donde estoy cargando imagenes dinamicamente cuando el usuario cambia de cliente... el tema es k me he creado un procedimiento pero me da un error diciendo k no encuentra la imagen sin embargo hasta la linea donde le digo Set Imagen = LoadPicture(Nombre_Imagen, vbLPCustom, vbLPDefault) no me da ningun error... a ver si me podeis orientar un poco  Aki os pongo el codigo para k veais como lo hago... muchisimas gracias x vuestro tiempo !!
'le obligo a buscar el archivo en la dirección indicada
Direccion_Cliente = adcClientes.Recordset.Fields("NumeroCliente") & ""
'con InStrRev busco una cadena dentro de otra cadena pero desde el final
Posicion_Path = InStrRev(Direccion_Cliente, "\")
Posicion_Path = Posicion_Path - 1
'con Mid recorto el nombre de la imagen desde el lugar donde he encontrado la \
Direccion_Cliente = Mid(Direccion_Cliente, 1, Posicion_Path)
Path = Direccion_Cliente
'se posiciona en la dirección que le he indicado en el Path
ChDir Path
'-----------------------------------------------------------------------------------------
If Direccion_Cliente = "" Then
lblNoDisponible1.Visible = True
Else
'le obligo a buscar el archivo en la dirección indicada
Direccion_Cliente = adcClientes.Recordset.Fields("NumeroCliente") & ""
'con InStrRev busco una cadena dentro de otra cadena pero desde el final
posicion_nombre = InStrRev(Direccion_Cliente, "\")
'sumo 1 xk la posicion que quiero tener es de solo el nombre sin incluir \
posicion_nombre = posicion_nombre + 1
'con Mid recorto el nombre de la imagen desde el lugar donde he encontrado la \
Nombre_Imagen = Mid(Direccion_Cliente, posicion_nombre)
'IMAGEN 1
'------------------------------------------------------------------------
If Nombre_Imagen = "" Then
imgFoto1.Picture = Nothing
lblNoDisponible1.Visible = True
Screen.MousePointer = vbDefault
Else
Set Imagen = LoadPicture(Nombre_Imagen, vbLPCustom, vbLPDefault) aki es donde se le va la olla... 
If lblNoDisponible1.Visible = True Then
imgFoto1.Picture = Nothing
Else
imgFoto1.Picture = Imagen
lblNoDisponible1.Visible = False
End If
If imgFoto1.Picture <> 0 Then
Else
imgFoto1.Picture = Nothing
lblNoDisponible1.Visible = True
Screen.MousePointer = vbDefault
End If
Screen.MousePointer = vbDefault
End If
End If
Screen.MousePointer = vbDefault
17
« en: Jueves 23 de Diciembre de 2004, 10:08 »
mmmmmmmm pues eso... estoy probando un procedimiento de introduccion de datos en una bd y me dice eso, k el procedimiento es demasiado largo  ... hay alguna forma de saltarse ese error?... muxas asias !!!
18
« en: Domingo 19 de Diciembre de 2004, 18:46 »
Hola!!, tengo un problemilla... he estado buscando y buscando y no se como enviar datos por el puerto paralelo... por el serie no tengo ningun problema pero por el paralelo no tengo ni idea de como se haria... alguien me puede ayudar?... muchas gracias xk estoy realmente atrancado ...  Saludos y muxas gracias
Páginas: [1]
|
|
|
Mostrar Mensajes
