Mensajes

Hola a todos, Quisiera saber como abrir un archivo txt.. tengo lo siguiente:

Código [Seleccionar] Expandir

Shell "notepad.exe App.Path &  \ archivo.txt \ ""

Pero no me funciona, me dice que la ruta no se encuentra.. el tema es que no quiero ponerle la ruta verdadera porque si alguien ejecuta el programita en otro lugar va dar error.. y el archivo txt lo genero de la siguiente manera...

Código [Seleccionar] Expandir

Open App.Path & "\archivo.txt" For Output As #1

El otro tema es como hacer para abrirlo y que se vea y no se quede en la barra de abajo.. osea maximisado o algo parecido..

desde antemano muchas gracias
saludos a todos

Hola, si se que se puede ahorrar codigo, me darian una mano.. porque se hasta hay nomas, estuve buscando en google y nada encontre.
saludos a todos
fede

Hola lo hice pero me sale error que el objeto esta abierto aca dejo el codigo, lo que quiero hacer es que si busca y encuentra, que no grabe, si no encuentra que grabe los datos en num1 que es el unico que no puede ser duplicado..

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim Num1 As Byte
Dim Num2 As Byte
Dim Num3 As Byte
Dim Num4 As Byte
Dim Num5 As Byte
Call abrir


Num1 = Int(255 - 1) * Rnd + 0
Num2 = Int(255 - 1) * Rnd + 0
Num3 = Int(255 - 1) * Rnd + 0
Num4 = Int(255 - 1) * Rnd + 0
Num5 = Int(255 - 1) * Rnd + 0
For Num1 = 1 To 100
For Num2 = 1 To 100
For Num3 = 1 To 100
For Num4 = 1 To 100
For Num5 = 1 To 100
  'conexion_basedatos.Close
x = "Select * from stock where codigo =" & Val(Num1) & " "
tablas_apertura.Open x, conexion_basedatos
Next Num5
         Next Num4
         Next Num3
         Next Num2
         Next Num1
         conexion_basedatos.Close
         
If tablas_apertura.EOF = True And tablas_apertura.BOF = True Then
x = "insert into stock values (" & Val(Num1) & ",'" & Num2 & "'," & Val(Num3) & "," & Val(Num4) & "," & Val(Num5) & ")"
     'conexion_basedatos.Execute x
       
            MsgBox "Se grabo correctamente"
       Else
                 
         
         
         End If
End Sub


y el modulo es :

Código [Seleccionar] Expandir

Public conexion_basedatos As New ADODB.Connection
Public tablas_apertura As New ADODB.Recordset
Global datos As String

Sub abrir()
conexion_basedatos.ConnectionString = App.Path + "\BASE_DATOS_STOCK.mdb"
conexion_basedatos.Provider = "microsoft.jet.oledb.4.0"
conexion_basedatos.Open

End Sub
Sub cerrar()
conexion_basedatos.Close
End Sub

Saludos
Federico .

Hola si pense algo asi mira ..

Código [Seleccionar] Expandir

Private Sub Command1_Click()
For x = 1 To 100

    Dim Num As Byte
    Num = Int(255 - 1) * Rnd + 0
    Text1.Text = Num
    Next x
   
End Sub
y rellenar todo los campos..
seria asi?
saludos y grax

Hola gracias por las respuesta, la base de datos es acces y lo que en realidad necesito es llenar por ejemplo 100 campos de la base de datos, automaticamente..
gracias
fede

Hola a todos tengo el siguiente codigo

Código [Seleccionar] Expandir

x = "insert into stock values (" & Val(Text1) & ",'" & Text2 & "'," & Val(Text3) & "," & Val(Text4) & "," & Val(Text5) & ")"
           conexion_basedatos.Execute x
Quisiera rellenar los campos no se si se puede con un while y random en cada text, el text1 es numerico nomas.. el text2 es texo, el 3,4,5 son numeros de 3 cifras.. si alguin me da una ayudita.. gracias
saludos federico

Muchas Gracias por las respuestas, me sirvieron muchisimo
Gracias
Saludos
Fede

Hola a todos priemro que nada quiero decir que soy nuevo en el tema recien estoy  empezaqndo a estudiar vb6, por eso hago alomejor preguntas tontas para lo que es este foro.. 

Código [Seleccionar] Expandir

x = "Select * from stock where codigo =" & Val(Text1) & " "
tablas_apertura.Open x, conexion_basedatos
Label6.Caption = Val(Text3)

Como veran estoy buscando en la tabla stock todos los campos, (codigo, detalle, precio,etc.), esos resultados los quiero mostrar en un label, pero no se como, tambien como puedo hacer para que si busca en estock se guarde en una variable unicamente el codigo?..
Bueno saludos a todos
Fede

perdona por ser duro,pero es la verdad, leete un manual de ADO porque son dudas muy basicas...

Hola   muchas gracias por tomarce el tiempo y responderme.. es verdad que me falta muchisimo de lo basico por eso posteo y te agradezco tu opinion porque se que es constructiva, hojala algun dia pueda yo ayudar..
muchas gracias
federico

Hola Gracias por responderme, es un programa para guardar articulos en una base de datos mdb. si los campos estan en blanco y presiono grabar me sale un error que hay campos duplicados, entopnmces lo que quiero hacer es que si o si se rellenen los 5 campos text1..text2..tex5 eso es.. tambien no se como hacer por ejemplo si yo pongo en codigo 55 y otro viene y pone 55 que diga codigo duplicado.. son dos cosas validacion y eso ultimo no se como haccerlo ya recien empiezo a estudiar este lenjuage ,, gracias a todos
saludos fede