boomp3.com
Last Winter
Sunday, August 20, 2006
ahhh feel more awake after toasting that ham cheese sandwich.
i still cant memorize
Private Sub pull()
Dim rda As New SqlCeRemoteDataAccess(strCnn, strRDA)
Try
rda.pull("StocksCe", " Select Id, product, quantity from stocks;," strCnnRDA, RdaTrackOption.TrackingOn)
Catch ex As Exception
For Each err As SqlCeError In ex.errors
MessageBox.Show(err.message)
Next
Finally
rda.dispose()
End Try
End Sub
Private Sub setupdatagrid()
Dim cmd As SqlCeCommand = New SqlCeCommand("Select Id, product, quantity from StockCe", cnnStockTake)
da.selectCommand = cmd
Dim cb As New SqlCeCommandBuilder(cb)
cnnStockTake.open()
da.Fill(ds, "StocksCE")
cnnStockTake.close()
Me.dgdStocks.DataSource = ds.tables("StocksCe")
Dim rda As New SqlCeRemoteDataAccess(strCnn, strRDA)
Try
rda.push("StocksCE
Catch ex As Exception
and mmuchmuchchhh moreree
11:45 PM