drakong

Espero te sirva http://www.provisitas.net/temalia/?p=337 Suerte y no dudes en consultar.

Para empezar estas mal en lo que esta en negritas Set registros = dbs.OpenRecordset("select codigoproveedor, Codigoproducto, Nombre, Familia, Precio, CODIVA from Productos where [Codigoproducto] = " & CP, dbOpenDynaset) y para que funcione mejor...

Lo mismito me sucedió Te voy a dar la idea para solucionarlo Tienes una posición, a esta posición le restas el ancho ( no se refiere al numero de caracteres) del resultado: por ejemplo: 1500.00 no es lo mismo que 1500 no tienen el mismo ancho. Pero...

Utiliza el comando Shell Shell ("C:\COPY *.* A:\") ' COMO EJEMPLO Suerte y no dudes en colsultar

Necesariamente debes tener los archivos OCX, DLL que te generen un documento PDF, claro sin tener instalado el Acrobat. Te dejo este enlace : solo te faltaría buscar la dll WXPDFCOM http://www.solotuweb.com/fs~id~9202.html Suerte y no dudes en consultar

busca = "SELECT * FROM paciente where fecha >= ' " & FechaInicio & " ' And fecha <= ' " & FechaFinal & " ' " Así queda tu búsqueda: Te puedo decir que cuando empecé con la rpogramacion me costo mucho la forma en que metía el valor de las variables y...

Public arreglo() Public i As Integer Public Function BuscarCadena(ByVal posicion As Integer, ByVal palabra As String) As String indice = InStr(posicion, palabra, "-") If indice = 0 Then i = i + 1 ReDim Preserve arreglo(9, i) arreglo(9, i) = palabra '...

Option Explicit Dim DX As New DirectX8 Dim DS As DirectSound8 Dim Sound As DirectSoundSecondaryBuffer8 Dim SoundDesc As DSBUFFERDESC Private Sub Command1_Click() Dim Num As Integer Num = Int(2 - 1) * Rnd() + 0 TextBox1.Text = Num Dim Num1 As Integer...

En este enlace tienes un ejemplo: revisalo y suerte http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/zip/programa-biblioteca-vb-6.zip No dudes en volver a preguntar si es que no le entiendes Suerte.