Dim comando As OleDbCommand, strSql1 As String, produ As String, ProductIDx As Long
Dim consulta As OleDbDataReader, productx As String
oConn.Open()
strSql1 = "select * from products order by productid"
comando = New OleDbCommand(strSql1, oConn)
consulta = comando.ExecuteReader
Do While consulta.Read()
produ = consulta.Item("Description")
ProductIDx = Convert.ToInt64(consulta.Item("ProductID"))
x = 1
algo = Mid(produ, x, 1)
Do While algo <> " "
x = x + 1
algo = Mid(produ, x, 1)
Loop
productx = Mid(produ, 1, x - 1)
comando = New OleDbCommand("UPDATE products SET ModelName = '" & productx & "' where ProductID = " & ProductIDx & "", oConn)
Loop
consulta.Close()
oConn.Close()
lblStatus.Text = "fin"
excelente funciono, muchas gracias, pero debo migrar para asp.net avanzado por que este asp.net 1.1 es un poco limitado. en slq 2000 esto se hace rapido pero en Access DB no creo, asi lo quiso el cliente.
