Visual Basic

Chandana Subasinghe wrote:

Please let me know what is your problem?? And what exactly you want to do

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?