Aggiornamento app.

giovedì 29 novembre 2007 - 14.31

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

gennyfor Profilo | Junior Member

71 messaggi | Data Invio: gio 29 nov 2007 - 14:31

Buona giornata a tutti,
utilizzo il vb 2005 x sviluppare le mie applicazioni è ho un dubbio. Spqero qualcuno sappia risolvermelo

In pratica ho sviluppato un applicazione di gestione aziendale x un mio cliente ed adesso ho bisogno di fornirgli un aggiornamento......
L'aggiornamento consiste in una patch (exe) che dovrei creare........
La patch dovrebbe:
1. Aprire il database dell'applicazione sul pc del cliente, aprire una tabella ed inserire una colonna con un record predefinito da me( un record x ogni valore già presente nel pc del cliente)
2. sovrascrivere il nuovo eseguibile del programma principale nella cartella C:\programmi\ ecc ecc

Per il primo punto avrei una mezza ideuzza, ovvero dico alla patch di farsi un item count del database di destinazione, creo la colonna nella tabella(NON SO IL COMANDO

) e poi faccio un INSERT per fino a quando un ciclo FOR non raggiunge il numero degli ITEM COUNT. (però se qualcuno saprebbe esplicitarmi come si fa tuutto ciò

)

Per il secondo punto è una semplice copia di un exe (sovrascrizione) che sarà allegato con la patch

Purtroppo devo fare tutto ciò a distanza dal cliente x questo dovrebbe eseguire tutto in automatico cliccando semplicemente sulla mia patch, any HELPS?????

Grazie in anticipo

EDIT: Grazie lo stesso ma con un po di buona volontà ho risolto, anzi per tutti quelli che dovessero avere un problema come il mio posto il codice:

Module Module1

Sub Main()
Dim connection As New SqlConnection("Stringa di connessione")
connection.Open()
Dim Crea As New SqlCommand
Crea.CommandText = "ALTER TABLE tabella ADD colonna formato"
Crea.Connection = connection
Crea.ExecuteNonQuery()
Dim count As New SqlCommand
count.CommandText = "SELECT COUNT(*) FROM tabella"
count.Connection = connection
Dim countt As SqlDataReader = count.ExecuteReader
Dim cont As Integer
Do While countt.Read
cont = countt.GetInt32(0)
Loop
countt.Close()
Dim update As New SqlCommand
update.Connection = connection
update.CommandText = "UPDATE tabella set colonna = 'valore_predefinito' where colonna IS NULL "
Dim i As Integer
For i = 0 To cont - 1
update.ExecuteNonQuery()
Next
connection.Close()

IO.File.Copy("eseguibile.exe", "C:\percorso_destinazione\eseguibile.exe", True)
End Sub

End Module

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !