Visual Basic

Steve Pullan wrote:

The answer you seek is in the answer threads of other posts.

Have a look around

FeRtoll wrote:

well is it that hard to tell the name of post...
nm...
thanks allot

 Dim CON As New OleDbConnection(CONNECT_STRING)
Dim MY_SQL As String
Dim CMD As OleDbCommand
Dim DR As OleDbDataReader
Dim data_adapter As OleDbDataAdapter
Dim command_builder As OleDbCommandBuilder

<blink><font color=#FF0000>Dim select_string As String = "SELECT TMP_ADMIN.QUOTE_LINE_NO, TMP_ADMIN.OPTION, TMP_ADMIN.PRODUCT_CODE, TMP_ADMIN.DESCRIPTION, TMP_ADMIN.QTY, TMP_ADMIN.UNIT_COST, TMP_ADMIN.SELL, TMP_ADMIN.TAG FROM TMP_ADMIN;"</font></blink>

Dim MY_SQL As String="SELECT TMP_ADMIN.QUOTE_LINE_NO, TMP_ADMIN.OPTION, TMP_ADMIN.PRODUCT_CODE, TMP_ADMIN.DESCRIPTION, TMP_ADMIN.QTY, TMP_ADMIN.UNIT_COST, TMP_ADMIN.SELL, TMP_ADMIN.TAG FROM TMP_ADMIN<blink><font color=#FF0000>;</font></blink>" 'And without this one!!! i think...

 Cmd = New OleDbCommand(MY_SQL, CON)
data_adapter = New OleDbDataAdapter(select_string, CONNECT_STRING)
data_adapter.TableMappings.Add("Table", <blink><font color=#FF0000>CODE_TABLE</font></blink>)
command_builder = New OleDbCommandBuilder(data_adapter)

command_builder.GetUpdateCommand()

data_adapter.Update(CODE_DataSet)
End If

If CODE_DataSet.HasChanges Then
    Dim select_string As String = "SELECT TMP_ADMIN.QUOTE_LINE_NO, TMP_ADMIN.OPTION, " & _
        "TMP_ADMIN.PRODUCT_CODE, TMP_ADMIN.DESCRIPTION, TMP_ADMIN.QTY, TMP_ADMIN.UNIT_COST, " & _
        "TMP_ADMIN.SELL, TMP_ADMIN.TAG FROM TMP_ADMIN;"
    Dim data_adapter As New OleDbDataAdapter(select_string, CONNECT_STRING)
    Dim command_builder As New OleDbCommandBuilder(data_adapter)

    data_adapter.TableMappings.Add("Table", CODE_TABLE)

    data_adapter.Update(CODE_DataSet)
    CODE_DataSet.Clear()
    data_adapter.Fill(CODE_DataSet)
End If

Function FLZ(length, number)
    Dim temp
    ' Generate a string of zeros the length we need, then append the number
    ' length = 5 and number = 232 would be "00000232"
    temp = String( length, "0" ) & number
    ' Grab the length of the string we need to return
    ' length = 5 would return "00232"
    FLZ = Right( temp, length )
End Function

Filename = FLZ(2, Month) & FLZ(2, Day) & "-" & FLZ(2, Hour) & FLZ(2, Minute) & FLZ(2, Second)

KreativeKai wrote:

The server does not have Excel on it

KreativeKai wrote:

Is there a way to get around loading Excel on the server?

' Setup the BackgroundWorker object and start the work somewhere...
BackgroundWorker1.WorkerReportsProgress = True
BackgroundWorker1.WorkerSupportsCancellation = True
BackgroundWorker1.RunWorkerAsync()
 
Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork()
    ' Get a reference to the BGW that called this
    Dim bgw As BackgroundWorker = CType(sender, BackgroundWorker)
 
    ' Do some long running task about a million times...
    For I As Integer = 1 to 1000000
        ' Check to see if we've been cancelled
        If bgw.CancellationPending Then
            e.Cancel = True
            Exit For
        End If
 
        ' Do something useful here...
 
        bgw.ReportProgress(i / 10000)   ' Reduce i to the range of 0 to 100.
    Next
    e.Result = whatever ' Return whatever the result of this work is supposed to be.
End Sub
 
Private Sub BackgroundWorker1_ProcessChanged(ByVal sender As Object, ByVal e As ProgressChangedEvent) Handles BackgroundWorker1.ProgressChanged
    ' Do something usefull with the progress
    ProgressBar1.Value = e.ProgressPercentage
End Sub